Commit d5983ca7 authored by Raymond Toy's avatar Raymond Toy

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 @@
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)
......
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