0.7.8.8:

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

diff --git a/src/code/class.lisp b/src/code/class.lisp
index ffda24a..7d9b77d 100644 (file)
--- 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)