0.9.6.55: the last of the SRHINK-VECTOR fixes

   * call SRHINK-VECTOR for return value, not effect, in DELETE-DUPLICATES
   * call %SRHINK-VECTOR in purify, where we're not going to be GCing

diff --git a/src/code/purify.lisp b/src/code/purify.lisp
index 82cc7cd..d869342 100644 (file)
--- a/src/code/purify.lisp
+++ b/src/code/purify.lisp
@@ -25,7 +25,7 @@
                    (compact-info-environment (first *info-environment*)
                                              :name name)
                    (rest *info-environment*)))
-      (shrink-vector (sb!c::volatile-info-env-table old-ie) 0)))
+      (%shrink-vector (sb!c::volatile-info-env-table old-ie) 0)))
    (t
     (compact-environment-aux name (1- n))
     n)))

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index a994632..4c80140 100644 (file)
--- 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))

diff --git a/version.lisp-expr b/version.lisp-expr
index 946a28b..13933a5 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.6.54"
+"0.9.6.55"