diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-23 06:52:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-23 06:52:01 +0000 |
| commit | 3a808df770c8702a9e330effa0b6e462eaaaee01 (patch) | |
| tree | 70ae032632cb6510146ca6eecb8f2ed343da7096 /src/boot/strap/pile.clisp | |
| parent | b12753cada058f5fafd9f6aeaa7d2e932eb8ff23 (diff) | |
| download | open-axiom-3a808df770c8702a9e330effa0b6e462eaaaee01.tar.gz | |
* boot/includer.boot (%SourceLine): New datatype.
(makeSourceLine): New.
Use source line macro accessors.
* boot/pile.boot: Likewise.
* boot/scanner.boot: Likewise.
Diffstat (limited to 'src/boot/strap/pile.clisp')
| -rw-r--r-- | src/boot/strap/pile.clisp | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/boot/strap/pile.clisp b/src/boot/strap/pile.clisp index 6eb0c938..fb2da17f 100644 --- a/src/boot/strap/pile.clisp +++ b/src/boot/strap/pile.clisp @@ -24,19 +24,17 @@ (CONS (LIST (ELT |a| 2)) (ELT |a| 3)))))))) (DEFUN |shoePileTree| (|n| |s|) - (LET* (|hh| |t| |h| |LETTMP#1|) + (LET* (|hh| |t| |h|) (COND ((|bStreamNull| |s|) (LIST NIL |n| NIL |s|)) - (T (SETQ |LETTMP#1| (LIST (CAR |s|) (CDR |s|))) - (SETQ |h| (CAR |LETTMP#1|)) (SETQ |t| (CADR |LETTMP#1|)) + (T (SETQ |h| (CAR |s|)) (SETQ |t| (CDR |s|)) (SETQ |hh| (|shoePileColumn| |h|)) (COND ((< |n| |hh|) (|shoePileForests| |h| |hh| |t|)) (T (LIST NIL |n| NIL |s|))))))) (DEFUN |eqshoePileTree| (|n| |s|) - (LET* (|hh| |t| |h| |LETTMP#1|) + (LET* (|hh| |t| |h|) (COND ((|bStreamNull| |s|) (LIST NIL |n| NIL |s|)) - (T (SETQ |LETTMP#1| (LIST (CAR |s|) (CDR |s|))) - (SETQ |h| (CAR |LETTMP#1|)) (SETQ |t| (CADR |LETTMP#1|)) + (T (SETQ |h| (CAR |s|)) (SETQ |t| (CDR |s|)) (SETQ |hh| (|shoePileColumn| |h|)) (COND ((EQUAL |hh| |n|) (|shoePileForests| |h| |hh| |t|)) (T (LIST NIL |n| NIL |s|))))))) |