Skip to content
Snippets Groups Projects
Commit c0a0fc0b authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix ticket:98

Change the warning to a style-warning and update the message to be
more precious.
parent f766805e
No related branches found
No related tags found
No related merge requests found
......@@ -1383,7 +1383,9 @@
(t
(when (and allow-otherwise
(memq (car case) '(t otherwise)))
(warn (intl:gettext "Bad style to use T or OTHERWISE in ECASE or CCASE")))
(warn 'kernel:simple-style-warning
:format-control (intl:gettext "Bad style to use ~S in ~S")
:format-arguments (list (car case) name)))
(push (first case) keys)
(push `((,test ,keyform-value
',(first case)) nil ,@(rest case)) clauses))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment