chiark
/
gitweb
/
~mdw
/
sod
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
de8f079
)
doc/list-exports.lisp: Search for exports inside `eval-when' blocks.
author
Mark Wooding
<mdw@distorted.org.uk>
Sun, 30 Aug 2015 09:58:38 +0000
(10:58 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Sun, 13 Sep 2015 17:25:45 +0000
(18:25 +0100)
doc/list-exports.lisp
patch
|
blob
|
blame
|
history
diff --git
a/doc/list-exports.lisp
b/doc/list-exports.lisp
index d566a1be0aca7c39f80e701419f66b8069e309cc..71a06d903a3f73f3bfb87e847fb8d31a4504ceaf 100644
(file)
--- a/
doc/list-exports.lisp
+++ b/
doc/list-exports.lisp
@@
-34,6
+34,9
@@
(defmethod form-list-exports ((head (eql 'define-tagged-type)) tail)
(defmethod form-list-exports ((head (eql 'macrolet)) tail)
(mapcan #'form-exports (cdr tail)))
+(defmethod form-list-exports ((head (eql 'eval-when)) tail)
+ (mapcan #'form-exports (cdr tail)))
+
(defmethod form-list-exports ((head (eql 'progn)) tail)
(mapcan #'form-exports tail))