Torus topography v1 - fd works

[clnl] / src / main / lex.lisp

diff --git a/src/main/lex.lisp b/src/main/lex.lisp
index d39ab5922e1545134b3eaaa262c41179b0eb4cc2..bea4f5aa8485e417cb15a5725aa8f605911ffbdc 100644 (file)
--- 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)