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

[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  5b98c1cb418d4e4b2594ff406748e2a9d9af83e9 (commit)
      from  c5d23ae79d1e97554256a43e331eb870954c8e2e (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 5b98c1cb418d4e4b2594ff406748e2a9d9af83e9
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Mon Dec 10 21:17:43 2012 -0800

    Print out more info on specialization errors.

diff --git a/src/compiler/disassem.lisp b/src/compiler/disassem.lisp
index 2ffeb1b..13f6b35 100644
--- a/src/compiler/disassem.lisp
+++ b/src/compiler/disassem.lisp
@@ -1670,7 +1670,13 @@
 	    (> (specializer-rank i1) (specializer-rank i2)))))
 
 (defun specialization-error (insts)
-  (error (intl:gettext "Instructions either aren't related or conflict in some way:~% ~s") insts))
+  (error
+   (with-output-to-string (s)
+     (let ((*standard-output* s))
+       (format s (intl:gettext "Instructions either aren't related or conflict in some way:~%"))
+       (dolist (inst insts)
+	 (print-inst-bits inst)
+	 (format s "  ~S~%" inst))))))
 
 (defun try-specializing (insts)
   "Given a list of instructions INSTS, Sees if one of these instructions is a

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

Summary of changes:
 src/compiler/disassem.lisp |    8 +++++++-
 1 files changed, 7 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp