X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpack.lisp;h=288a98817c5204448c87adb3e9be5deb3506e912;hb=31f68584d0732dc0d17f379773e5f87f1e5a78ad;hp=60d856535a89eea46b1a4b595641fe1c2b468794;hpb=eda83f00e869193cb69826be5fa1086b95d12ff7;p=sbcl.git

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