Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
d5983ca7
Commit
d5983ca7
authored
Nov 24, 2013
by
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
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/code/macros.lisp
View file @
d5983ca7
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment