aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/br-util.boot1
-rw-r--r--src/interp/setq.lisp27
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)