[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-1-g420ac32

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  420ac32313fbe762c29c2dee111748e16ba851cb (commit)
      from  3de1b873641f0bec715d1af6d31ff39aa6a370dd (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 420ac32313fbe762c29c2dee111748e16ba851cb
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Dec 2 09:31:02 2012 -0800

    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
--- 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)))

-----------------------------------------------------------------------

Summary of changes:
 src/compiler/new-assem.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp