X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fsharpm.lisp;h=f091b65cbec0223627593731978c71052b0962e8;hb=ffa9a31f62e3e2abab8ebcbb3bfdab9725feaf7f;hp=820d5f489baa71e99aa375252210b59ed368364d;hpb=13883fd2914c2beaf3634a87b3379735e5f49a29;p=sbcl.git

diff --git a/src/code/sharpm.lisp b/src/code/sharpm.lisp
index 820d5f4..f091b65 100644
--- a/src/code/sharpm.lisp
+++ b/src/code/sharpm.lisp
@@ -159,9 +159,12 @@
                               designator: ~S."
 			     slot-name))
 			  (when (not (keywordp slot-name))
-			    (style-warn "in #S ~S, the use of non-keywords ~
-                                         as slot specifiers is deprecated: ~S."
-					(car body) slot-name)))
+                            (warn 'structure-initarg-not-keyword
+                                  :format-control
+                                  "in #S ~S, the use of non-keywords ~
+                                   as slot specifiers is deprecated: ~S."
+                                  :format-arguments
+                                  (list (car body) slot-name))))
 		     collect (intern (string (car tail)) *keyword-package*)
 		     collect (cadr tail)))))))