0.9.6.55: the last of the SRHINK-VECTOR fixes

[sbcl.git] / src / code / purify.lisp

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)))