Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv2041/tests
Modified Files:
seq.pure.lisp
Log Message:
0.8.3.44:
"Oops"
... as reported on #lisp IRC by pfdietz, FILL would on occasion
consume all available CPU and RAM...
... unbreak the new vectorized transform by returning the
sequence argument rather than NIL.
Index: seq.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/seq.pure.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- seq.pure.lisp 3 Feb 2003 15:41:49 -0000 1.7
+++ seq.pure.lisp 8 Sep 2003 09:00:18 -0000 1.8
@@ -156,3 +156,8 @@
(assert (equal (stable-sort (list 1 2 3 -3 -2 -1) '< :key 'abs)
'(1 -1 2 -2 3 -3)))
+;;; CSR broke FILL by not returning the sequence argument in a transform.
+(let* ((s1 (copy-seq "abcde"))
+ (s2 (fill s1 #\z)))
+ (assert s2)
+ (assert (string= s2 "zzzzz")))
|