From 40bea2551744d3cdc05a79a923fbff79a5755845 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Fri, 11 Nov 2011 15:29:46 +0000 Subject: [PATCH] improve layout-invalid error message It helps if we pass the right initialization forms to make-condition. --- src/code/target-defstruct.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 1.7.10.4