[Sbcl-commits] CVS: sbcl/tests array.pure.lisp,1.7,1.8

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory usw-pr-cvs1:/tmp/cvs-serv30766/tests

Modified Files:
	array.pure.lisp 
Log Message:
0.7.9.21:
	Fix REVERSE on vectors with fill pointers, which was left
		broken by the sequence function overhaul
	... error spotted by CVS version of clocc-ansi-test


Index: array.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/array.pure.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- array.pure.lisp	9 Oct 2002 10:07:43 -0000	1.7
+++ array.pure.lisp	31 Oct 2002 13:56:57 -0000	1.8
@@ -79,3 +79,11 @@
 				  (aref rmdr ,i)))
 		       vector)
 		      0))))
+
+;;; Following refactoring of sequence functions to detect bad type
+;;; specifiers, REVERSE was left broken on vectors with fill pointers.
+(let ((a (make-array 10
+		     :fill-pointer 5
+		     :element-type 'character
+		     :initial-contents "abcdefghij")))
+  (assert (string= (reverse a) "edcba")))
\ No newline at end of file