From c8b06557208809e24e7b919e3b4c71f8d7a6d80c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Erik=20Kriszti=C3=A1n=20Varga?= Date: Wed, 5 Mar 2014 23:02:00 +0100 Subject: [PATCH] Change COND error message. COND reports an error saying the clause is not a list even when it's NIL, which is in fact an empty list. Fix this by displaying a different message when the clause is NIL. --- src/code/defboot.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp index 1e915ca..05fd614 100644 --- a/src/code/defboot.lisp +++ b/src/code/defboot.lisp @@ -72,7 +72,9 @@ (let ((clause (first clauses)) (more (rest clauses))) (if (atom clause) - (error "COND clause is not a list: ~S" clause) + (if (null clause) + (error "COND clause is NIL") + (error "COND clause is not a list: ~S" clause)) (let ((test (first clause)) (forms (rest clause))) (if (endp forms) -- 1.8.3.1