X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1report.lisp;h=4ef2d6570f701e567b735c6536136f327db63e1f;hb=77c80b85dc9ae9bde0692d4193187bfca507b936;hp=c8dced28c4e11de16e0c6ff41c659bbcfd55b459;hpb=148e3820ad314a9b59d0133c1d60eaac4af9118b;p=sbcl.git

diff --git a/src/compiler/ir1report.lisp b/src/compiler/ir1report.lisp
index c8dced2..4ef2d65 100644
--- 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)