From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100)
Subject: doc/list-exports.lisp: Search for exports inside `eval-when' blocks.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/fdc3e506a199dcfe32e748de4010e908f5825b37

doc/list-exports.lisp: Search for exports inside `eval-when' blocks.
---

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))