0.8.1.21:

[sbcl.git] / src / compiler / ir1report.lisp

diff --git a/src/compiler/ir1report.lisp b/src/compiler/ir1report.lisp
index 4c1f514..f598a04 100644 (file)
--- 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))))