From c0477ca18e99fcf5e091d2bc4ffe8dd76eae36dd Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 4 Sep 2009 16:27:26 +0000 Subject: --- src/boot/strap/parser.clisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/boot/strap/parser.clisp') diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp index 39316f4e..716b86d1 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -1150,7 +1150,7 @@ (SETQ |l| (CAR |ISTMP#1|)) (SETQ |ISTMP#2| (CDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) - (EQ (CDR |ISTMP#2|) NIL) + (NULL (CDR |ISTMP#2|)) (PROGN (SETQ |r| (CAR |ISTMP#2|)) T))))) (IDENTP |l|)) (COND -- cgit v1.2.3