From 211bfc1487ed4f34b54904b011a65ae05aefa19d Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 10 Jan 2016 13:51:04 +0000
Subject: [PATCH] doc/list-exports.lisp: Don't report gensyms as leaked slot
 names.

---
 doc/SYMBOLS           | 13 -------------
 doc/list-exports.lisp |  8 +++++---
 2 files changed, 5 insertions(+), 16 deletions(-)

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index 6bc3b74..5b66e2a 100644
--- 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
--- 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)
-- 
2.11.0