diff --git a/src/compiler/disassem.lisp b/src/compiler/disassem.lisp index 2ffeb1bb225243e51cb805a6f6d5343d95dd03b5..13f6b3554b12dfc1feed9ff4b3502d7d0b3f41b2 100644 --- a/src/compiler/disassem.lisp +++ b/src/compiler/disassem.lisp @@ -1670,7 +1670,13 @@ (> (specializer-rank i1) (specializer-rank i2))))) (defun specialization-error (insts) - (error (intl:gettext "Instructions either aren't related or conflict in some way:~% ~s") insts)) + (error + (with-output-to-string (s) + (let ((*standard-output* s)) + (format s (intl:gettext "Instructions either aren't related or conflict in some way:~%")) + (dolist (inst insts) + (print-inst-bits inst) + (format s " ~S~%" inst)))))) (defun try-specializing (insts) "Given a list of instructions INSTS, Sees if one of these instructions is a