0.7.13.pcl-class.1

[sbcl.git] / src / code / interr.lisp

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index d32be0a..60959da 100644 (file)
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -242,7 +242,7 @@
 (deferr layout-invalid-error (object layout)
   (error 'layout-invalid
         :datum object
-        :expected-type (layout-class layout)))
+        :expected-type (layout-classoid layout)))
 
 (deferr odd-key-args-error ()
   (error 'simple-program-error