X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-type.lisp;h=43394ffa6d9e5a571897202d0ef1736a4745aab2;hb=50f728671defadb8f7b1e8691c984cb0e6aba17c;hp=9d357d2dfa35e6adb8459aaa304fff593443b063;hpb=05449b9101cdf156f48e7cf935d3874dc7cbadeb;p=sbcl.git

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index 9d357d2..43394ff 100644
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -344,15 +344,15 @@
 	   ((and (not (eq spec u))
 		 (info :type :builtin spec)))
 	   ((eq (info :type :kind spec) :instance)
-	    (sb!xc:find-class spec))
-	   ((typep spec 'class)
+	    (find-classoid spec))
+	   ((typep spec 'classoid)
 	    ;; There doesn't seem to be any way to translate
 	    ;; (TYPEP SPEC 'BUILT-IN-CLASS) into something which can be
 	    ;; executed on the host Common Lisp at cross-compilation time.
 	    #+sb-xc-host (error
 			  "stub: (TYPEP SPEC 'BUILT-IN-CLASS) on xc host")
-	    (if (typep spec 'built-in-class)
-		(or (built-in-class-translation spec) spec)
+	    (if (typep spec 'built-in-classoid)
+		(or (built-in-classoid-translation spec) spec)
 		spec))
 	   (t
 	    (let* (;; FIXME: This automatic promotion of FOO-style