From beb1d42c90bb0489b98c1dc6816915868506e041 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 2 Sep 2007 14:20:48 +0000
Subject: 	* sys-globals.boot ($VariableCount): Move from 
 bootfuns.lisp.pamphlet. 	($suffix): Likewise. 	($useBFasDefault):
 Likewise. 	($semanticErrorStack): Likewise. 	($tracedModemap):
 Likewise. 	($tracedSpadModemap): Likewise. 	($traceletFunctions):
 Likewise. 	* bootfuns.lisp.pamphlet (|$VariableCount|): Move to 
 sys-globals.boot. 	(|$suffix|): Likewise. 	(|$useBFasDefault|): Likewise.
 	(|$semanticErrorStack|): Likewise. 	(|$tracedModemap|): Likewise. 
 (|$tracedSpadModemap|): Likewise. 	(|$traceletFunctions|): Likewise. 
 (|$TraceFlag|): Move to debug.lisp.pamphlet. 	(|$traceDomains|): Likewise. 
 (|$systemLastChanged|): Remove. 	(|$systemCreation|): Likewise. 
 (|$StreamIndex|): Remove. 	(|$spadSystemDisks|): Likewise. 
 (|$spadOpList|): Likewise. 	(|$traceNoisely|): Remove from here. 
 (|$timerOn|): Move to debug.lisp.pamphlet. 	* setq.lisp.pamphlet
 (|$systemLastChanged|): Remove. 	(|$systemCreation|): Likewise. 	*
 setq.lisp.pamphlet (|$useBFasDefault|): Don't set here. 	*
 setq.lisp.pamphlet (|$reportExitModeStack|): Likewise. 	*
 setq.lisp.pamphlet (|$spadSystemDisks|): Likewise. 	* spad.lisp.pamphlet
 (|$useBFasDefault|): Likewise.

---
 src/interp/debug.lisp.pamphlet | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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

diff --git a/src/interp/debug.lisp.pamphlet b/src/interp/debug.lisp.pamphlet
index d5303b2c..23929b52 100644
--- a/src/interp/debug.lisp.pamphlet
+++ b/src/interp/debug.lisp.pamphlet
@@ -527,7 +527,9 @@ EXAMINE (SETQ RECNO (NOTE INPUTSTREAM))
 (DEFUN /TRACE-1 (FNLIST OPTIONS)
    (mapcar #'(lambda (X) (/TRACE-2 X OPTIONS)) FNLIST)
    (/TRACEREPLY))
- 
+
+(defvar |$traceDomains| t)
+
 (DEFUN /TRACE-2 (FN OPTIONS)
   (PROG (U FNVAL COUNTNAM TRACECODE BEFORE AFTER CONDITION
          TRACENAME CALLER VARS BREAK FROM_CONDITION VARBREAK TIMERNAM
@@ -1015,6 +1017,8 @@ EXAMINE (SETQ RECNO (NOTE INPUTSTREAM))
                   COUNTNAM TIMERNAM BEFORE AFTER
                   CONDITION BREAK |$tracedModemap| ''T)))))
         (RETURN G1)))
+
+(defvar |$TraceFlag| t)
  
 (defun /MONITORX (/ARGS FUNCT OPTS &AUX NAME TYPE TRACECODE COUNTNAM TIMERNAM
                         BEFORE AFTER CONDITION BREAK TRACEDMODEMAP
@@ -1113,6 +1117,7 @@ EXAMINE (SETQ RECNO (NOTE INPUTSTREAM))
 ; on and off
 
 (defvar |$oldTime| 0)
+(defvar |$timerOn| t)
  
 (defun |startTimer| ()
     (SETQ $delay (PLUS $delay (DIFFERENCE (TEMPUS-FUGIT) |$oldTime|)))
-- 
cgit v1.2.3