projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.3.36: Don't fail on timeout on contrib/sb-simple-streams tests.
[sbcl.git]
/
doc
/
manual
/
docstrings.lisp
diff --git
a/doc/manual/docstrings.lisp
b/doc/manual/docstrings.lisp
index
4d31746
..
e5db38a
100644
(file)
--- a/
doc/manual/docstrings.lisp
+++ b/
doc/manual/docstrings.lisp
@@
-118,6
+118,11
@@
you deserve to lose.")
(defmethod specializer-name ((specializer class))
(class-name specializer))
(defmethod specializer-name ((specializer class))
(class-name specializer))
+(defun ensure-class-precedence-list (class)
+ (unless (class-finalized-p class)
+ (finalize-inheritance class))
+ (class-precedence-list class))
+
(defun specialized-lambda-list (method)
;; courtecy of AMOP p. 61
(let* ((specializers (method-specializers method))
(defun specialized-lambda-list (method)
;; courtecy of AMOP p. 61
(let* ((specializers (method-specializers method))
@@
-356,7
+361,7
@@
there is no corresponding docstring."
((package constant variable type structure class condition nil)
nil)
(method
((package constant variable type structure class condition nil)
nil)
(method
- (third (get-name doc)))
+ (third (get-name doc)))
(t
;; KLUDGE: Eugh.
;;
(t
;; KLUDGE: Eugh.
;;
@@
-699,7
+704,7
@@
followed another tabulation label or a tabulation body."
;; class precedence list
(format *texinfo-output* "Class precedence list: @code{~(~{@w{~A}~^, ~}~)}~%~%"
(remove-if (lambda (class) (hide-superclass-p name class))
;; class precedence list
(format *texinfo-output* "Class precedence list: @code{~(~{@w{~A}~^, ~}~)}~%~%"
(remove-if (lambda (class) (hide-superclass-p name class))
- (mapcar #'class-name (class-precedence-list (find-class name)))))
+ (mapcar #'class-name (ensure-class-precedence-list (find-class name)))))
;; slots
(let ((slots (remove-if (lambda (slot) (hide-slot-p name slot))
(class-direct-slots (find-class name)))))
;; slots
(let ((slots (remove-if (lambda (slot) (hide-slot-p name slot))
(class-direct-slots (find-class name)))))