From d5983ca74965ef16fb3cb47d78024c3eb68a4a59 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sun, 24 Nov 2013 20:23:46 -0800 Subject: [PATCH] Better error message for an empty cond clause. Bug noted by Pascal Bourguignon on cmucl-help, 2013-11-24. --- src/code/macros.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/code/macros.lisp b/src/code/macros.lisp index 892e1cfb2..9bc774fcd 100644 --- a/src/code/macros.lisp +++ b/src/code/macros.lisp @@ -559,7 +559,7 @@ nil (let ((clause (first clauses))) (when (atom clause) - (error (intl:gettext "Cond clause is not a list: ~S.") clause)) + (error (intl:gettext "Cond clause should be a non-empty list: ~S.") clause)) (let ((test (first clause)) (forms (rest clause))) (if (endp forms) -- GitLab