From 458f25364589979cd9099a9ad5fb89932511e78b Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Thu, 3 Apr 2025 03:20:12 -0400
Subject: Fix minor bug

---
 src/lex.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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)
-- 
cgit v1.2.3