~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doc/list-exports.lisp, doc/SYMBOLS: Mark methods with their qualifiers.
[sod]
/
doc
/
list-exports.lisp
diff --git
a/doc/list-exports.lisp
b/doc/list-exports.lisp
index
240ecc2
..
eb87d16
100755
(executable)
--- a/
doc/list-exports.lisp
+++ b/
doc/list-exports.lisp
@@
-360,7
+360,7
@@
#'order-specializers
:key #'method-specializers))
(when (gethash method methods)
#'order-specializers
:key #'method-specializers))
(when (gethash method methods)
- (format t "~2T~{~A~^ ~}~%"
+ (format t "~2T~{~A~^ ~}~
@[ [~{~(~S~)~^ ~}]~]~
%"
(mapcar
(lambda (spec)
(etypecase spec
(mapcar
(lambda (spec)
(etypecase spec
@@
-374,7
+374,8
@@
(if (symbolp obj)
(pretty-symbol-name obj package)
obj))))))
(if (symbolp obj)
(pretty-symbol-name obj package)
obj))))))
- (method-specializers method))))))))))
+ (method-specializers method))
+ (method-qualifiers method)))))))))
(defun check-slot-names (package)
(setf package (find-package package))
(defun check-slot-names (package)
(setf package (find-package package))