X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=7cf17f4c983212b785b4783ef17ecf3e21871b87;hb=05e9b542c5700416b8fd9f3ba9bb91bb6ab84b3a;hp=a51435d5567087b548388fb1df657af88c85b4be;hpb=ba871531b6b394da295c9a4527346e1e6327ccca;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index a51435d..7cf17f4 100644
--- 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)
@@ -2178,8 +2179,9 @@
                                             (frob sequence t)
                                             (frob sequence nil))))
                        (typecase sequence
-                         (simple-vector (frob2))
-                         (simple-base-string (frob2))
+                         #!+sb-unicode
+                         ((simple-array character (*)) (frob2))
+                         ((simple-array base-char (*)) (frob2))
                          (t (vector*-frob sequence))))
                    (declare (type (or index null) p))
                    (values f (and p (the index (- p offset)))))))))