X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fiodefs.lisp;h=cb006ff0c1a2958a3d3d2f3cccbfc98d0e741101;hb=4ba392170e98744f0ef0b8e08a5d42b988f1d0c9;hp=daff1a914bdd3910fc642f1e6f5b4705eb5d7665;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/contrib/sb-simple-streams/iodefs.lisp b/contrib/sb-simple-streams/iodefs.lisp
index daff1a9..cb006ff 100644
--- a/contrib/sb-simple-streams/iodefs.lisp
+++ b/contrib/sb-simple-streams/iodefs.lisp
@@ -14,6 +14,9 @@
 
 (in-package "SB-SIMPLE-STREAMS")
 
+(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))