X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdump.lisp;h=991dc1897c5ef2e0e33785b6f65f55a4a4daee48;hb=68612b8227bdd1a9e70962201f54231c82affa17;hp=7c4619f02391bdaf272129bbf3658e5d664886fa;hpb=5930ee54090c03d242c70716683b12b95d74a089;p=sbcl.git

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index 7c4619f..991dc18 100644
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -1259,7 +1259,7 @@
 (defun dump-layout (obj file)
   (when (layout-invalid obj)
     (compiler-error "attempt to dump reference to obsolete class: ~S"
-		    (layout-class obj)))
+		    (layout-classoid obj)))
   (let ((name (classoid-name (layout-classoid obj))))
     (unless name
       (compiler-error "dumping anonymous layout: ~S" obj))