X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcheckgen.lisp;h=3fd81d57a6fed065ece18b06d969fd7a26925e3f;hb=bfa4310e41dcd011ca9d139f29be1c5757b41378;hp=8d04f9405a4bacb9cf0b2f2788e1e2f28e172774;hpb=5ef7f500a505f5711b1c76ff8c15f443d4815367;p=sbcl.git

diff --git a/src/compiler/checkgen.lisp b/src/compiler/checkgen.lisp
index 8d04f94..3fd81d5 100644
--- a/src/compiler/checkgen.lisp
+++ b/src/compiler/checkgen.lisp
@@ -436,12 +436,18 @@
                                    (leaf-source-name (elt (lambda-vars lambda)
                                                           pos)))))))
             (cond ((and (ref-p use) (constant-p (ref-leaf use)))
-                   (compiler-warn "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
-                                  what atype-spec (constant-value (ref-leaf use))))
+                   (warn 'type-warning
+			 :format-control
+			 "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
+			 :format-arguments
+			 (list what atype-spec 
+			       (constant-value (ref-leaf use)))))
                   (t
-                   (compiler-warn
-                    "~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
-                    what (type-specifier dtype) atype-spec))))))))
+                   (warn 'type-warning
+			 :format-control
+			 "~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
+			 :format-arguments
+			 (list what (type-specifier dtype) atype-spec)))))))))
   (values))
 
 ;;; Loop over all blocks in COMPONENT that have TYPE-CHECK set,