X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fppc%2Farray.lisp;h=456a546f32c5bf5e08cb0709e7eb09db39536b0b;hb=70769503c505c22bddef3bc7885b91b9d503607f;hp=da3d64946b9d90a8e6c5a8e2f07075e973509b9f;hpb=03fdcf4cd8f7551759c64c83144c11f423f4e6b6;p=sbcl.git

diff --git a/src/compiler/ppc/array.lisp b/src/compiler/ppc/array.lisp
index da3d649..456a546 100644
--- a/src/compiler/ppc/array.lisp
+++ b/src/compiler/ppc/array.lisp
@@ -258,7 +258,7 @@
                (unless (and (sc-is value immediate)
                             (= (tn-value value) ,(1- (ash 1 bits))))
                  (cond ((zerop extra)
-                        (clrlwi old old ,bits))
+                        (inst clrlwi old old ,bits))
                        (t
                         (inst lr temp
                               (lognot (ash ,(1- (ash 1 bits))