diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-03 00:26:45 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-03 00:26:45 +0000 |
| commit | 7827db4dfa2974604baf823caf3f8be7d8e22d9d (patch) | |
| tree | 0ada31b8af5972a1b48f4c53f642eae1c45df0cb /src/interp/setq.lisp | |
| parent | e517c16669bad11fe26fab31784bd83ed34878da (diff) | |
| download | open-axiom-7827db4dfa2974604baf823caf3f8be7d8e22d9d.tar.gz | |
* interp/setq.lisp: Remove redundant assignments.
Diffstat (limited to 'src/interp/setq.lisp')
| -rw-r--r-- | src/interp/setq.lisp | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/src/interp/setq.lisp b/src/interp/setq.lisp index abda3b8f..ef10bad7 100644 --- a/src/interp/setq.lisp +++ b/src/interp/setq.lisp @@ -46,33 +46,6 @@ (defvar MARG 0) ;" Margin for testing by ?OP" -(SETQ |$returnNowhereFromGoGet| NIL) - -(SETQ |S:SPADTOK| 'SPADSYSTOK) -(SETQ RLGENSYMFG NIL) -(SETQ RLGENSYMLST NIL) -(SETQ XTOKENREADER 'SPADTOK) -(SETQ OPASSOC NIL) -(SETQ SPADSYSKEY '(EOI EOL)) - -;; These are for the output routines in OUT BOOT - -(SETQ $MARGIN 3) -(SETQ *TALLPAR NIL) -(SETQ ALLSTAR NIL) -(SETQ COLON ":") -(SETQ COMMA ",") -(SETQ DASH "-") -(SETQ DOLLAR "$") -(SETQ EQSIGN "=") -(SETQ LPAR "(") -(SETQ MATBORCH "*") -(SETQ PERIOD ".") -(SETQ PLUSS "+") -(SETQ RPAR ")") -(SETQ SLASH "/") -(SETQ STAR "*") - ;; These were originally in INIT LISP (SETQ |$functorForm| NIL) |