From: Christophe R. <cr...@us...> - 2003-09-15 13:14:58
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1:/tmp/cvs-serv24342/tests Modified Files: array.pure.lisp Log Message: 0.8.3.66: Fix Alpha data corruption bug ... as with MIPS case a couple of months ago, index goes forwards through a string, not backwards. ... include a test case (how did that happen?) Index: array.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/array.pure.lisp,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- array.pure.lisp 27 Jul 2003 15:05:32 -0000 1.16 +++ array.pure.lisp 15 Sep 2003 13:14:54 -0000 1.17 @@ -145,3 +145,13 @@ ;;; Bug reported by Kalle Olavi Niemitalo for CMUCL through Debian BTS (let ((array (make-array nil :initial-contents nil))) (assert (eql (aref array) nil))) + +(let ((f (compile nil '(lambda () + (let ((a (make-array '(4) + :element-type 'base-char + :initial-element #\z))) + (setf (aref a 0) #\a) + (setf (aref a 1) #\b) + (setf (aref a 2) #\c) + a))))) + (assert (= (length (funcall f)) 4))) |