X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftype-init.lisp;h=9792ef2c8470cbf71be1ca6215a34e59f82c8015;hb=860543cc7ba0266e41e1d41ac9b6a208f3795f1a;hp=abb86cb71a436ae5c77be85b1877c549308612d3;hpb=5ec8d0c1c8b7939818b75118b472fac1af554f9a;p=sbcl.git

diff --git a/src/code/type-init.lisp b/src/code/type-init.lisp
index abb86cb..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
@@ -43,14 +43,6 @@
 (/show0 "precomputing built-in symbol type specifiers")
 (precompute-types *!standard-type-names*)
 
-;;; FIXME: It should be possible to do this in the cross-compiler,
-;;; but currently the cross-compiler's type system is too dain-bramaged to
-;;; handle it. (Various consistency checks are disabled when this flag
-;;; is false, and the cross-compiler's type system can't pass these
-;;; checks. Some of the problems are quite severe, e.g. mismatch between
-;;; LAYOUTs generated by DEF!STRUCT and LAYOUTs generated by real
-;;; DEFSTRUCT due to DEF!STRUCT not understanding raw slots -- it's
-;;; actually somewhat remarkable that the system works..)
-; #+sb-xc-host (setf *type-system-initialized* t)
+#+sb-xc-host (setf *type-system-initialized* t)
 
 (/show0 "done with type-init.lisp")