diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-24 16:14:17 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-24 16:14:17 +0000 |
| commit | 8fc8aaeaf79472ff9cfd9b9fb3eeb17379c7d9bd (patch) | |
| tree | 7ccb9ec4341eadef78f5f7c8ef0ac3c7b47d25d9 /src/boot/strap/includer.clisp | |
| parent | e9dacdbd3f3cd32d38fc1dbc4545dc66ece156ea (diff) | |
| download | open-axiom-8fc8aaeaf79472ff9cfd9b9fb3eeb17379c7d9bd.tar.gz | |
* boot/ast.boot (bfMakeCollectInsn): New.
(bfDoCollect): Tidy.
Diffstat (limited to 'src/boot/strap/includer.clisp')
| -rw-r--r-- | src/boot/strap/includer.clisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/boot/strap/includer.clisp b/src/boot/strap/includer.clisp index fc1065fb..7509ac95 100644 --- a/src/boot/strap/includer.clisp +++ b/src/boot/strap/includer.clisp @@ -101,10 +101,8 @@ (SETQ |args| (CDR |ISTMP#1|)) T))))) (RETURN NIL)) - (T (PROGN - (SETQ |st| (APPLY |op| |args|)) - (RPLACA |x| (CAR |st|)) - (RPLACD |x| (CDR |st|)))))) + (T (SETQ |st| (APPLY |op| |args|)) + (RPLACA |x| (CAR |st|)) (RPLACD |x| (CDR |st|))))) (AND (CONSP |x|) (EQ (CAR |x|) '|nullstream|))))))) (DEFUN |bMap| (|f| |x|) (|bDelay| #'|bMap1| (LIST |f| |x|))) |