X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fseq.pure.lisp;h=18ea6dcf1c14365b223b42ded7d87a9e989e3a93;hb=bfa4310e41dcd011ca9d139f29be1c5757b41378;hp=1123ae2f7bd27b1eee0ccf0dd6c806a58d1b0d08;hpb=1bbb76fcfb9baddf0dc96412c87575d8aeb69c6d;p=sbcl.git

diff --git a/tests/seq.pure.lisp b/tests/seq.pure.lisp
index 1123ae2..18ea6dc 100644
--- a/tests/seq.pure.lisp
+++ b/tests/seq.pure.lisp
@@ -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")))