X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Farray.lisp;h=8ae5ee1dc5d1e4cbb3ea7edcf2d7ad3aa8c10a2f;hb=5a9a81ca693a7b82d810cbe725818cd96244099e;hp=81f79c0c36a40d4d01761efbd500c49f56c6c1dc;hpb=08917ec0d00a781a1089922a5419b7f136cdf08f;p=sbcl.git

diff --git a/src/compiler/ppc/array.lisp b/src/compiler/ppc/array.lisp
index 81f79c0..8ae5ee1 100644
--- a/src/compiler/ppc/array.lisp
+++ b/src/compiler/ppc/array.lisp
@@ -78,7 +78,7 @@
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 5
-    (let ((error (generate-error-code vop invalid-array-index-error
+    (let ((error (generate-error-code vop 'invalid-array-index-error
                                       array bound index)))
       (inst cmplw index bound)
       (inst bge error)