X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=7a06d2b3cbd13a2cf31c7defed40999b3beb9df6;hb=f8893c7c658bf9d9e0757c63e47af2fdea810f04;hp=ed462886a2646d1f16d56e9fe0e3ab74a7891cea;hpb=902e93736a0888aa6b04dc328b1eb328423bf426;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index ed46288..7a06d2b 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -2125,11 +2125,18 @@
   (let* ((len (read-arg 4))
 	 (sizebits (read-arg 1))
 	 (type (case sizebits
+		 (0 sb!vm:simple-array-nil-widetag)
 		 (1 sb!vm:simple-bit-vector-widetag)
 		 (2 sb!vm:simple-array-unsigned-byte-2-widetag)
 		 (4 sb!vm:simple-array-unsigned-byte-4-widetag)
+		 (7 (prog1 sb!vm:simple-array-unsigned-byte-7-widetag
+		      (setf sizebits 8)))
 		 (8 sb!vm:simple-array-unsigned-byte-8-widetag)
+		 (15 (prog1 sb!vm:simple-array-unsigned-byte-15-widetag
+		       (setf sizebits 16)))
 		 (16 sb!vm:simple-array-unsigned-byte-16-widetag)
+		 (31 (prog1 sb!vm:simple-array-unsigned-byte-31-widetag
+		       (setf sizebits 32)))
 		 (32 sb!vm:simple-array-unsigned-byte-32-widetag)
 		 (t (error "losing element size: ~W" sizebits))))
 	 (result (allocate-vector-object *dynamic* sizebits len type))