Changeset 5452

Timestamp:

Nov 3, 2006, 11:48:08 AM (18 years ago)

Author:

Gary Byers

Message:

New %type-error-typespecs%.

File:

• trunk/ccl/level-1/l1-error-system.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-error-system.lisp

@@ -984 +984 @@
     (array * (* *))                     ;2d array
     (array * (* *))                     ;3d array
+    (array t)
     (array bit)
     (array (signed-byte 8))
@@ -997 +998 @@
     (array double-float)
     (array character)
-))
+    (array t (* *))
+    (array bit (* *))
+    (array (signed-byte 8) (* *))
+    (array (unsigned-byte 8) (* *))
+    (array (signed-byte 16) (* *))
+    (array (unsigned-byte 16) (* *))
+    (array (signed-byte 32) (* *))
+    (array (unsigned-byte 32) (* *))
+    (array (signed-byte 64) (* *))
+    (array (unsigned-byte 64) (* *))
+    (array fixnum (* *))
+    (array single-float (* *))
+    (array double-float (* *))
+    (array char (* *))
+    (simple-array t (* *))
+    (simple-array bit (* *))
+    (simple-array (signed-byte 8) (* *))
+    (simple-array (unsigned-byte 8) (* *))
+    (simple-array (signed-byte 16) (* *))
+    (simple-array (unsigned-byte 16) (* *))
+    (simple-array (signed-byte 32) (* *))
+    (simple-array (unsigned-byte 32) (* *))
+    (simple-array (signed-byte 64) (* *))
+    (simple-array (unsigned-byte 64) (* *))
+    (simple-array fixnum (* *))
+    (simple-array char (* *))
+    ))