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 | |
| parent | e517c16669bad11fe26fab31784bd83ed34878da (diff) | |
| download | open-axiom-7827db4dfa2974604baf823caf3f8be7d8e22d9d.tar.gz | |
* interp/setq.lisp: Remove redundant assignments.
| -rw-r--r-- | src/interp/br-util.boot | 1 | ||||
| -rw-r--r-- | src/interp/setq.lisp | 27 |
2 files changed, 0 insertions, 28 deletions
diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot index 7fa3fd8f..2ce4347c 100644 --- a/src/interp/br-util.boot +++ b/src/interp/br-util.boot @@ -64,7 +64,6 @@ $docTable := nil --cache for documentation table $conArgstrings := nil --bound by conPage so that kPage --will display arguments if given $conformsAreDomains := false --are all arguments of a constructor given? -$returnNowhereFromGoGet := false --special branch out for goget for browser $dbDataFunctionAlist := nil --set by dbGatherData $domain := nil --bound in koOps $infovec := nil --bound in koOps 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) |