X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftype-init.lisp;h=9792ef2c8470cbf71be1ca6215a34e59f82c8015;hb=22bb62c99eda1ba3a5e423687ca77458e55dfed3;hp=7c199e082a71db563e1752a749f972bf9e17a789;hpb=4e3b57699314dbd3883470d9b196287b178f3e6d;p=sbcl.git

diff --git a/src/code/type-init.lisp b/src/code/type-init.lisp
index 7c199e0..9792ef2 100644
--- a/src/code/type-init.lisp
+++ b/src/code/type-init.lisp
@@ -26,9 +26,9 @@
     (/primitive-print (symbol-name name))
     (when trans-p
       (/show0 "in TRANS-P case")
-      (let ((class (class-cell-class (find-class-cell name)))
+      (let ((classoid (classoid-cell-classoid (find-classoid-cell name)))
 	    (type (specifier-type translation)))
-	(setf (built-in-class-translation class) type)
+	(setf (built-in-classoid-translation classoid) type)
 	(setf (info :type :builtin name) type)))))
 
 ;;; numeric types