X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Flex.lisp;h=bea4f5aa8485e417cb15a5725aa8f605911ffbdc;hp=d39ab5922e1545134b3eaaa262c41179b0eb4cc2;hb=75a9610;hpb=34a7f8e17a5b27d1b15b297f999e13a93900408b

diff --git a/src/main/lex.lisp b/src/main/lex.lisp
index d39ab59..bea4f5a 100644
--- a/src/main/lex.lisp
+++ b/src/main/lex.lisp
@@ -104,7 +104,7 @@ DESCRIPTION:
      (let
       ((*readtable* (copy-readtable nil))
        (*read-eval* nil))
-      (read-from-string text))))
+      (read-from-string (format nil "~Ad0" text)))))
    (if (numberp num?) num? (error "Invalid number")))))
 
 (deflex :initial (format nil "~A*" *identifier-char*) #'as-symbol)