diff options
Diffstat (limited to 'src/lex.lisp')
| -rw-r--r-- | src/lex.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lex.lisp b/src/lex.lisp index e86d1e9..eea0709 100644 --- a/src/lex.lisp +++ b/src/lex.lisp @@ -79,8 +79,8 @@ Comments start with a semi-colon ';' and all tokens after are ignored." ((char= next #\b) 2) ((char= next #\o) 8) ((char= next #\x) 16) - ((digit-char-p next) 10) - (t nil))) + ((alpha-char-p next) nil) + (t 10))) (arg (list chr))) (when (and (char= chr #\0) radix (not (= radix 10))) (read-char *standard-input* nil) |