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.31: WITH-LOCKED-SYSTEM-TABLE
[sbcl.git]
/
contrib
/
sb-introspect
/
introspect.lisp
diff --git
a/contrib/sb-introspect/introspect.lisp
b/contrib/sb-introspect/introspect.lisp
index
bf14546
..
c7fc14f
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)))
@@
-901,7
+902,7
@@
Experimental: interface subject to change."
(funcall fun part))))
(when ext
(let ((table sb-pcl::*eql-specializer-table*))
(funcall fun part))))
(when ext
(let ((table sb-pcl::*eql-specializer-table*))
- (call (sb-ext:with-locked-hash-table (table)
+ (call (sb-int:with-locked-system-table (table)
(gethash object table)))))
(etypecase object
((or bignum float sb-sys:system-area-pointer fixnum))
(gethash object table)))))
(etypecase object
((or bignum float sb-sys:system-area-pointer fixnum))