diff options
Diffstat (limited to 'src/boot/strap/utility.clisp')
| -rw-r--r-- | src/boot/strap/utility.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/utility.clisp b/src/boot/strap/utility.clisp index 75416004..f151c06e 100644 --- a/src/boot/strap/utility.clisp +++ b/src/boot/strap/utility.clisp @@ -245,7 +245,7 @@ (LET ((|bfVar#1| |x|)) (LOOP (COND - ((ATOM |bfVar#1|) (RETURN NIL)) + ((NOT (CONSP |bfVar#1|)) (RETURN NIL)) (T (AND (CONSP |bfVar#1|) (PROGN (SETQ |a| (CAR |bfVar#1|)) T) (NOT (|objectMember?| |a| |y|)) |