(unread :initform nil :type (or charbuf-chain-link nil))
(filename :initarg :filename :type (or string null)
:reader scanner-filename)
- (line :initarg line :initform 1 :type fixnum :reader scanner-line)
+ (line :initarg :line :initform 1 :type fixnum :reader scanner-line)
(column :initarg :column :initform 0 :type fixnum :reader scanner-column))
(:documentation
"An efficient rewindable scanner for character streams.
(defclass charbuf-scanner-stream (character-scanner-stream)
((scanner :initarg :scanner :type charbuf-scanner)))
+(defmethod make-scanner-stream ((scanner charbuf-scanner))
+ (make-instance 'charbuf-scanner-stream :scanner scanner))
+
(defmethod stream-read-sequence
((stream charbuf-scanner-stream) (seq string) &optional (start 0) end)
(with-slots (scanner) stream