From 420ac32313fbe762c29c2dee111748e16ba851cb Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sun, 2 Dec 2012 09:31:02 -0800
Subject: [PATCH] When emitter has holes, print out name of offending emitter.

---
 src/compiler/new-assem.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/new-assem.lisp b/src/compiler/new-assem.lisp
index 5492eb7cd..d9fdb32fb 100644
--- 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)))
-- 
GitLab