X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=c7113c4a48b3e593390916812bc78f9ee2f5c8ab;hb=eaec8176060e89efa39f01017df1f6204e491ecc;hp=a0832763beded661c5efab163b19bce36efedfab;hpb=c4776b3b3121be1c3bad293a4fa7efffb592f7f7;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index a083276..c7113c4 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -224,9 +224,10 @@ evaluated as a PROGN."
   (sb!c:%compiler-defun name inline-lambda nil)
   (when (fboundp name)
     (/show0 "redefining NAME in %DEFUN")
-    (style-warn 'sb!kernel::redefinition-with-defun :name name
-                :old (fdefinition name) :new def
-                :new-location source-location))
+    (warn 'sb!kernel::redefinition-with-defun
+          :name name
+          :new-function def
+          :new-location source-location))
   (setf (sb!xc:fdefinition name) def)
 
   (sb!c::note-name-defined name :function)