From: Mark Wooding Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100) Subject: doc/list-exports.lisp: Don't get confused and thing `nil' isn't interned. X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/de8f07942243042816769d58d3e8c24940014259 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. --- 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 @@ (defun find-symbol-homes (paths package) (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)