diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-02 18:55:48 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-02 18:55:48 +0000 |
| commit | 869512ac1dd0bc9c80182cbef6e01b39540fef7f (patch) | |
| tree | 41e3dc594407411855cb62364327c2cb7f533561 /src/interp/c-util.boot.pamphlet | |
| parent | beb1d42c90bb0489b98c1dc6816915868506e041 (diff) | |
| download | open-axiom-869512ac1dd0bc9c80182cbef6e01b39540fef7f.tar.gz | |
* compiler.boot.pamphlet (tc): Don't set $tripleCache.
* define.boot.pamphlet (compDefine): Likewise.
* wi1.boot.pamphlet (compDefine): Likewise.
* c-util.boot.pamphlet (displayComp): Likewise.
* spad.lisp.pamphlet (/TRANSPAD): Likewise.
* bootfuns.lisp.pamphlet (|$useDCQnotLET|): Move to
sys-globals.boot.
(|$updateCatTableIfTrue|): Likewise.
(|$updateIfTrue|): Remove.
(|$streamCount|): Likewise.
(|$tripleCache|): Remove.
(|$TranslateOnly|): Likewise.
(|$topOp|): Likewise.
(|$streamIndexing|): Remove.
(|$streamAlist|): Likewise.
* setq.lisp.pamphlet (|$useDCQnotLET|): Don't set here.
($streamAlist): Likewise.
(|$updateCatTableIfTrue|): Likewise.
(|$streamIndexing|): Likewise.
(|$streamCount|): Likewise.
Diffstat (limited to 'src/interp/c-util.boot.pamphlet')
| -rw-r--r-- | src/interp/c-util.boot.pamphlet | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/interp/c-util.boot.pamphlet b/src/interp/c-util.boot.pamphlet index 550d5e7a..ceae86d1 100644 --- a/src/interp/c-util.boot.pamphlet +++ b/src/interp/c-util.boot.pamphlet @@ -108,7 +108,6 @@ displayWarning(l,stream) == sayBrightly(['" [",i,'"] ",:x],stream) displayComp level == - $tripleCache:= nil $bright:= " << " $dim:= " >> " if $insideCapsuleFunctionIfTrue=true then @@ -911,7 +910,6 @@ traverse(fn, arg, ob) == (DEFUN |displayWarning| (|l| |stream|) (SEQ (DO ((#0=#:G2550 |l| (CDR #0#)) (|x| NIL) (|i| 1 (QSADD1 |i|))) ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL)) NIL) (SEQ (EXIT (|sayBrightly| (CONS (MAKESTRING " [") (CONS |i| (CONS (MAKESTRING "] ") |x|))) |stream|)))))) ; ;displayComp level == -; $tripleCache:= nil ; $bright:= " << " ; $dim:= " >> " ; if $insideCapsuleFunctionIfTrue=true then @@ -929,7 +927,7 @@ traverse(fn, arg, ob) == ;;; *** |displayComp| REDEFINED -(DEFUN |displayComp| (|level|) (PROG (|LETTMP#1|) (RETURN (PROGN (SPADLET |$tripleCache| NIL) (SPADLET |$bright| (QUOTE | << |)) +(DEFUN |displayComp| (|level|) (PROG (|LETTMP#1|) (RETURN (PROGN (SPADLET |$bright| (QUOTE | << |)) (SPADLET |$dim| (QUOTE | >> |)) (COND ((BOOT-EQUAL |$insideCapsuleFunctionIfTrue| (QUOTE T)) (|sayBrightly| (CONS (MAKESTRING "error in function") (CONS (QUOTE |%b|) (CONS |$op| (CONS (QUOTE |%d|) (CONS (QUOTE |%l|) NIL)))))))) (|pp| (|removeZeroOne| (|mkErrorExpr| |level|))) (|sayBrightly| (CONS (MAKESTRING "****** level") (CONS (QUOTE |%b|) (CONS |level| (CONS (QUOTE |%d|) (CONS (MAKESTRING " ******") NIL)))))) (SPADLET |LETTMP#1| (ELEM |$s| |level|)) (SPADLET |$x| (CAR |LETTMP#1|)) (SPADLET |$m| (CADR |LETTMP#1|)) (SPADLET |$f| (CADDR |LETTMP#1|)) (SPADLET |$exitModeStack| (CADDDR |LETTMP#1|)) (SPADLET $X |$x|) (SPADLET $M |$m|) (SPADLET $F |$f|) (SAY (MAKESTRING "$x:= ") |$x|) (SAY (MAKESTRING "$m:= ") |$m|) (SAY (MAKESTRING "$f:=")) (|F,PRINT-ONE| |$f|) NIL)))) ; ;mkErrorExpr level == |