Commit d5983ca7 authored by Raymond Toy's avatar Raymond Toy
Browse files

Better error message for an empty cond clause.

Bug noted by Pascal Bourguignon on cmucl-help, 2013-11-24.
parent 3a09aa24
...@@ -559,7 +559,7 @@ ...@@ -559,7 +559,7 @@
nil nil
(let ((clause (first clauses))) (let ((clause (first clauses)))
(when (atom clause) (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)) (let ((test (first clause))
(forms (rest clause))) (forms (rest clause)))
(if (endp forms) (if (endp forms)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment