diff options
| -rw-r--r-- | src/interp/ChangeLog | 36 | ||||
| -rw-r--r-- | src/interp/bootfuns.lisp.pamphlet | 51 | ||||
| -rw-r--r-- | src/interp/setq.lisp.pamphlet | 8 |
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) |