From fdc3e506a199dcfe32e748de4010e908f5825b37 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 30 Aug 2015 10:58:38 +0100 Subject: [PATCH] doc/list-exports.lisp: Search for exports inside `eval-when' blocks. --- doc/list-exports.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp index d566a1b..71a06d9 100644 --- a/doc/list-exports.lisp +++ b/doc/list-exports.lisp @@ -34,6 +34,9 @@ (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)) -- 2.11.0