[Openmcl-cvs-notifications] r7885 - /trunk/ccl/level-1/l1-error-system.lisp

[rme at clozure.com]

Author: rme
Date: Tue Dec 11 23:08:25 2007
New Revision: 7885

Log:
Correct type specifier for 3d arrays in %TYPE-ERROR-TYPESPECS%

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

Modified: trunk/ccl/level-1/l1-error-system.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/level-1/l1-error-system.lisp (original)
+++ trunk/ccl/level-1/l1-error-system.lisp Tue Dec 11 23:08:25 2007
@@ -1019,7 +1019,7 @@
     (simple-array single-float (* *))
     (mod #x110000)
     (array * (* *))                     ;2d array
-    (array * (* *))                     ;3d array
+    (array * (* * *))                   ;3d array
     (array t)
     (array bit)
     (array (signed-byte 8))