Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4817/tests
Modified Files:
array.pure.lisp
Log Message:
0.8.8.6:
Some fixes for ADJUST-ARRAY
... make sure we copy the element in a zero-rank array;
... don't adjust simple arrays, even if it doesn't break
anything (because there's probably lying to compilers
going on).
Index: array.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/array.pure.lisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- array.pure.lisp 15 Sep 2003 13:14:54 -0000 1.17
+++ array.pure.lisp 1 Mar 2004 16:21:14 -0000 1.18
@@ -155,3 +155,7 @@
(setf (aref a 2) #\c)
a)))))
(assert (= (length (funcall f)) 4)))
+
+(let ((x (make-array nil :initial-element 'foo)))
+ (adjust-array x nil)
+ (assert (eql (aref x) 'foo)))
|