X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fiodefs.lisp;h=cb006ff0c1a2958a3d3d2f3cccbfc98d0e741101;hb=5c2f5c79dbf16bafecf46d2a563895b76a1c7b3d;hp=6925e3dfc01d1dc94d4654daacc81c4e0e7b01a7;hpb=4bb09dd31a0a48602a934e7d61308e43498fd7fa;p=sbcl.git

diff --git a/contrib/sb-simple-streams/iodefs.lisp b/contrib/sb-simple-streams/iodefs.lisp
index 6925e3d..cb006ff 100644
--- a/contrib/sb-simple-streams/iodefs.lisp
+++ b/contrib/sb-simple-streams/iodefs.lisp
@@ -14,7 +14,7 @@
 
 (in-package "SB-SIMPLE-STREAMS")
 
-(defun file-namestring (pathname)
+(defun %file-namestring (pathname)
   (sb-ext:native-namestring (sb-int:physicalize-pathname pathname) :as-file t))
 
 (defmacro def-stream-class (name superclasses slots &rest options)