From: Brian M. <bma...@us...> - 2005-11-22 01:01:25
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10961/src/code Modified Files: purify.lisp seq.lisp Log Message: 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 Index: purify.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/purify.lisp,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- purify.lisp 14 Jul 2005 16:30:38 -0000 1.9 +++ purify.lisp 22 Nov 2005 01:01:17 -0000 1.10 @@ -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))) Index: seq.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/seq.lisp,v retrieving revision 1.69 retrieving revision 1.70 diff -u -d -r1.69 -r1.70 --- seq.lisp 20 Nov 2005 19:40:03 -0000 1.69 +++ seq.lisp 22 Nov 2005 01:01:17 -0000 1.70 @@ -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)) |