X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Farray.lisp;h=744f89ef4241a65c0569342676d5375d3350d486;hb=03833f4cc9997c5df2c2ceeeb45936c91cabb747;hp=3f7da3e3b9638fc345afe2a55c3569c9acd7e6d4;hpb=a6b91f356da1b5ae2987f79db9bd137970512959;p=sbcl.git

diff --git a/src/compiler/generic/array.lisp b/src/compiler/generic/array.lisp
index 3f7da3e..744f89e 100644
--- a/src/compiler/generic/array.lisp
+++ b/src/compiler/generic/array.lisp
@@ -24,8 +24,8 @@
   (:save-p :compute-only)
   (:generator 1
     (error-call vop
-                #!+x86 'nil-array-accessed-error
-                #!-x86 nil-array-accessed-error
+                #!+(or x86 x86-64 ppc) 'nil-array-accessed-error
+                #!-(or x86 x86-64 ppc) nil-array-accessed-error
                 object)))
 
 ;;; It shouldn't be possible to fall through to here in normal user
@@ -52,8 +52,8 @@
   (:save-p :compute-only)
   (:generator 1
     (error-call vop
-                #!+x86 'nil-array-accessed-error
-                #!-x86 nil-array-accessed-error
+                #!+(or x86 x86-64 ppc) 'nil-array-accessed-error
+                #!-(or x86 x86-64 ppc) nil-array-accessed-error
                 object)))
 
 (define-vop (data-vector-ref-with-offset/simple-array-nil)
@@ -71,8 +71,8 @@
   (:save-p :compute-only)
   (:generator 1
     (error-call vop
-                #!+x86 'nil-array-accessed-error
-                #!-x86 nil-array-accessed-error
+                #!+(or x86 x86-64 ppc) 'nil-array-accessed-error
+                #!-(or x86 x86-64 ppc) nil-array-accessed-error
                 object)))
 
 (define-vop (data-vector-set/simple-array-nil)
@@ -91,8 +91,8 @@
   (:save-p :compute-only)
   (:generator 1
     (error-call vop
-                #!+x86 'nil-array-accessed-error
-                #!-x86 nil-array-accessed-error
+                #!+(or x86 x86-64 ppc) 'nil-array-accessed-error
+                #!-(or x86 x86-64 ppc) nil-array-accessed-error
                 object)))
 
 ;;; FIXME: There is probably plenty of other array stuff that looks