diff options
author | dos-reis <gdr@axiomatics.org> | 2012-06-04 01:38:56 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-06-04 01:38:56 +0000 |
commit | 9093e140828074f9f86e9a88cb705f86ea087af7 (patch) | |
tree | 7af466dae4d12ba53d4041d0668d49410ce9a171 /src/interp/util.lisp | |
parent | 3e1313d951e807417a344c5fda677b98dcb462c8 (diff) | |
download | open-axiom-9093e140828074f9f86e9a88cb705f86ea087af7.tar.gz |
* interp/spad.lisp (SPAD): Adjust.
* interp/spad-parser.boot: Add a reader parameter to all parsing
functions. Adjust callers.
* interp/newaux.lisp: Adjust form of specialized parsers.
* interp/lexing.boot: Add a reader parameter to all lexing
functions. Adjust Callers.
* interp/io.boot (%Reader): Add source line field.
* interp/debug.lisp: Adjust IO and lexer calls.
* interp/util.lisp (string2SpadTree): Remove as unused.
Diffstat (limited to 'src/interp/util.lisp')
-rw-r--r-- | src/interp/util.lisp | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/src/interp/util.lisp b/src/interp/util.lisp index 7f74ed54..9429a13e 100644 --- a/src/interp/util.lisp +++ b/src/interp/util.lisp @@ -260,19 +260,6 @@ (|closeAllDatabaseStreams|) ) - -(DEFUN |string2SpadTree| (LINE) - (DECLARE (SPECIAL LINE)) - (if (and (> (LENGTH LINE) 0) (EQ (CHAR LINE 0) #\) )) - (|processSynonyms|)) - (|ioClear!|) - (LET* ((|$lineStack| (LIST (CONS 1 LINE))) - ($SPAD T) - (PARSEOUT (PROG2 (|parseNewExpr|) (|popStack1|)))) - (DECLARE (SPECIAL |$lineStack| $SPAD)) - PARSEOUT)) - - ;; the following are for conditional reading #+:ieee-floating-point (defparameter $ieee t) #-:ieee-floating-point (defparameter $ieee nil) |