X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcompiler%2Fseqtran.lisp;h=81f90685ba793dc0c2e4ac3629cb14aec2e8ab58;hb=69e6aef5e6fb3bd682c7a2cbf774034d2ea58ee8;hp=9e4d3b441e54e3d576b5aa4e59fe150886414892;hpb=f25039178959a9b302b3399dd04a4d7ba492674d;p=sbcl.git

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index 9e4d3b4..81f9068 100644
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -315,7 +315,7 @@
   '(nth i s))
 
 (deftransform %setelt ((s i v) ((simple-array * (*)) * *) *)
-  '(%aset s i v))
+  '(setf (aref s i) v))
 
 (deftransform %setelt ((s i v) (list * *) * :policy (< safety 3))
   '(setf (car (nthcdr i s)) v))