X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1report.lisp;h=f598a0489007bc9d2203302313a14cdc3e509926;hb=02afc3779a467fd354d40db8b891f2d866f3d49a;hp=4c1f514365687a134db20f2bd5f32372bfffc7c7;hpb=d5393dd736972a5c84cd97fec9892cd3da80b669;p=sbcl.git

diff --git a/src/compiler/ir1report.lisp b/src/compiler/ir1report.lisp
index 4c1f514..f598a04 100644
--- a/src/compiler/ir1report.lisp
+++ b/src/compiler/ir1report.lisp
@@ -433,7 +433,7 @@
 	      (policy *lexenv* (= inhibit-warnings 3)))
     (restart-case
 	(signal (make-condition 'simple-compiler-note
-				:format-string format-string
+				:format-control format-string
 				:format-arguments format-args))
       (muffle-warning ()
 	(return-from compiler-notify (values))))
@@ -449,7 +449,7 @@
       (progn
 	(restart-case
 	    (signal (make-condition 'simple-compiler-note
-				    :format-string (car rest)
+				    :format-control (car rest)
 				    :format-arguments (cdr rest)))
 	  (muffle-warning ()
 	    (return-from maybe-compiler-notify (values))))