diff options
author | dos-reis <gdr@axiomatics.org> | 2007-08-30 05:33:17 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-08-30 05:33:17 +0000 |
commit | c866e56d51d4b19c8e9526137e8ffae5db233ea9 (patch) | |
tree | afcc6f000842a4151936ba6db47bf7532927db16 /src/interp/debug.lisp.pamphlet | |
parent | 425fcbfda67e0e702cf61dcaa5a83f0809b7ebd8 (diff) | |
download | open-axiom-c866e56d51d4b19c8e9526137e8ffae5db233ea9.tar.gz |
* 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.
Diffstat (limited to 'src/interp/debug.lisp.pamphlet')
-rw-r--r-- | src/interp/debug.lisp.pamphlet | 2 |
1 files changed, 2 insertions, 0 deletions
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|))) |