diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-02 23:15:04 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-02 23:15:04 +0000 |
| commit | e517c16669bad11fe26fab31784bd83ed34878da (patch) | |
| tree | 4a79c4904bfe69f478392288cee9e411ab67bb8f /src/interp/setq.lisp | |
| parent | af766b8f0eca0aeebaba80c1fd7947f7904fb1fb (diff) | |
| download | open-axiom-e517c16669bad11fe26fab31784bd83ed34878da.tar.gz | |
* interp/spad.lisp (APLMODE): Don't define.
(XTOKENREADER): Don't set; define.
* interp/setvars.boot (resetWorkspaceVariables): Don't reset
$coerceIntByMapCounter.
* interp/setq.lisp: Stop redundant assignments.
* interp/nrunfast.boot ($NRTmonitorIfTrue): Define here.
* interp/i-object.boot (objEnv): Use $EmptyEnvironment.
* interp/i-coerce.boot ($useConvertForCoercions): Likewise.
* interp/format.boot ($abbreviateJoin): Define here.
Diffstat (limited to 'src/interp/setq.lisp')
| -rw-r--r-- | src/interp/setq.lisp | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/interp/setq.lisp b/src/interp/setq.lisp index f64336c7..abda3b8f 100644 --- a/src/interp/setq.lisp +++ b/src/interp/setq.lisp @@ -48,10 +48,7 @@ (SETQ |$returnNowhereFromGoGet| NIL) -(SETQ |$abbreviateJoin| NIL) - (SETQ |S:SPADTOK| 'SPADSYSTOK) -(SETQ APLMODE NIL) (SETQ RLGENSYMFG NIL) (SETQ RLGENSYMLST NIL) (SETQ XTOKENREADER 'SPADTOK) @@ -80,14 +77,11 @@ (SETQ |$functorForm| NIL) -(SETQ $NE (LIST (LIST NIL))) (SETQ |$suffix| NIL) -(SETQ |$coerceIntByMapCounter| 0) (SETQ |$prefix| NIL) (SETQ |$formalArgList| ()) (SETQ |$NRTopt| NIL) ;; turns off buggy code -(SETQ |$NRTmonitorIfTrue| NIL) (SETQ |$useConvertForCoercions| NIL) |