diff options
author | dos-reis <gdr@axiomatics.org> | 2008-07-07 20:20:31 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-07-07 20:20:31 +0000 |
commit | 95ef8592f2efacf43bc943a1df9a9007a46decea (patch) | |
tree | 13d75cae2b038af6095e25087c1e400fc7e06162 /src/interp/bootlex.lisp | |
parent | 3d2601972bcc0cb08da6190d771dcb75544bfe5d (diff) | |
download | open-axiom-95ef8592f2efacf43bc943a1df9a9007a46decea.tar.gz |
* interp/spad.lisp (S-PROCESS): Remove Old Boot specific codes.
* interp/server.boot (parseAndInterpret): Don't set $BOOT.
* interp/setvars.boot (resetWorkspaceVariables): Likewise.
* interp/spad-parser.boot (parseSpadFile): Likewise.
* interp/postpar.boot: Disable Old Boot handling codes.
* interp/metalex.lisp (quote-if-string): Don't test for $BOOT.
* interp/parsing.lisp (IOStat): Likewise.
(IOClear): Likewise.
* interp/ht-util.boot (parseAndEval): Don't set $BOOT.
* interp/int-top.boot (ncTopLevel): Likewise.
* interp/fnewmeta.lisp: Remove Old Boot specific productions.
* interp/sys-macros.lisp (-REDUCE): Don't test for $BOOT.
(SPADDO): Likewise.
* interp/comp.lisp (COMP-TRAN-1): Likewise.
* interp/util.lisp (|string2SpadTree|): Likewise.
* interp/bootlex.lisp (READBOOT): Remove.
(READ-BOOT): Likewise.
(spad): Don't initialize $BOOT.
* interp/debug.lisp (/D-2): Likewise.
Diffstat (limited to 'src/interp/bootlex.lisp')
-rw-r--r-- | src/interp/bootlex.lisp | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/interp/bootlex.lisp b/src/interp/bootlex.lisp index 718c3058..1afad6e7 100644 --- a/src/interp/bootlex.lisp +++ b/src/interp/bootlex.lisp @@ -89,7 +89,6 @@ (*comp370-apply* (function print-defun)) (*fileactq-apply* (function print-defun)) ($SPAD T) - ($BOOT nil) (XCape #\_) (OPTIONLIST nil) (*EOF* NIL) @@ -141,9 +140,6 @@ (if *spad-output-file* (shut out-stream))) T)) -(defun READ-BOOT (FN FM TO) - (let (($boot t)) (READ-SPAD1 FN 'BOOT FM TO))) - (defun READ-SPAD1 (FN FT FM TO) (LET ((STRM IN-STREAM)) (SETQ $MAXLINENUMBER 0) @@ -162,17 +158,6 @@ (+ (ELT $SPAD_ERRORS 0) (ELT $SPAD_ERRORS 1) (ELT $SPAD_ERRORS 2)))) -(defun READBOOT () - (let (form expr ($BOOT 'T)) - (declare (special $BOOT)) - (ADVANCE-TOKEN) - (|PARSE-Expression|) - ;; (|pp| (setq form (|postTransform| (FIRST STACK)))) - (|pp| (setq form (|postTransform| (pop-STACK-1)))) - (setq EXPR (DEF-RENAME form)) - (DEF-PROCESS EXPR) - (TERSYSCOMMAND))) - ; *** 2. BOOT Line Handling *** ; See the file PREPARSE.LISP for the hard parts of BOOT line processing. |