When emitter has holes, print out name of offending emitter.

diff --git a/src/compiler/new-assem.lisp b/src/compiler/new-assem.lisp
index 5492eb7..d9fdb32 100644 (file)
--- a/src/compiler/new-assem.lisp
+++ b/src/compiler/new-assem.lisp
@@ -1614,7 +1614,7 @@
                                ,arg)
                          (svref bytes end-byte))))))))))
       (unless (= overall-mask -1)
-       (error (intl:gettext "There are holes.")))
+       (error (intl:gettext "There are holes in emitter ~S.") name))
       (let ((forms nil))
        (dotimes (i num-bytes)
          (let ((pieces (svref bytes i)))