X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fimpl.lisp;h=1367ae37cd3160114a0f7e54cd20f271b67991fc;hb=2fb9cd4a2286b82e065d6c673d91e46bd7f2194d;hp=3512edfaa84aa40dba82b58eaa94ca4792d48c57;hpb=6c296da561efd25c22e051a1e55080d9689f3ecc;p=sbcl.git

diff --git a/contrib/sb-simple-streams/impl.lisp b/contrib/sb-simple-streams/impl.lisp
index 3512edf..1367ae3 100644
--- a/contrib/sb-simple-streams/impl.lisp
+++ b/contrib/sb-simple-streams/impl.lisp
@@ -126,7 +126,7 @@
   (if (typep stream 'file-simple-stream)
       (with-stream-class (file-simple-stream stream)
         (setf (sm pathname stream) new-name)
-        (setf (sm filename stream) (file-namestring new-name))
+        (setf (sm filename stream) (%file-namestring new-name))
         t)
       nil))
 
@@ -1103,7 +1103,7 @@ is supported only on simple-streams."
      (cond (new-name
             (setf (sb-impl::fd-stream-pathname stream) new-name)
             (setf (sb-impl::fd-stream-file stream)
-                  (file-namestring new-name))
+                  (%file-namestring new-name))
             t)
            (t
             (sb-impl::fd-stream-pathname stream))))))