diff options
author | dos-reis <gdr@axiomatics.org> | 2011-10-07 19:48:11 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-10-07 19:48:11 +0000 |
commit | 16e12e0c3d18a3eb41425be40275236c6df37c40 (patch) | |
tree | 82d380fb5e2e6d0d48f3b918d5aaafa20115f3f9 /src/interp/spad.lisp | |
parent | da334a99fa9e66215133f4cf5fe87a3b78d7084e (diff) | |
download | open-axiom-16e12e0c3d18a3eb41425be40275236c6df37c40.tar.gz |
* interp/lexing.boot: Include sys-macros.
Add more tokenizer functions.
* interp/fnewmeta.lisp: Use them.
* interp/parsing.lisp: Likewise.
* interp/bootlex.lisp: Likewise.
* interp/spad.lisp: Likewise.
(NEXT-BOOT-LINE): Remove.
* interp/metalex.lisp: Remove old lexing routines.
* interp/Makefile.in (lexing.$(FASLEXT)): Adjust dependency.
* boot/tokens.boot: newString is no longer builtin library function.
(shoeDictCons): Use makeString not newString.
* lisp/core.lisp.in (listToString): Fix typo.
Diffstat (limited to 'src/interp/spad.lisp')
-rw-r--r-- | src/interp/spad.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index d08d692b..2b883cae 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -158,9 +158,9 @@ (defun READLISP (UPPER_CASE_FG) (let (v expr val ) (setq EXPR (READ-FROM-STRING - (IF UPPER_CASE_FG (string-upcase (line-buffer CURRENT-LINE)) - (line-buffer CURRENT-LINE)) - t nil :start (Line-CURRENT-INDEX CURRENT-LINE))) + (IF UPPER_CASE_FG (string-upcase (line-buffer |$spadLine|)) + (line-buffer |$spadLine|)) + t nil :start (Line-CURRENT-INDEX |$spadLine|))) (VMPRINT EXPR) (setq VAL ((LAMBDA (|$InteractiveMode|) (EVAL EXPR)) NIL)) (FORMAT t "~&VALUE = ~S" VAL) |