Changeset 5531

Timestamp:

Nov 9, 2006, 4:37:41 AM (18 years ago)

Author:

Gary Byers

Message:

Map array-type keywords to 3d-array type errors.

File:

• trunk/ccl/compiler/nx0.lisp (modified) (1 diff)

trunk/ccl/compiler/nx0.lisp

@@ -576 +576 @@
     (:single-float-vector arch::error-object-not-simple-array-double-float-2d)
     (:fixnum-vector arch::error-object-not-simple-array-fixnum-2d)))
+
+(defun nx-error-for-simple-3d-array-type (type-keyword)
+  (ecase type-keyword
+    (:simple-vector arch::error-object-not-simple-array-t-3d)
+    (:simple-string arch::error-object-not-simple-array-char-3d)
+    (:bit-vector arch::error-object-not-simple-array-bit-3d)
+    (:unsigned-8-bit-vector arch::error-object-not-simple-array-u8-3d)
+    (:signed-8-bit-vector arch::error-object-not-simple-array-s8-3d)
+    (:unsigned-16-bit-vector arch::error-object-not-simple-array-u16-3d)
+    (:signed-16-bit-vector arch::error-object-not-simple-array-s16-3d)
+    (:unsigned-32-bit-vector arch::error-object-not-simple-array-u32-3d)
+    (:signed-32-bit-vector arch::error-object-not-simple-array-s32-3d)
+    (:unsigned-64-bit-vector arch::error-object-not-simple-array-u64-3d)
+    (:signed-64-bit-vector arch::error-object-not-simple-array-s64-3d)
+    (:double-float-vector arch::error-object-not-simple-array-double-float-3d)
+    (:single-float-vector arch::error-object-not-simple-array-double-float-3d)
+    (:fixnum-vector arch::error-object-not-simple-array-fixnum-3d)))
 
 (defun acode-s16-constant-p (x)