(defclass position-aware-stream (proxy-stream)
((file :initarg :file :initform nil
:type (or pathname null) :accessor position-aware-stream-file)
(defclass position-aware-stream (proxy-stream)
((file :initarg :file :initform nil
:type (or pathname null) :accessor position-aware-stream-file)