X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/e0808c472145fc81e52898bc9ac289e10c4f4f41..c32aa709ec47cee02e46fc9e74e58eb6a9b430a6:/src/parser/scanner-charbuf-impl.lisp

diff --git a/src/parser/scanner-charbuf-impl.lisp b/src/parser/scanner-charbuf-impl.lisp
index f0a3e1b..86c4445 100644
--- a/src/parser/scanner-charbuf-impl.lisp
+++ b/src/parser/scanner-charbuf-impl.lisp
@@ -67,8 +67,8 @@ (export 'charbuf-scanner)
 (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))