From: Mark Wooding Date: Sun, 10 Jan 2016 02:06:42 +0000 (+0000) Subject: src/parser/scanner-charbuf-impl.lisp: Replace pointless use of `#.'. X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/55f543faf8169dbf9da21f52ffb7442c7cb48bc0 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 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))