projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.12.8: Really this time. Note to self: remeber to save the
[sbcl.git]
/
src
/
pcl
/
describe.lisp
diff --git
a/src/pcl/describe.lisp
b/src/pcl/describe.lisp
index
71ced2d
..
4fd565a
100644
(file)
--- a/
src/pcl/describe.lisp
+++ b/
src/pcl/describe.lisp
@@
-91,21
+91,25
@@
(defmethod describe-object ((fun standard-generic-function) stream)
(format stream "~&~A is a generic function." fun)
(defmethod describe-object ((fun standard-generic-function) stream)
(format stream "~&~A is a generic function." fun)
- (format stream "~&Its arguments are:~& ~S"
+ (when (documentation fun t)
+ (format stream "~&Its documentation is: ~A" (documentation fun t)))
+ (format stream "~&Its lambda-list is:~& ~S"
(generic-function-pretty-arglist fun))
(generic-function-pretty-arglist fun))
+ (format stream "~&Its method-combination is:~& ~S"
+ (generic-function-method-combination fun))
(let ((methods (generic-function-methods fun)))
(if (null methods)
(format stream "~&It has no methods.~%")
(let ((gf-name (generic-function-name fun)))
(let ((methods (generic-function-methods fun)))
(if (null methods)
(format stream "~&It has no methods.~%")
(let ((gf-name (generic-function-name fun)))
- (format stream "Its methods are:")
+ (format stream "~&Its methods are:")
(dolist (method methods)
(dolist (method methods)
- (format stream "~2% (~A ~{~S ~}~:S) =>"
+ (format stream "~& (~A ~{~S ~}~:S)~%"
gf-name
(method-qualifiers method)
(unparse-specializers method))
gf-name
(method-qualifiers method)
(unparse-specializers method))
- (describe (or (method-fast-function method)
- (method-function method))
- stream))))))
+ (when (documentation method t)
+ (format stream "~& Method documentation: ~A"
+ (documentation method t))))))))
(defmethod describe-object ((class class) stream)
(flet ((pretty-class (c) (or (class-name c) c)))
(defmethod describe-object ((class class) stream)
(flet ((pretty-class (c) (or (class-name c) c)))