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