From: Christophe Rhodes <csr21@cantab.net>
Date: Fri, 11 Nov 2011 15:29:46 +0000 (+0000)
Subject: improve layout-invalid error message
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=40bea2551744d3cdc05a79a923fbff79a5755845;p=sbcl.git

improve layout-invalid error message

It helps if we pass the right initialization forms to make-condition.
---

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 2661f06..1775314 100644
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -533,7 +533,7 @@
                ((layout-invalid obj-layout)
                 (/noshow0 "LAYOUT-INVALID case")
                 (error 'layout-invalid
-                       :expected-type (layout-classoid obj-layout)
+                       :expected-type (layout-classoid layout)
                        :datum obj))
                (t
                 (let ((depthoid (layout-depthoid layout)))