(class-layout (class-layout class))
(subclasses (class-subclasses class)))
- ;; Attempting to register ourselves with a temporary cookie is
- ;; almost certainly a programmer error. (I should know, I did it.)
- ;; -- WHN 19990927
+ ;; Attempting to register ourselves with a temporary undefined
+ ;; class placeholder is almost certainly a programmer error. (I
+ ;; should know, I did it.) -- WHN 19990927
(assert (not (undefined-class-p class)))
;; This assertion dates from classic CMU CL. The rationale is
;;; always of the desired class. The second result is any existing
;;; LAYOUT for this name.
(defun insured-find-class (name predicate constructor)
- (declare (function predicate constructor))
+ (declare (type function predicate constructor))
(let* ((old (sb!xc:find-class name nil))
(res (if (and old (funcall predicate old))
old