projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.48.30: adjust DOCUMENTATION and SB-INTROSPECT
[sbcl.git]
/
contrib
/
sb-introspect
/
introspect.lisp
diff --git
a/contrib/sb-introspect/introspect.lisp
b/contrib/sb-introspect/introspect.lisp
index
bf14546
..
568e844
100644
(file)
--- a/
contrib/sb-introspect/introspect.lisp
+++ b/
contrib/sb-introspect/introspect.lisp
@@
-192,7
+192,8
@@
If an unsupported TYPE is requested, the function will return NIL.
((:function :generic-function)
(when (and (fboundp name)
(or (not (symbolp name))
((:function :generic-function)
(when (and (fboundp name)
(or (not (symbolp name))
- (not (macro-function name))))
+ (not (macro-function name))
+ (special-operator-p name)))
(let ((fun (real-fdefinition name)))
(when (eq (not (typep fun 'generic-function))
(not (eq type :generic-function)))
(let ((fun (real-fdefinition name)))
(when (eq (not (typep fun 'generic-function))
(not (eq type :generic-function)))