From 1b2d00ad72cb64091377883d1144237a53deb63b Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 7 Oct 2012 12:31:11 +0200
Subject: [PATCH] Early definition of the standard class slots so that
 slot-value is available ASAP

---
 src/clos/hierarchy.lsp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/clos/hierarchy.lsp b/src/clos/hierarchy.lsp
index 53a44985c..ba145b45b 100644
--- a/src/clos/hierarchy.lsp
+++ b/src/clos/hierarchy.lsp
@@ -226,7 +226,8 @@
 (eval-when (eval)
   (defconstant +class-hierarchy+
     `((standard-class
-       :metaclass nil) ; Special-cased below
+       :metaclass nil ; Special-cased in boot.lsp
+       :direct-slots #1=#.+standard-class-slots+)
       (t
        :index 0)
       (standard-object
@@ -250,7 +251,7 @@
        :direct-slots #.+class-slots+)
       (built-in-class
        :direct-superclasses (class)
-       :direct-slots #1=#.+standard-class-slots+)
+       :direct-slots #1#)
       (std-class
        :direct-superclasses (class)
        :direct-slots #1#)