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/debug.lisp.pamphlet | 2 ++
 1 file changed, 2 insertions(+)

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

diff --git a/src/interp/debug.lisp.pamphlet b/src/interp/debug.lisp.pamphlet
index f825845f..d5303b2c 100644
--- a/src/interp/debug.lisp.pamphlet
+++ b/src/interp/debug.lisp.pamphlet
@@ -1111,6 +1111,8 @@ EXAMINE (SETQ RECNO (NOTE INPUTSTREAM))
 ; Functions to run a timer for tracing
 ; It avoids timing the tracing function itself by turning the timer
 ; on and off
+
+(defvar |$oldTime| 0)
  
 (defun |startTimer| ()
     (SETQ $delay (PLUS $delay (DIFFERENCE (TEMPUS-FUGIT) |$oldTime|)))
-- 
cgit v1.2.3