X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass-init.lisp;h=2f67ee137ef6247ef70612e8380ddf478370da97;hb=f77e81ba7736fc7df9ca7d37b93f662f36dae39f;hp=b6aab5fdf2f827fda846a38b181475d4f271a435;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/class-init.lisp b/src/code/class-init.lisp
index b6aab5f..2f67ee1 100644
--- a/src/code/class-init.lisp
+++ b/src/code/class-init.lisp
@@ -24,7 +24,7 @@
     (/primitive-print (symbol-name name))
     (when trans-p
       (/show0 "in TRANS-P case")
-      (let ((classoid (classoid-cell-classoid (find-classoid-cell name)))
+      (let ((classoid (classoid-cell-classoid (find-classoid-cell name :create t)))
             (type (specifier-type translation)))
         (setf (built-in-classoid-translation classoid) type)
         (setf (info :type :builtin name) type)))))