aboutsummaryrefslogtreecommitdiff
path: root/src/interp/debug.lisp.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-09-02 14:20:48 +0000
committerdos-reis <gdr@axiomatics.org>2007-09-02 14:20:48 +0000
commitbeb1d42c90bb0489b98c1dc6816915868506e041 (patch)
treedaede1c979b8d22a06b3cf5a643bebe376dcd1b4 /src/interp/debug.lisp.pamphlet
parent98cd1f5a4b6469760944d4455c04185d571c67ed (diff)
downloadopen-axiom-beb1d42c90bb0489b98c1dc6816915868506e041.tar.gz
* 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.
Diffstat (limited to 'src/interp/debug.lisp.pamphlet')
-rw-r--r--src/interp/debug.lisp.pamphlet7
1 files changed, 6 insertions, 1 deletions
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|)))