projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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))
(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)
(if (numberp num?) num? (error "Invalid number")))))
(deflex :initial (format nil "~A*" *identifier-char*) #'as-symbol)