[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2013-11-6-gd5983ca

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  d5983ca74965ef16fb3cb47d78024c3eb68a4a59 (commit)
      from  3a09aa24b038be094140ddc86069d0a89eeea5c2 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit d5983ca74965ef16fb3cb47d78024c3eb68a4a59
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Nov 24 20:23:46 2013 -0800

    Better error message for an empty cond clause.
    
    Bug noted by Pascal Bourguignon on cmucl-help, 2013-11-24.

diff --git a/src/code/macros.lisp b/src/code/macros.lisp
index 892e1cf..9bc774f 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)

-----------------------------------------------------------------------

Summary of changes:
 src/code/macros.lisp |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)


hooks/post-receive
-- 
CMU Common Lisp