;;; Enhanced stream classes.
(export '(position-aware-stream
- position-aware-stream-line position-aware-stream-column))
+ position-aware-stream-file position-aware-stream-line
+ position-aware-stream-column))
(defclass position-aware-stream (proxy-stream)
((file :initarg :file :initform nil
:type (or pathname null) :accessor position-aware-stream-file)