From 425fcbfda67e0e702cf61dcaa5a83f0809b7ebd8 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 29 Aug 2007 13:38:42 +0000
Subject: 	* sys-globals.boot ($leaveLevelStack): Move from 
 bootfuns.lisp.pamphlet. 	($letAssoc): Likewise. 	($libFile): Likewise. 
 ($lisplibForm): Likewise. 	($lisplibKind): Likewise. 
 ($lisplibModemapAlist): Likewise. 	($lisplibModemap): Likewise. 
 ($lisplibOperationAlist): Likewise. 	($lisplibSignatureAlist): Likewise. 
 ($lisplibVariableAlist): Likewise. 	($mapSubNameAlist): Likewise. 
 ($mathTrace): Lilkewise. 	($mathTraceList): Likewise.

	* sys-constants.boot ($exitMode): Likewise.
	($leaveMode): Likewise.
	($noEnv): Likewise.

	* trace.boot.pamphlet ($lastUntraced): Likewise.

	* spad.lisp.pamphlet (|$leaveMode|): Don't bind here.

	* setq.lisp.pamphlet (|$Lisp|): Remove.
	(|$noEnv|): Don't set here.
	(|$lastUntraced|): Likewise.
	(|$mostRecentOpAlist|): Likewise.
	(|$mathTraceList|): Likewise.
	(|$letAssoc|): Likewise.

	* bootfuns.lisp.pamphlet (|$noEnv|): Move to sys-constants.boot.
	(|$leaveMode|): Likewise.
	(|$lastUntraced|): Move to trace.boot.pamphlet.
	(|$leaveLevelStack|): Move to sys-globals.boot.
	(|$letAssoc|): Likewise.
	(|$libFile|): Likewise.
	(|$lisplibDomainDependents|): Likewise.
	(|$lisplibForm|): Likewise.
	(|$lisplibKind|): Likewise.
	(|$lisplibModemapAlist|): Likewise.
	(|$lisplibModemap|): Likewise.
	(|$lisplibOperationAlist|): Likewise.
	(|$lisplibSignatureAlist|): Likewise.
	(|$lisplibVariableAlist|): Likewise.
	(|$mapSubNameAlist|): Likewise.
	(|$mathTrace|): Likewise.
	(|$mathTraceList|): Likewise.

	(|$Lisp|): Remove.
	(|$lisplibDependentCategories|): Likewise.
	(|$lisp2lispRenameAssoc|): Likewise.
	(|$ModemapFrame|): Likewise.
	(|$mostRecentOpAlist|): Likewise.
---
 src/interp/trace.boot.pamphlet | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/interp/trace.boot.pamphlet')

diff --git a/src/interp/trace.boot.pamphlet b/src/interp/trace.boot.pamphlet
index f6890cde..1563ea98 100644
--- a/src/interp/trace.boot.pamphlet
+++ b/src/interp/trace.boot.pamphlet
@@ -84,6 +84,9 @@ SETANDFILEQ($traceOptionList,'(
     within _
     ))
 
+
+SETANDFILEQ($lastUntraced,NIL)
+
 trace l == traceSpad2Cmd l
 
 traceSpad2Cmd l ==
-- 
cgit v1.2.3