X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=50f730a43aa87fe3faf9113545a833388543c80c;hb=cf0b72cd4052a09b9a305081524bd44e2948c1e5;hp=39850a60e507e96aa7397122b4708c383b0a25cd;hpb=9105a2e4a8701814db413aa9ac3c41fd79d5b4f1;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 39850a6..50f730a 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -56,6 +56,7 @@
         (values vector index))
       (values array index)))
 
+(declaim (inline simple-vector-compare-and-swap))
 (defun simple-vector-compare-and-swap (vector index old new)
   #!+(or x86 x86-64)
   (%simple-vector-compare-and-swap vector
@@ -349,7 +350,7 @@ of specialized arrays is supported."
                             (:little-endian
                              (- sb!vm:other-pointer-lowtag))
                             (:big-endian
-                             (- (1- n-word-bytes) sb!vm:other-pointer-lowtag)))))
+                             (- (1- sb!vm:n-word-bytes) sb!vm:other-pointer-lowtag)))))
                    ;; WIDETAG-OF needs extra code to handle
                    ;; LIST and FUNCTION lowtags. We're only
                    ;; dispatching on other pointers, so let's