projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.37.14: fix the other half of the WAIT-ON-SEMAPHORE buglet
[sbcl.git]
/
src
/
compiler
/
info-functions.lisp
diff --git
a/src/compiler/info-functions.lisp
b/src/compiler/info-functions.lisp
index
386441a
..
e67f1a2
100644
(file)
--- a/
src/compiler/info-functions.lisp
+++ b/
src/compiler/info-functions.lisp
@@
-226,11
+226,13
@@
return NIL. Can be set with SETF when ENV is NIL."
(variable
(typecase x
(symbol (values (info :variable :documentation x)))))
(variable
(typecase x
(symbol (values (info :variable :documentation x)))))
+ ;; FUNCTION is not used at the momemnt, just here for symmetry.
(function
(cond ((functionp x)
(%fun-doc x))
(function
(cond ((functionp x)
(%fun-doc x))
- ((legal-fun-name-p x)
- (%fun-doc (fdefinition x)))))
+ ((and (legal-fun-name-p x) (fboundp x))
+ (%fun-doc (or (and (symbolp x) (macro-function x))
+ (fdefinition x))))))
(structure
(typecase x
(symbol (cond
(structure
(typecase x
(symbol (cond