From b3a0eb5ae9a1d736a9fe106bb3422f44de9c0e96 Mon Sep 17 00:00:00 2001 From: Brian Mastenbrook Date: Tue, 22 Nov 2005 01:01:17 +0000 Subject: [PATCH] 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 --- src/code/purify.lisp | 2 +- src/code/seq.lisp | 3 +-- version.lisp-expr | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/src/code/purify.lisp b/src/code/purify.lisp index 82cc7cd..d869342 100644 --- 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 --- 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 --- 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" -- 1.7.10.4