;;;
;;; SOD is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;;
;;; SOD is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
position-aware-stream-line position-aware-stream-column))
(defclass position-aware-stream (proxy-stream)
((file :initarg :file :initform nil
position-aware-stream-line position-aware-stream-column))
(defclass position-aware-stream (proxy-stream)
((file :initarg :file :initform nil
(line :initarg :line :initform 1
:type fixnum :accessor position-aware-stream-line)
(column :initarg :column :initform 0
(line :initarg :line :initform 1
:type fixnum :accessor position-aware-stream-line)
(column :initarg :column :initform 0