X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fknownfun.lisp;h=863dbb395e5e0ece6f2ddbc569bc62a18de73277;hb=9837343101c3da7b3a8f94609ec116ec5025436a;hp=078b9f103128eab5feab65b5fda026dcf56ae9bf;hpb=34360bf475b3632f625fcc263f626557ef96d94f;p=sbcl.git

diff --git a/src/compiler/knownfun.lisp b/src/compiler/knownfun.lisp
index 078b9f1..863dbb3 100644
--- a/src/compiler/knownfun.lisp
+++ b/src/compiler/knownfun.lisp
@@ -182,7 +182,8 @@
                               (eq (transform-important x) important)))
                        (fun-info-transforms info))))
     (cond (old
-           (style-warn "Overwriting ~S" old)
+           (style-warn 'sb!kernel:redefinition-with-deftransform
+                       :transform old)
            (setf (transform-function old) fun
                  (transform-note old) note))
           (t