From: Paul Khuong <pvk@pvk.ca>
Date: Tue, 12 Nov 2013 23:18:32 +0000 (-0500)
Subject: Fuller error message in PACK-WIRED-TN
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=31f68584d0732dc0d17f379773e5f87f1e5a78ad;p=sbcl.git

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