doc/list-exports.lisp: Don't report gensyms as leaked slot names.

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index 6bc3b74..5b66e2a 100644 (file)
--- a/doc/SYMBOLS
+++ b/doc/SYMBOLS
@@ -551,19 +551,6 @@ pset-proto.lisp
   store-property                                function
   with-pset-iterator                            macro
 
-Leaked slot names: #:func, #:class, #:expr, #:cond, #:expr, #:type, #:cond, #:expr, #:expr, #:expr, #:type, #:cond
-  call-inst: #:func
-  convert-to-ilayout-inst: #:class, #:expr
-  do-while-inst: #:cond
-  expr-inst: #:expr
-  function-inst: #:type
-  if-inst: #:cond
-  return-inst: #:expr
-  set-inst: #:expr
-  update-inst: #:expr
-  var-inst: #:type
-  while-inst: #:cond
-
 Classes:
 cl:t
   sb-pcl::slot-object

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index eab4d54..7e5ea73 100644 (file)
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -362,9 +362,11 @@
                                       (sb-mop:class-direct-slots class)))
                              (exported (remove-if
                                         (lambda (sym)
-                                          (and (not (exported-symbol-p sym))
-                                               (eq (symbol-package sym)
-                                                   package)))
+                                          (or (not (symbol-package sym))
+                                              (and (not (exported-symbol-p
+                                                         sym))
+                                                   (eq (symbol-package sym)
+                                                       package))))
                                         slot-names)))
                         (and exported
                              (list (cons (class-name class)