From c866e56d51d4b19c8e9526137e8ffae5db233ea9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 30 Aug 2007 05:33:17 +0000
Subject: 	* sys-globals.boot ($prefix): Move from
 bootfuns.lisp.pamphlet. 	($PrettyPrint): Likewise. 
 ($previousTime): Likewise.

	* bootfuns.lisp.pamphlet (|$prefix|): Move to sys-globals.boot.
	(|$PrettyPrint|): Likewise.
	(|$previousTime|): Likewise.
	(|$postStack|): Move to postpar.boot.pamphlet.
	(|$OneCoef|): Remove.
	(|$operationNameList|): Likewise.
	(|$opFilter|): Likewise.
	(|$optionAlist|): Likewise.
	(|$OutsideStringIfTrue|): Likewise.
	(|$PolyMode|): Likewise.
	(|$Polvar|): Likewise.
	(|$optimizableDomainNames|): Likewise.
	(|$PrintBox|): Likewise.
	(|$PrintCompilerMessagesIfTrue|): Likewise.
	(|$printConStats|): Likewise.

	* setq.lisp.pamphlet (|$opFilter|): Remove.
	(|$OneCoef|): Likewise.
	(|$Polvar|): Likewise.
	(|$PrintCompilerMessagesIfTrue|): Likewise.

	* spad.lisp.pamphlet (S-PROCESS): Don't bind |$postStack|.  Set it
	to nil.

	* debug.lisp.pamphlet (|$oldTime|): Move from bootfuns.lisp.pamphlet.

	* bootfuns.lisp.pamphlet (|$oldTime|): Move to debug.lisp.pamphlet.
	* setvars.boot.pamphlet (resetWorkspaceVariables): Don't set
	$operationNameList anymore.
	* spad.lisp.pamphlet (S-PROCESS): Don't bind $PolyMode anymore.
---
 src/interp/setq.lisp.pamphlet | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'src/interp/setq.lisp.pamphlet')

diff --git a/src/interp/setq.lisp.pamphlet b/src/interp/setq.lisp.pamphlet
index 32ab00e0..89e872a4 100644
--- a/src/interp/setq.lisp.pamphlet
+++ b/src/interp/setq.lisp.pamphlet
@@ -342,9 +342,7 @@
 (SETQ |$highlightAllowed| 'T)
 	 ;" used in BRIGHTPRINT and is a )set variable"
 
-(SETQ |$PrintCompilerMessagesIfTrue| NIL)
 (SETQ |$printStorageIfTrue| NIL) ;; storage info disabled in common lisp
-(SETQ |$opFilter| NIL)	 ;" used to |/s a function "
 
 (SETQ |$AnonymousFunction| '(|AnonymousFunction|))
 (SETQ |$Any|   '(|Any|))
@@ -370,8 +368,6 @@
 (SETQ |$streamIndexing| NIL)
 (SETQ |$reportExitModeStack| NIL)
 (SETQ |$prefix| NIL)
-(SETQ |$Polvar| '(WRAPPED . ((1 . 1))))
-(SETQ |$OneCoef| '(1 1 . 1))
 (SETQ |$formalArgList| ())
 (SETQ |$TriangleVariableList|
    '(|t#1| |t#2| |t#3| |t#4| |t#5| |t#6| |t#7| |t#8| |t#9| |t#10|
-- 
cgit v1.2.3