projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.58:
[sbcl.git]
/
src
/
code
/
target-misc.lisp
diff --git
a/src/code/target-misc.lisp
b/src/code/target-misc.lisp
index
e70c868
..
9cb38b6
100644
(file)
--- a/
src/code/target-misc.lisp
+++ b/
src/code/target-misc.lisp
@@
-18,11
+18,12
@@
(defun function-doc (x)
(let ((name
(case (get-type x)
(defun function-doc (x)
(let ((name
(case (get-type x)
- (#.sb!vm:closure-header-type
+ (#.sb!vm:closure-header-widetag
(%simple-fun-name (%closure-fun x)))
(%simple-fun-name (%closure-fun x)))
- ((#.sb!vm:simple-fun-header-type #.sb!vm:closure-fun-header-type)
+ ((#.sb!vm:simple-fun-header-widetag
+ #.sb!vm:closure-fun-header-widetag)
(%simple-fun-name x))
(%simple-fun-name x))
- (#.sb!vm:funcallable-instance-header-type
+ (#.sb!vm:funcallable-instance-header-widetag
(%simple-fun-name
(funcallable-instance-fun x))))))
(when (and name (typep name '(or symbol cons)))
(%simple-fun-name
(funcallable-instance-fun x))))))
(when (and name (typep name '(or symbol cons)))