X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fiodefs.lisp;h=6925e3dfc01d1dc94d4654daacc81c4e0e7b01a7;hb=f057566fe993f008a9b34dc87b026e7c8ef2611d;hp=43314f86b14c417d5e332e32d2cd944c43d36c29;hpb=be6abfb75a76eb69a417ff09fd6b0f41e708f8c3;p=sbcl.git

diff --git a/contrib/sb-simple-streams/iodefs.lisp b/contrib/sb-simple-streams/iodefs.lisp
index 43314f8..6925e3d 100644
--- a/contrib/sb-simple-streams/iodefs.lisp
+++ b/contrib/sb-simple-streams/iodefs.lisp
@@ -15,7 +15,7 @@
 (in-package "SB-SIMPLE-STREAMS")
 
 (defun file-namestring (pathname)
-  (sb-ext:native-namestring (sb-int:physicalize-pathname pathnane) :as-file t))
+  (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))