0.pre7.56:

[sbcl.git] / src / assembly / x86 / array.lisp

diff --git a/src/assembly/x86/array.lisp b/src/assembly/x86/array.lisp
index 677bffa..421eaa0 100644 (file)
--- a/src/assembly/x86/array.lisp
+++ b/src/assembly/x86/array.lisp
@@ -30,9 +30,9 @@
   (inst and result (lognot sb!vm:lowtag-mask))
   (pseudo-atomic
    (allocation result result)
-   (inst lea result (make-ea :byte :base result :disp other-pointer-type))
-   (storew type result 0 other-pointer-type)
-   (storew length result vector-length-slot other-pointer-type))
+   (inst lea result (make-ea :byte :base result :disp other-pointer-lowtag))
+   (storew type result 0 other-pointer-lowtag)
+   (storew length result vector-length-slot other-pointer-lowtag))
   (inst ret))
 \f
 ;;;; Note: CMU CL had assembly language primitives for hashing strings,