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/spad.lisp.pamphlet | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/src/interp/spad.lisp.pamphlet b/src/interp/spad.lisp.pamphlet
index dff77a2c..40e2f568 100644
--- a/src/interp/spad.lisp.pamphlet
+++ b/src/interp/spad.lisp.pamphlet
@@ -351,10 +351,8 @@
 	(*print-pretty* t)
 	($MACROASSOC ())
 	($NEWSPAD T)
-	(|$PolyMode| |$EmptyMode|)
 	(|$compUniquelyIfTrue| nil)
 	|$currentFunction|
-	(|$postStack| nil)
 	|$topOp|
 	(|$semanticErrorStack| ())
 	(|$warningStack| ())
@@ -370,6 +368,7 @@
     (prog ((CURSTRM CUROUTSTREAM) |$s| |$x| |$m| u)
 	  (declare (special CURSTRM |$s| |$x| |$m| CUROUTSTREAM))
 	  (SETQ |$exitModeStack| ())
+	  (SETQ |$postStack| nil)
 	  (SETQ $TRACEFLAG T)
 	  (if (NOT X) (RETURN NIL))
 	  (setq X (if $BOOT (DEF-RENAME (|new2OldLisp| X))
-- 
cgit v1.2.3