From de8f07942243042816769d58d3e8c24940014259 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 30 Aug 2015 10:58:38 +0100 Subject: [PATCH] doc/list-exports.lisp: Don't get confused and thing `nil' isn't interned. Check the correct value of `find-symbol', because `nil' is false. --- doc/list-exports.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.11.0