src/parser/scanner-charbuf-impl.lisp: Replace pointless use of `#.'.

This only existed because `charbuf-size' is (in theory) a tweakable
constant, but `defclass' wants a literal type specifier as its `:type'
argument.  But the correct type specifier, `charbuf-index' was already
defined at the same time (both were added in the same, rather sketchy,
old commit).

It's useful to kill this because it confuses the (rather stupid) reader
in `list-exports'.

diff --git a/src/parser/scanner-charbuf-impl.lisp b/src/parser/scanner-charbuf-impl.lisp
index f0a3e1b9cf32f93ccff7e5b7c5075cf996987fa0..86c4445817f32fd7ea80878476690898e8312606 100644 (file)
--- 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)))
 (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))
    (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))