From: Paul Khuong 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)))