From b4512335b01d5d2cd345f0b95ca08fb5191cad03 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 3 Sep 2007 11:22:38 +0000 Subject: * bootfuns.lisp.pamphlet ($TOP_LEVEL): Move to sys-globals.boot. ($TOKSTACK): Likewise. ($function): Likewise. ($FUNNAME): Likewise. ($FunName_Tail): Likewise. ($lastprefix): Likewise. ($linestack): Likewise. ($maxlinenumber): Likewise. ($OLDLINE): Likewise. ($SPAD): Likewise. ($delay): Move to debug.lisp.pamphlet. ($LINENUMBER): Likewise. ($Directory): Remove. ($top_stack): Remove. ($DISPLAY): Likewise. (|$gauss01|): Likewise. ($NBOOT): Likewise. ($NEWLINSTACK): Likewise. ($num_of_meta_errors): Move to metalex.lisp.pamphlet. * setq.lisp.pamphlet ($TOP_LEVEL): Don't set here. ($DISPLAY): Likewise. ($FUNNAME): Likewise. ($FUNNAME_TAIL): Likewise. (|$gauss01|): Likewise. ($LASTPREFIX): Likewise. ($NBOOT): Likewise. ($OLDLINE): Likewise. * spad.lisp.pamphlet ($linestack): Likewise. ($maxlinenumber): Likewise. (|New,ENTRY,1|): Don't bind here. --- src/interp/setq.lisp.pamphlet | 8 -------- 1 file changed, 8 deletions(-) (limited to 'src/interp/setq.lisp.pamphlet') diff --git a/src/interp/setq.lisp.pamphlet b/src/interp/setq.lisp.pamphlet index 745d5db6..c8d61b0c 100644 --- a/src/interp/setq.lisp.pamphlet +++ b/src/interp/setq.lisp.pamphlet @@ -84,7 +84,6 @@ ;; These were originally in SPAD LISP (SETQ $BOOT NIL) -(SETQ $NBOOT NIL) (setq |$interpOnly| nil) (SETQ |$testingSystem| NIL) (SETQ |$publicSystem| NIL) @@ -121,16 +120,11 @@ (setq |$Newline| #\Newline) -(SETQ $FUNNAME NIL) ;; this and next used in COMP,TRAN,1 -(SETQ $FUNNAME_TAIL '(())) -(SETQ $LASTPREFIX "S:") ;"default setting" (SETQ STAKCOLUMN -1) (SETQ ECHOMETA NIL) (SETQ |$checkParseIfTrue| 'NIL) (SETQ |$oldParserExpandAbbrs| NIL) -(SETQ $DISPLAY NIL) (SETQ |S:SPADKEY| NIL) ;" this is augmented by MAKESPADOP" -(SETQ $OLDLINE NIL) ;"used to output command lines" (SETQ |/EDIT,FT| 'SPAD) (SETQ |/EDIT,FM| 'A) (SETQ /EDITFILE NIL) @@ -347,9 +341,7 @@ ;; New Names (SETQ |$SingleInteger| '(|SingleInteger|)) -(SETQ $TOP_LEVEL T) (SETQ $NE (LIST (LIST NIL))) -(SETQ |$gauss01| '(|gauss| 0 1)) (SETQ |$suffix| NIL) (SETQ |$coerceIntByMapCounter| 0) (SETQ |$reportCoerce| NIL) -- cgit v1.2.3