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

[sod] / doc / list-exports.lisp

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index d566a1b..71a06d9 100644 (file)
--- 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))