rename SB-SIMPLE-STREAMS utility function

[sbcl.git] / contrib / sb-simple-streams / iodefs.lisp

diff --git a/contrib/sb-simple-streams/iodefs.lisp b/contrib/sb-simple-streams/iodefs.lisp
index 43314f8..cb006ff 100644 (file)
--- a/contrib/sb-simple-streams/iodefs.lisp
+++ b/contrib/sb-simple-streams/iodefs.lisp
@@ -14,8 +14,8 @@
 
 (in-package "SB-SIMPLE-STREAMS")
 
-(defun file-namestring (pathname)
-  (sb-ext:native-namestring (sb-int:physicalize-pathname pathnane) :as-file t))
+(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)
   `(defclass ,name ,superclasses ,slots ,@options))