[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-05-9-gc0a0fc0

Raymond Toy rtoy at common-lisp.net
Sun Jun 1 14:59:15 UTC 2014


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 at 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
-- 
CMU Common Lisp


More information about the cmucl-commit mailing list