X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran-lambda.lisp;h=c107a938282ab3f8e0c37e1405c5f5705e3792cf;hb=bfa4310e41dcd011ca9d139f29be1c5757b41378;hp=d1bd58fa257968a716e06da52b58ca6d2130dc56;hpb=e1cf2466998905e8e19e14cae6e478861ffd04ee;p=sbcl.git

diff --git a/src/compiler/ir1tran-lambda.lisp b/src/compiler/ir1tran-lambda.lisp
index d1bd58f..c107a93 100644
--- a/src/compiler/ir1tran-lambda.lisp
+++ b/src/compiler/ir1tran-lambda.lisp
@@ -1095,9 +1095,7 @@
 
       (aver (fasl-output-p *compile-object*))
       (if (member name *fun-names-in-this-file* :test #'equal)
-	  (compiler-warn "~@<Duplicate definition for ~S found in ~
-                          one static unit (usually a file).~@:>"
-			 name)
+	  (warn 'duplicate-definition :name name)
 	  (push name *fun-names-in-this-file*)))
 
     (become-defined-fun-name name)