From: Nathan F. <nf...@us...> - 2007-05-19 12:01:10
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv11438/src/code Modified Files: array.lisp Log Message: 1.0.5.54: fix thinko in src/code/array.lisp * thanks to Eric Marsden Index: array.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/array.lisp,v retrieving revision 1.66 retrieving revision 1.67 diff -u -d -r1.66 -r1.67 --- array.lisp 19 May 2007 02:14:06 -0000 1.66 +++ array.lisp 19 May 2007 12:01:03 -0000 1.67 @@ -349,7 +349,7 @@ (: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 |