X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fsystem.lisp;h=96ca14dcf2b0277d658c75a04774693585527662;hb=daf0a41203bc60a9c81c8052123a97ef328e23ec;hp=44b1df4b04340f9a6186a302027c8b1f9fc3a786;hpb=bf67e051e6cfdb061c3081dcd65100bd49d5e464;p=sbcl.git

diff --git a/src/compiler/x86/system.lisp b/src/compiler/x86/system.lisp
index 44b1df4..96ca14d 100644
--- a/src/compiler/x86/system.lisp
+++ b/src/compiler/x86/system.lisp
@@ -289,6 +289,4 @@
   (:args (count-vector :scs (descriptor-reg)))
   (:info index)
   (:generator 0
-    (inst inc (make-ea-for-object-slot count-vector
-                                       (+ vector-data-offset index)
-                                       other-pointer-lowtag))))
+    (inst inc (make-ea-for-vector-data count-vector :offset index))))