projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.6.56: replace CALL-WITH-DX-FUNCTION with DX-FLET
[sbcl.git]
/
src
/
pcl
/
describe.lisp
diff --git
a/src/pcl/describe.lisp
b/src/pcl/describe.lisp
index
23b619b
..
c727c43
100644
(file)
--- a/
src/pcl/describe.lisp
+++ b/
src/pcl/describe.lisp
@@
-106,7
+106,7
@@
(format stream "~& (~A ~{~S ~}~:S)~%"
gf-name
(method-qualifiers method)
(format stream "~& (~A ~{~S ~}~:S)~%"
gf-name
(method-qualifiers method)
- (unparse-specializers method))
+ (unparse-specializers fun (method-specializers method)))
(when (documentation method t)
(format stream "~& Method documentation: ~A"
(documentation method t))))))))
(when (documentation method t)
(format stream "~& Method documentation: ~A"
(documentation method t))))))))