0.6.10.5:

[sbcl.git] / src / code / class.lisp

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 909d869..c9f2271 100644 (file)
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -638,7 +638,7 @@
 ;;; 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