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