Index: /trunk/ccl/level-1/l1-error-system.lisp
===================================================================
--- /trunk/ccl/level-1/l1-error-system.lisp	(revision 5451)
+++ /trunk/ccl/level-1/l1-error-system.lisp	(revision 5452)
@@ -984,4 +984,5 @@
     (array * (* *))                     ;2d array
     (array * (* *))                     ;3d array
+    (array t)
     (array bit)
     (array (signed-byte 8))
@@ -997,5 +998,31 @@
     (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 (* *))
+    ))