(sb-ext:native-namestring (sb-int:physicalize-pathname pathname) :as-file t))
(defmacro def-stream-class (name superclasses slots &rest options)
(sb-ext:native-namestring (sb-int:physicalize-pathname pathname) :as-file t))
(defmacro def-stream-class (name superclasses slots &rest options)