X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/649798abde0fd23d517b09f0c030b266ce117c67..de8f07942243042816769d58d3e8c24940014259:/doc/list-exports.lisp

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index f4cdfab..d566a1b 100644
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -69,7 +69,7 @@
       (let ((home (car assoc)))
 	(dolist (symbol (cdr assoc))
 	  (let ((name (symbol-name symbol)))
-	    (unless (find-symbol name package)
+	    (unless (nth-value 1 (find-symbol name package))
 	      (format *error-output* ";; unexported: ~S~%" symbol))
 	    (setf (gethash name homes) home)))))
     (dolist (symbol symbols)