diff options
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|))))))) |