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