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