1.0.17.21: LIST-FILL* return value (regression 1.0.12.16)

[sbcl.git] / src / code / seq.lisp

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index b49f616..7cf17f4 100644 (file)
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -497,7 +497,8 @@
               (loop repeat n
                     do (setf pointer (cdr (rplaca pointer item))))))
           (loop while pointer
-                do (setf pointer (cdr (rplaca pointer item))))))))
+                do (setf pointer (cdr (rplaca pointer item)))))))
+  sequence)
 
 (defun vector-fill* (sequence item start end)
   (with-array-data ((data sequence)