From: Nathan Froyd <froydnj@cs.rice.edu>
Date: Sat, 19 May 2007 12:01:02 +0000 (+0000)
Subject: 1.0.5.54: fix thinko in src/code/array.lisp
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=865b14b240c20c335c750d2d3a62a7cfc0767bc0;p=sbcl.git

1.0.5.54: fix thinko in src/code/array.lisp

	* thanks to Eric Marsden
---

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 39850a6..d61aa46 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -349,7 +349,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
diff --git a/version.lisp-expr b/version.lisp-expr
index d27186c..6659295 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.5.53"
+"1.0.5.54"