From a9f4515bd5b4bb4489297fbd1121457879724dee Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sun, 2 Dec 2012 22:27:06 -0800
Subject: [PATCH] Print out name of offending emitter in some error messages.

---
 src/compiler/new-assem.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/compiler/new-assem.lisp b/src/compiler/new-assem.lisp
index d9fdb32fb..f6179dea4 100644
--- a/src/compiler/new-assem.lisp
+++ b/src/compiler/new-assem.lisp
@@ -1553,8 +1553,8 @@
 			  (quo rem)
 			  (truncate total-bits assembly-unit-bits)
 			(unless (zerop rem)
-			  (error (intl:gettext "~D isn't an even multiple of ~D")
-				 total-bits assembly-unit-bits))
+			  (error (intl:gettext "~D isn't an even multiple of ~D in emitter ~S")
+				 total-bits assembly-unit-bits name))
 			quo))
 	   (bytes (make-array num-bytes :initial-element nil))
 	   (segment-arg (gensym "SEGMENT-")))
@@ -1565,8 +1565,8 @@
 	       (arg (gensym (format nil "~:@(ARG-FOR-~S-~)" byte-spec-expr))))
 	  (when (ldb-test (byte byte-size byte-posn) overall-mask)
 	    (error (intl:gettext "Byte spec ~S either overlaps another byte spec, or ~
-		    extends past the end.")
-		   byte-spec-expr))
+		    extends past the end in emitter ~S.")
+		   byte-spec-expr name))
 	  (setf (ldb byte-spec overall-mask) -1)
 	  (arg-names arg)
 	  (arg-types `(type (integer ,(ash -1 (1- byte-size))
-- 
GitLab