Fuller error message in PACK-WIRED-TN

Cribbed directly from Alexandra Barchunova's regalloc work.

diff --git a/src/compiler/pack.lisp b/src/compiler/pack.lisp
index 60d8565..288a988 100644 (file)
--- a/src/compiler/pack.lisp
+++ b/src/compiler/pack.lisp
@@ -1458,7 +1458,8 @@
                          (or (= offset 0)
                              (= offset 1))))
                (conflicts-in-sc original sc offset))
-      (error "~S is wired to a location that it conflicts with." tn))
+      (error "~S is wired to location ~D in SC ~A of kind ~S that it conflicts with."
+             tn offset sc (tn-kind tn)))
 
     (add-location-conflicts original sc offset optimize)))