X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fseq.pure.lisp;h=18ea6dcf1c14365b223b42ded7d87a9e989e3a93;hb=64ec717cf13c44fb4571c1fd7fbd508551ecfe01;hp=8d2372805bc9717cba244bef7618207315127d2e;hpb=e99a08603747279e7b3a4b319e0c2fb0fb11f62b;p=sbcl.git

diff --git a/tests/seq.pure.lisp b/tests/seq.pure.lisp
index 8d23728..18ea6dc 100644
--- a/tests/seq.pure.lisp
+++ b/tests/seq.pure.lisp
@@ -155,3 +155,9 @@
 	       '(1 2 3 10 12 13)))
 (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")))