Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: cb9d8b607c
Fetching contributors…

Cannot retrieve contributors at this time

34 lines (30 sloc) 1.949 kb
(defpackage #:toadstool-utils (:use #:cl)
(:export #:with-gensyms #:rec #:mappend #:fmt #:mklist #:partition
#:remove-from-plist #:thunk #:defcomponent #:gensym?
#:extract-prefix #:if-matches))
(defpackage #:toadstool-system (:use #:cl #:toadstool-utils)
(:export #:*default-components* #:*used-components*
#:component #:form #:operator #:form-of #:inner-forms-of
#:outer-form-of #:effective-inner-forms-of #:name-of
#:component-mixin #:nesting #:if-expr-of #:else-expr-of
#:sequence-mixin #:k #:with-end-nesting #:k-once #:matches?
#:expand-form #:mkform #:init #:sequence-initial-state
#:sequence-cdr-state #:sequence-endp #:sequence-item
#:sequence-get-state #:sequence-set-state #:find-sequence-form
#:definit #:defcomponent #:equality #:if-matches #:macro-mixin
#:debug-mixin #:mapc/forms #:destructuring-mixin #:defexpand
#:*toplevel-syms* #:toplevel-expansion #:expand-nesting
#:find-form-expr #:*using-k-once?*))
(defpackage #:toadstool-impl (:use #:cl #:toadstool-system #:toadstool-utils)
(:export #:*default-components* #:satisfies-form #:typep-form #:variable-form
#:not-form #:quote-form #:list*-form #:literal-form #:+-form
#:t-form #:and-form #:list-form #:*-form #:cons-form #:or-form
#:variable-nesting #:vector-form #:vector-rest-form #:push-form
#:push-nesting #:>-form #:>=-form #:<-form #:<=-form #:eql-form
#:equal-form #:with-accessors-form #:class-form
#:assoc-form #:assoc-value #:assoc-key #:assoc-test #:char-form
#:string-form))
(defpackage #:toadstool (:use #:cl #:toadstool-impl #:toadstool-system
#:toadstool-utils)
(:export #:toad-case #:toad-ecase #:toad-ccase #:partial-pattern-error
#:toad-macrolet #:toad-case1 #:toad-ecase1 #:toad-ccase1))
Jump to Line
Something went wrong with that request. Please try again.