From 24bbad75fd60b487a7d98eac5359b69144fdf9e8 Mon Sep 17 00:00:00 2001
From: ajberkley <ajberkley@gmail.com>
Date: Thu, 19 Jun 2025 17:05:01 -0700
Subject: [PATCH] Finalize classes before calling class-slots in case we are
 restoring a standard object before it has ever been instantiated

---
 src/objects.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/objects.lisp b/src/objects.lisp
index c993a01..2f00315 100644
--- a/src/objects.lisp
+++ b/src/objects.lisp
@@ -84,6 +84,8 @@
   "Return a list of slot names (symbols) skipping :class allocation slots if
  *store-class-slots* is t."
   (assert class)
+  (unless (class-finalized-p class)
+    (finalize-inheritance class))
   (loop with store-class-slots = *store-class-slots*
 	with is-structure-object = (or (typep class 'structure-class) ;; allegro work around
 				       (subtypep class 'structure-class))