X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-array.lisp;h=fac3d72edf52979074cbc42ffe1a265e92d6bc6b;hb=6a9bbe6f36179cee92001a1f9ed5ff38be512644;hp=eeada76f1886c985112af5212e76ff03571421ce;hpb=b4831dc945c0754b3ba77881e67c8ea4d0a3d905;p=sbcl.git

diff --git a/src/compiler/generic/vm-array.lisp b/src/compiler/generic/vm-array.lisp
index eeada76..fac3d72 100644
--- a/src/compiler/generic/vm-array.lisp
+++ b/src/compiler/generic/vm-array.lisp
@@ -75,9 +75,6 @@
 	  :importance 6)
 	 (double-float 0.0d0 64 simple-array-double-float
 	  :importance 5)
-	 #!+long-float
-	 (long-float 0.0l0 #!+x86 96 #!+sparc 128 simple-array-long-float
-	  :importance 4)
 	 (bit 0 1 simple-bit-vector
 	      :complex-typecode #.sb!vm:complex-bit-vector-widetag
 	      :importance 16)
@@ -94,10 +91,18 @@
 	                    :importance 15)
 	 ((unsigned-byte 4) 0 4 simple-array-unsigned-byte-4
 	                    :importance 14)
+	 ((unsigned-byte 7) 0 8 simple-array-unsigned-byte-7
+	                    :importance 13)
 	 ((unsigned-byte 8) 0 8 simple-array-unsigned-byte-8
 	  :importance 13)
+	 ((unsigned-byte 15) 0 16 simple-array-unsigned-byte-15
+	  :importance 12)
 	 ((unsigned-byte 16) 0 16 simple-array-unsigned-byte-16
 	  :importance 12)
+	 ((unsigned-byte 29) 0 32 simple-array-unsigned-byte-29
+	  :importance 8)
+	 ((unsigned-byte 31) 0 32 simple-array-unsigned-byte-31
+	  :importance 11)
 	 ((unsigned-byte 32) 0 32 simple-array-unsigned-byte-32
 	  :importance 11)
 	 ((signed-byte 8) 0 8 simple-array-signed-byte-8