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 c0a0fc0b9d458cae139b873dc496764d8e8e0113 (commit) from f766805ef9f47cf3b5fca0d26532694ef84cd7cc (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 c0a0fc0b9d458cae139b873dc496764d8e8e0113 Author: Raymond Toy toy.raymond@gmail.com Date: Sun Jun 1 07:58:59 2014 -0700
Fix ticket:98
Change the warning to a style-warning and update the message to be more precious.
diff --git a/src/code/macros.lisp b/src/code/macros.lisp index 9bc774f..5144cdb 100644 --- a/src/code/macros.lisp +++ b/src/code/macros.lisp @@ -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))))
-----------------------------------------------------------------------
Summary of changes: src/code/macros.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-)
hooks/post-receive