~mdw
/
sod
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
649798a
)
doc/list-exports.lisp: Don't get confused and thing `nil' isn't interned.
author
Mark Wooding
<mdw@distorted.org.uk>
Sun, 30 Aug 2015 09:58:38 +0000
(10:58 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Sun, 13 Sep 2015 17:25:20 +0000
(18:25 +0100)
Check the correct value of `find-symbol', because `nil' is false.
doc/list-exports.lisp
patch
|
blob
|
blame
|
history
diff --git
a/doc/list-exports.lisp
b/doc/list-exports.lisp
index
f4cdfab
..
d566a1b
100644
(file)
--- 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)