aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-08-23 07:19:34 +0000
committerdos-reis <gdr@axiomatics.org>2007-08-23 07:19:34 +0000
commitcb7a1ad2b02e7d0dbcc096889439a935c3a8e418 (patch)
treea2fe45167cedb070a1f40a6c6f57714636af2b8d /src/interp
parent7ccacce17d098df2531e2fd38b380fa086563a86 (diff)
downloadopen-axiom-cb7a1ad2b02e7d0dbcc096889439a935c3a8e418.tar.gz
* bootfuns.lisp.pamphlet (|$algebraList|): Remove unused variable.
(|$xyStack|): Likewise. (|$xyMin|): Likewise. (|$xyMax|): Likewise. (|$xyInitial|): Likewise. (|$xyCurrent|): Likewise. (|$xeditIsConsole|): Likewise. (|$xCount|): Likewise. (|$BasicDomains|): Likewise. (|$FontTable|): Likewise. (|$CommonDomains|): Likewise. (|$PolyDomains|): Likewise. (|$leftPren|): Likewise. (|$rightPren|): Likewise. (|$tempCategoryTable|): Likewise. (|$domainsWithUnderDomains|): Likewise. (|$hasCategoryTable|): Likewise. (|$hasYield|): Likewise. (|$LastCxArg|): Likewise. (|$NETail|): Likewise. (|$polyDefaultAssoc|): Likewise. (|$brightenCommentsFlag|): Likewise. (|$brightenCommentsIfTrue|): Likewise. (|$UserSynonyms|): Likewise. (|$report3|): Likewise. (|$croakIfTrue|): Likewise. * setq.lisp.pamphlet (|$xeditIsConsole|): Likewise. (|$BasicDomains|): Likewise. (|$FontTable|): Likewise. (|$leftPren|): Likewise. (|$rightPren|): Likewise. (|$NETail|): Likewise. (|$croakIfTrue|): Likewise.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/ChangeLog36
-rw-r--r--src/interp/bootfuns.lisp.pamphlet51
-rw-r--r--src/interp/setq.lisp.pamphlet8
3 files changed, 38 insertions, 57 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index b174fcdf..cb827526 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,5 +1,41 @@
2007-08-22 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * bootfuns.lisp.pamphlet (|$algebraList|): Remove unused variable.
+ (|$xyStack|): Likewise.
+ (|$xyMin|): Likewise.
+ (|$xyMax|): Likewise.
+ (|$xyInitial|): Likewise.
+ (|$xyCurrent|): Likewise.
+ (|$xeditIsConsole|): Likewise.
+ (|$xCount|): Likewise.
+ (|$BasicDomains|): Likewise.
+ (|$FontTable|): Likewise.
+ (|$CommonDomains|): Likewise.
+ (|$PolyDomains|): Likewise.
+ (|$leftPren|): Likewise.
+ (|$rightPren|): Likewise.
+ (|$tempCategoryTable|): Likewise.
+ (|$domainsWithUnderDomains|): Likewise.
+ (|$hasCategoryTable|): Likewise.
+ (|$hasYield|): Likewise.
+ (|$LastCxArg|): Likewise.
+ (|$NETail|): Likewise.
+ (|$polyDefaultAssoc|): Likewise.
+ (|$brightenCommentsFlag|): Likewise.
+ (|$brightenCommentsIfTrue|): Likewise.
+ (|$UserSynonyms|): Likewise.
+ (|$report3|): Likewise.
+ (|$croakIfTrue|): Likewise.
+ * setq.lisp.pamphlet (|$xeditIsConsole|): Likewise.
+ (|$BasicDomains|): Likewise.
+ (|$FontTable|): Likewise.
+ (|$leftPren|): Likewise.
+ (|$rightPren|): Likewise.
+ (|$NETail|): Likewise.
+ (|$croakIfTrue|): Likewise.
+
+2007-08-22 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* bootfuns.lisp.pamphlet ($bootStrapMode): Move to sys-globals.boot.
($BreakMode): Likewise.
($cacheAlist): Likewise.
diff --git a/src/interp/bootfuns.lisp.pamphlet b/src/interp/bootfuns.lisp.pamphlet
index 099cd042..ba3ceb97 100644
--- a/src/interp/bootfuns.lisp.pamphlet
+++ b/src/interp/bootfuns.lisp.pamphlet
@@ -110,19 +110,6 @@ offer it as extensions.
(export '(,p) "BOOT")))
-(def-boot-val |$algebraList|
- '(|QuotientField| |Polynomial|
- |UnivariatePoly|
- |MultivariatePolynomial|
- |DistributedMultivariatePolynomial|
- |HomogeneousDistributedMultivariatePolynomial|
- |Gaussian| |SquareMatrix|
- |RectangularMatrix|) "???")
-(def-boot-val |$BasicDomains|
- '(|Integer| |Float| |Symbol|
- |Boolean| |String|) "???")
-(def-boot-var |$brightenCommentsFlag| "???")
-(def-boot-var |$brightenCommentsIfTrue| "???")
; modemap:== ( <map> (p e) (p e) ... (p e) )
; modemaplist:= ( modemap ... )
@@ -133,17 +120,8 @@ offer it as extensions.
(((|Category|) (|Category|) (|List| |Category|)) (|Category|)) (T *))
)))))
"Compiler>CUtil.boot")
-(def-boot-val |$CommonDomains|
- '(|Record| |Union| |List| |Vector|
- |String| |Float| |Integer|
- |NonNegativeInteger| |Expression|
- |NonPositiveInteger|
- |PositiveInteger| |SmallInteger|
- |Boolean|) "???")
-
(def-boot-var |$compileMapFlag| "Interpreter>SetVars.boot")
(def-boot-var |$constructorsNotInDatabase| "Interpreter>Database.boot")
-(def-boot-var |$croakIfTrue| "See moan in U.")
(def-boot-val $delay 0 "???")
(def-boot-var $Directory "???")
(def-boot-var $DISPLAY "???")
@@ -154,7 +132,6 @@ offer it as extensions.
(def-boot-var |$exitMode| "???")
(def-boot-var |$exitModeStack| "???")
(def-boot-val |$false| NIL "???")
-(def-boot-val |$FontTable| '(|FontTable|) "???")
(def-boot-var |$forceDatabaseUpdate| "See load function.")
(def-boot-var |$form| "???")
(def-boot-var |$fromSpadTrace| "Interpreter>Trace.boot")
@@ -164,8 +141,6 @@ offer it as extensions.
(def-boot-val |$gauss01| '(|gauss| 0 1) "???")
(def-boot-var |$genFVar| "???")
(def-boot-val |$genSDVar| 0 "counter for genSomeVariable" )
-(def-boot-val |$hasCategoryTable| (MAKE-HASHTABLE 'UEQUAL) "???")
-(def-boot-var |$hasYield| "???")
(def-boot-var |$ignoreCommentsIfTrue| "???")
(def-boot-var |$Index| "???")
(def-boot-var |$inLispVM| "Interpreter>Eval.boot")
@@ -182,12 +157,10 @@ offer it as extensions.
(def-boot-var |$InteractiveMode| "Interactive>System.boot")
(def-boot-val |$InteractiveModemapFrame| '((NIL)) "???")
(def-boot-var |$InteractiveTimingStatsIfTrue| "???")
-(def-boot-var |$LastCxArg| "???")
(def-boot-val $lastprefix "S-" "???")
(def-boot-val |$lastUntraced| NIL "Used for )restore option of )trace.")
(def-boot-var |$leaveLevelStack| "???")
(def-boot-var |$leaveMode| "???")
-(def-boot-val |$leftPren| "(" "For use in SAY expressions.")
(def-boot-val |$letAssoc| NIL "Used for trace of assignments in SPAD code.")
(def-boot-var |$libFile| "Compiler>LispLib.boot")
(def-boot-var $LINENUMBER "???")
@@ -211,7 +184,6 @@ offer it as extensions.
(def-boot-var |$ModemapFrame| "???")
(def-boot-var |$mostRecentOpAlist| "???")
(def-boot-var $NBOOT "???")
-(def-boot-val |$NETail| (CONS |$EmptyEnvironment| NIL) "???")
(def-boot-var $NEWLINSTACK "???")
(def-boot-var |$noEnv| "???")
(def-boot-val $num_of_meta_errors 0 "Number of errors seen so far")
@@ -225,13 +197,6 @@ offer it as extensions.
(def-boot-var |$OutsideStringIfTrue| "???")
(def-boot-var |$PolyMode| "???")
(def-boot-val |$Polvar| '(WRAPPED . ((1 . 1))) "???")
-(def-boot-var |$polyDefaultAssoc| "???")
-(def-boot-val |$PolyDomains|
- '(|Polynomial| |MultivariatePolynomial|
- |UnivariatePoly|
- |DistributedMultivariatePolynomial|
- |HomogeneousDistributedMultivariatePolynomial|)
- "???")
(def-boot-var |$postStack| "???")
(def-boot-var |$prefix| "???")
(def-boot-val |$PrettyPrint| nil "if t generated code is prettyprinted")
@@ -246,13 +211,11 @@ offer it as extensions.
(def-boot-val |$printConStats| nil "display constructor cache totals")
(def-boot-val |$printLoadMsgs| 't "Interpreter>SetVarT.boot")
(def-boot-var |$PrintOnly| "Compiler>LispLib.boot")
-(def-boot-val |$UserSynonyms| () "list of user defined synonyms")
(def-boot-val |$SystemSynonyms| () "list of system defined synonyms")
(def-boot-val |$QuickCode| NIL "Controls generation of QREFELT, etc.")
(def-boot-val |$QuickLet| NIL "Set to T for no LET tracing.")
(def-boot-var |$QuietIfNil| "???")
(def-boot-var |$readingFile| "???")
-(def-boot-val |$report3| nil "addMap report info")
(def-boot-var |$reportBottomUpFlag| "Interpreter>SetVarT.boot")
(def-boot-var |$reportCoerce| "???")
(def-boot-var |$reportCoerceIfTrue| "???")
@@ -262,7 +225,6 @@ offer it as extensions.
(def-boot-val |$reportSpadTrace| () "report list of traced functions")
(def-boot-var |$resolveFlag| "Interpreter>SetVars.boot")
(def-boot-var |$returnMode| "???")
-(def-boot-val |$rightPren| ")" "???")
(def-boot-var |$scanModeFlag| "???")
(def-boot-var |$semanticErrorStack| "???")
(def-boot-val |$SetFunctions| nil "checked in SetFunctionSlots")
@@ -282,7 +244,6 @@ offer it as extensions.
(def-boot-val |$systemCreation| (currenttime) "???")
(def-boot-val |$systemLastChanged|
|$systemCreation| "???")
-(def-boot-val |$tempCategoryTable| (MAKE-HASHTABLE 'UEQUAL) "???")
(def-boot-val |$timerOn| t "???")
(def-boot-var |$topOp| "See displayPreCompilationErrors")
(def-boot-var $TOKSTACK "???")
@@ -307,16 +268,8 @@ offer it as extensions.
(def-boot-var |$VariableCount| "???")
(def-boot-var |$warningStack| "???")
(def-boot-val |$whereList| () "referenced in format boot formDecl2String")
-(def-boot-var |$xCount| "???")
-(def-boot-var |$xeditIsConsole| "???")
-(def-boot-var |$xyCurrent| "???")
-(def-boot-var |$xyInitial| "???")
-(def-boot-var |$xyMax| "???")
-(def-boot-var |$xyMin| "???")
-(def-boot-var |$xyStack| "???")
-
-(def-boot-val |$domainsWithUnderDomains|
- (mapcar #'car |$underDomainAlist|) "???")
+
+
(def-boot-val |$inputPromptType| '|step| "checked in MKPROMPT")
(def-boot-val |$IOindex| 0 "step counter")
diff --git a/src/interp/setq.lisp.pamphlet b/src/interp/setq.lisp.pamphlet
index 4e396b5d..aa3ceda3 100644
--- a/src/interp/setq.lisp.pamphlet
+++ b/src/interp/setq.lisp.pamphlet
@@ -353,16 +353,10 @@
(SETQ |$highlightAllowed| 'T)
;" used in BRIGHTPRINT and is a )set variable"
-(SETQ |$leftPren| "(") ;;[for use in SAY expressions]
-(SETQ |$rightPren| ")")
-
-(|SETQ| |$BasicDomains| '(|Integer| |Float| |Symbol| |Boolean| |String|))
-
(SETQ |$PrintCompilerMessagesIfTrue| NIL)
(SETQ |$printStorageIfTrue| NIL) ;; storage info disabled in common lisp
(SETQ |$mostRecentOpAlist| NIL)
(SETQ |$noEnv| NIL)
-(SETQ |$croakIfTrue| NIL) ;" see moan in UT"
(SETQ |$opFilter| NIL) ;" used to |/s a function "
(SETQ |$evalDomain| NIL)
@@ -371,7 +365,6 @@
(SETQ |$OutputForm| '(|OutputForm|))
-(SETQ |$FontTable| '(|FontTable|))
(SETQ |$ComplexInteger| (LIST '|Complex| |$Integer|))
(SETQ |$QuotientField| '|Fraction|)
(SETQ |$FunctionalExpression| '|Expression|)
@@ -384,7 +377,6 @@
(SETQ $NE (LIST (LIST NIL)))
(SETQ |$InteractiveFrame| (LIST (LIST NIL)))
(SETQ |$gauss01| '(|gauss| 0 1))
-(SETQ |$NETail| (CONS |$EmptyEnvironment| NIL))
(SETQ |$form| NIL)
(SETQ |$Index| 0)
(SETQ |$false| NIL)