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