0.8.9.46:

[sbcl.git] / src / compiler / generic / vm-array.lisp

diff --git a/src/compiler/generic/vm-array.lisp b/src/compiler/generic/vm-array.lisp
index eeada76..fac3d72 100644 (file)
--- 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