X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=4c801406d9ba33da2892ce1ed173b6367a53dbb2;hb=25fe91bf63fd473d9316675b0e0ca9be0079e9eb;hp=a99463250f7bc6e77a85ece597288fafaf53745d;hpb=8ef3aa533aba5ac5760e83b798cd6b2388a807a6;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index a994632..4c80140 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -1726,8 +1726,7 @@
        (do ((index index (1+ index))            ; copy the rest of the vector
             (jndex jndex (1+ jndex)))
            ((= index length)
-            (shrink-vector vector jndex)
-            vector)
+            (shrink-vector vector jndex))
          (setf (aref vector jndex) (aref vector index))))
     (declare (fixnum index jndex))
     (setf (aref vector jndex) (aref vector index))