X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdefconstant.lisp;h=1bb1d274d1e6c869aab23869f104aad1877acf0c;hb=f12b298a4ce9090470000360b49523e56475a680;hp=9cc011cb0812e080e9b79767944a7caacda01663;hpb=5d04a95274c9ddaebbcd6ddffc5d646e2c25598c;p=sbcl.git

diff --git a/src/compiler/defconstant.lisp b/src/compiler/defconstant.lisp
index 9cc011c..1bb1d27 100644
--- a/src/compiler/defconstant.lisp
+++ b/src/compiler/defconstant.lisp
@@ -24,7 +24,7 @@
   (unless (symbolp name)
     (error "The constant name is not a symbol: ~S" name))
   (when (looks-like-name-of-special-var-p name)
-    (style-warn 'sb!kernel:ignoring-asterisks-in-constant-variable-name
+    (style-warn 'sb!kernel:asterisks-around-constant-variable-name
                 :format-control "defining ~S as a constant"
                 :format-arguments (list name)))
   (sb!c:with-source-location (source-location)