(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))