X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=c6908d6e3af68946fc2a080c55d6aaca174dea59;hb=d25e3478acccec70402ff32554669a982be8e281;hp=674519e699de1b3e81ecf66335834dd6aefe3308;hpb=8fe977ca5d0d068f2641dd06d3743a4c218d5cc1;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 674519e..c6908d6 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -668,10 +668,14 @@
   ())
 
 (defclass standard-class (std-class)
-  ())
+  ()
+  (:default-initargs
+   :direct-superclasses (list *the-class-standard-object*)))
 
 (defclass funcallable-standard-class (std-class)
-  ())
+  ()
+  (:default-initargs
+   :direct-superclasses (list *the-class-funcallable-standard-object*)))
 
 (defclass forward-referenced-class (pcl-class) ())