Fix minor bug

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)