X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-type.lisp;h=9c50878187e5c5b0f0a7369dda9aeb39a968a73a;hb=ce3d6da896e35c9e202db443c5cfc9fedcf65ebe;hp=279ec9d6b36a462fdfee8a331039a16820e32c90;hpb=4dbc52ee4f9a4f566701f1d33e7916e8491b918b;p=sbcl.git

diff --git a/src/compiler/generic/vm-type.lisp b/src/compiler/generic/vm-type.lisp
index 279ec9d..9c50878 100644
--- a/src/compiler/generic/vm-type.lisp
+++ b/src/compiler/generic/vm-type.lisp
@@ -82,7 +82,8 @@
 (defvar *specialized-array-element-types*)
 (!cold-init-forms
   (setf *specialized-array-element-types*
-	'(bit
+	'(nil
+	  bit
 	  (unsigned-byte 2)
 	  (unsigned-byte 4)
 	  (unsigned-byte 8)
@@ -169,7 +170,7 @@
      (if (type= type (specifier-type 'cons))
 	 'sb!c:check-cons
 	 nil))
-    (built-in-class
+    (built-in-classoid
      (if (type= type (specifier-type 'symbol))
 	 'sb!c:check-symbol
 	 nil))