X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=7d9b77d17950e40832c2b3c0b638a5f85f8dd2de;hb=97e52e46f9bcb054eec35a9c326db75993441ca1;hp=ffda24ab645219cdd0b9bede4ea24c681029a6ff;hpb=8ac4c19014a23665e5842d0a989cb9d22d1592ed;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index ffda24a..7d9b77d 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -1203,6 +1203,8 @@
 	   (inherits-list (second x))
 	   (class (make-standard-class :name name))
 	   (class-cell (find-class-cell name)))
+      ;; Needed to open-code the MAP, below
+      (declare (type list inherits-list))
       (setf (class-cell-class class-cell) class
 	    (info :type :class name) class-cell
 	    (info :type :kind name) :instance)