0.9.6.53: in the name of stability and goodwill

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

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index f916cce..28b09c9 100644 (file)
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -75,7 +75,7 @@
              :complaint "backslash in a bad place"
              :namestring namestr
              :offset (1- end)))
-    (shrink-vector result dst)))
+    (%shrink-vector result dst)))
 
 (defvar *ignore-wildcards* nil)
 
@@ -652,7 +652,7 @@
               ((zerop q)
                (incf i)
                (replace res res :start2 i :end2 len)
-               (shrink-vector res (- len i)))
+               (%shrink-vector res (- len i)))
            (declare (simple-string res)
                     (fixnum len i r q))
            (multiple-value-setq (q r) (truncate q 10))