diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-02 06:13:00 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-02 06:13:00 +0000 |
commit | 327b4fb2c149c02dd72f3d8f6070b6e0144828ee (patch) | |
tree | 4a54053499886efc418c2ba5ac54c686780c9823 /src/boot/strap/pile.clisp | |
parent | d7aca7e90f3579181f67804f7ac7ba0da4eb44d9 (diff) | |
download | open-axiom-327b4fb2c149c02dd72f3d8f6070b6e0144828ee.tar.gz |
* boot/ast.boot: More cleanup.
* boot/includer.boot: Likewise.
* boot/parser.boot: Likewise.
* boot/scanner.boot: Likewise.
Diffstat (limited to 'src/boot/strap/pile.clisp')
-rw-r--r-- | src/boot/strap/pile.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/pile.clisp b/src/boot/strap/pile.clisp index 4b624e7e..79b45cc0 100644 --- a/src/boot/strap/pile.clisp +++ b/src/boot/strap/pile.clisp @@ -119,7 +119,7 @@ (|shoePileCoagulate| (|dqAppend| |a| |c|) (CDR |b|))) (#0# (SETQ |d| (CADR |a|)) (SETQ |e| (|shoeTokPart| |d|)) (COND - ((AND (EQCAR |d| 'KEY) + ((AND (CONSP |d|) (EQ (CAR |d|) 'KEY) (OR (GET |e| 'SHOEINF) (EQ |e| 'COMMA) (EQ |e| 'SEMICOLON))) (|shoePileCoagulate| (|dqAppend| |a| |c|) (CDR |b|))) |