(defclass charbuf-scanner (character-scanner)
((%stream :initarg :stream :type stream)
(buf :initform nil :type (or charbuf (member nil :eof)))
- (size :initform 0 :type (integer 0 #.charbuf-size))
- (index :initform 0 :type (integer 0 #.charbuf-size))
+ (size :initform 0 :type charbuf-index)
+ (index :initform 0 :type charbuf-index)
(captures :initform 0 :type (and fixnum unsigned-byte))
(tail :initform nil :type (or charbuf-chain-link null))
(unread :initform nil :type (or charbuf-chain-link nil))