1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
(in-package #:common-lisp-user)
(defpackage #:metabang.bind
(:use #:common-lisp)
(:nicknames #:bind #:metabang-bind)
(:intern
#:bind-generate-bindings
#:bind-filter-declarations
#:bind-macro-helper
#:bind-fix-nils)
(:export
#:bind
#:fluid-bind
#:binding-forms
#:binding-form-synonyms
#:binding-form-groups
#:binding-form-docstring
#:binding-form ;for documentation
#:*bind-all-declarations*
#:*bind-non-var-declarations*
#:*bind-lambda-list-markers*
#:bind-error
#:bind-keyword/optional-nil-with-default-error
#:bind-missing-value-form-warning
#:bind-too-many-value-forms-error
#:*unused-declarations-behavior*
#:bind-unused-declarations-condition
#:bind-unused-declarations-warning
#:bind-unused-declarations-error
#:*unused-declarations-behavior*
#:bind-unused-declarations-condition
#:bind-unused-declarations-warning
#:bind-unused-declarations-error
#:lambda-bind))
(defpackage #:metabang.bind.developer
(:use #:common-lisp #:metabang-bind)
(:import-from #:metabang-bind
#:bind-generate-bindings
#:bind-filter-declarations
#:bind-macro-helper
#:bind-fix-nils)
(:export
#:bind-generate-bindings
#:bind-filter-declarations
#:bind-macro-helper
#:bind-fix-nils
#:defbinding-form))
|
