Index: /trunk/ccl/compiler/nx0.lisp
===================================================================
--- /trunk/ccl/compiler/nx0.lisp	(revision 5530)
+++ /trunk/ccl/compiler/nx0.lisp	(revision 5531)
@@ -576,4 +576,21 @@
     (: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)