X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=657e665cfbdb533ce082031a1f08ea59710fad40;hb=158f220d2e6b44e48806480d6498466b9fc7eb62;hp=f8f13a7b7230423c41581e0107451aceae51ce6b;hpb=c1d63b850fe9528036f8ae715088384e81d880cc;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index f8f13a7..657e665 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -220,8 +220,7 @@
                               specializers lambda-list &rest other-initargs)
   (unless (and (fboundp generic-function-name)
                (typep (fdefinition generic-function-name) 'generic-function))
-    (style-warn "implicitly creating new generic function ~S"
-                generic-function-name))
+    (warn 'implicit-generic-function-warning :name generic-function-name))
   (let* ((existing-gf (find-generic-function generic-function-name nil))
          (generic-function
           (if existing-gf