diff options
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) |