diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-02 15:04:32 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-02 15:04:32 +0000 |
| commit | a4a1cbc3f3dc2b5822733ebd1f54ba7d4e133c39 (patch) | |
| tree | 62fde97ec4b09266a9fb584f04f7a676b6f808d5 /src/interp/setq.lisp | |
| parent | c78c9f3c403b2154127f16dec9b1c95879601f5e (diff) | |
| download | open-axiom-a4a1cbc3f3dc2b5822733ebd1f54ba7d4e133c39.tar.gz | |
* interp/sys-globals.boot ($consistencyCheck): Remove.
($insideCanCoerceFrom): Define.
* interp/setq.lisp: Remove more unused variables.
* interp/patches.lisp (/RF-1): Tidy.
* interp/server.boot (parseAndInterpret): Likewise.
* interp/packtran.boot ($useNewParser): Remove.
* interp/ht-util.boot (parseAndEval): Tidy.
* interp/clam.boot ($failed): Define.
* interp/g-timer.boot ($printStorageIfTrue): Likewise.
* interp/hashcode.boot ($DomainsWithoutLisplibs): Likewise.
* interp/i-coerce.boot ($useCoerceOrCroak): Likewise.
* interp/i-analy.boot ($univariateDomains): Likewise.
($multivariateDomains): Likewise.
* interp/i-object.boot ($useIntegerSubdomain): Likewise.
* interp/i-syscmd.boot ($existingFiles): Likewise.
* interp/newfort.boot ($fortranArrayStartingIndex): Likewise.
* interp/setvars.boot (resetWorkspaceVariables): Don't reset
$dependeeClosureAlist.
Diffstat (limited to 'src/interp/setq.lisp')
| -rw-r--r-- | src/interp/setq.lisp | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/src/interp/setq.lisp b/src/interp/setq.lisp index db0998ff..eb0202ee 100644 --- a/src/interp/setq.lisp +++ b/src/interp/setq.lisp @@ -46,29 +46,14 @@ (defvar MARG 0) ;" Margin for testing by ?OP" -(SETQ |$consistencyCheck| 'T) -(SETQ |$ruleSetsInitialized| NIL) - -;; tell the system not to use the new parser -(SETQ |$useNewParser| NIL) - -(SETQ |$htPrecedenceTable| NIL) - (SETQ |$NRTmakeCompactDirect| NIL) (SETQ |$NRTquick| NIL) (SETQ |$NRTmakeShortDirect| NIL) (SETQ |$newWorld| NIL) (SETQ |$returnNowhereFromGoGet| NIL) -(SETQ |$insideCanCoerceFrom| NIL) - -(SETQ |$useCoerceOrCroak| T) - (SETQ |$abbreviateJoin| NIL) -;; variables controlling companion pages (see copage.boot) -(SETQ |$HTCompanionWindowID| nil) - (SETQ |S:SPADTOK| 'SPADSYSTOK) (SETQ APLMODE NIL) (SETQ RLGENSYMFG NIL) @@ -94,48 +79,11 @@ (SETQ RPAR ")") (SETQ SLASH "/") (SETQ STAR "*") -(SETQ |$fortranArrayStartingIndex| 0) ;; These were originally in INIT LISP -(SETQ |$dependeeClosureAlist| NIL) -(SETQ |$userModemaps| NIL) (SETQ |$functorForm| NIL) -(SETQ |$existingFiles| (MAKE-HASHTABLE 'UEQUAL)) - -(SETQ |$instantRecord| (MAKE-HASHTABLE 'ID)) - -(SETQ |$useIntegerSubdomain| 'T) -(SETQ |$useNewFloat| 'T) - -;; the following symbol holds the canonical "failed" value -(SETQ |$failed| "failed") - -(SETQ |$constructorDataTable| NIL) - -(SETQ |$univariateDomains| '( - |UnivariatePolynomial| - |UnivariateTaylorSeries| - |UnivariateLaurentSeries| - |UnivariatePuiseuxSeries| - )) -(SETQ |$multivariateDomains| '( - |MultivariatePolynomial| - |DistributedMultivariatePolynomial| - |HomogeneousDistributedMultivariatePolynomial| - |GeneralDistributedMultivariatePolynomial| - )) - -(SETQ |$DomainsWithoutLisplibs| '( - CAPSULE |Union| |Record| |SubDomain| |Mapping| |Enumeration| |Domain| |Mode|)) - -(SETQ |$tracedMapSignatures| ()) - -(SETQ |$printStorageIfTrue| NIL) ;; storage info disabled in common lisp - -(SETQ |$defaultFunctionTargets| '(())) - (SETQ $NE (LIST (LIST NIL))) (SETQ |$suffix| NIL) (SETQ |$coerceIntByMapCounter| 0) |