IR1-convertion of lambda is separated into

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

diff --git a/src/compiler/ir1report.lisp b/src/compiler/ir1report.lisp
index c8dced2..4ef2d65 100644 (file)
--- a/src/compiler/ir1report.lisp
+++ b/src/compiler/ir1report.lisp
@@ -400,7 +400,7 @@
        (what (etypecase condition
                (style-warning 'style-warning)
                (warning 'warning)
-               (error 'error))))
+               ((or error compiler-error) 'error))))
     (multiple-value-bind (format-string format-args)
        (if (typep condition 'simple-condition)
            (values (simple-condition-format-control condition)