[Sbcl-devel] (ensure-class 'foo)

[Larry D'A. <la...@el...>]

Lockee on #lisp noticed: 
(sb-mop:ensure-class 'foo) doesn't work, you have to say 
(sb-mop:ensure-class 'foo :direct-superclasses nil)

diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index f8e62f9..09d99c4 100644
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -409,6 +409,11 @@
                      'validate-superclass)))
          (setf (slot-value class 'direct-superclasses) direct-superclasses))
         (t
+         (unless (slot-value class 'direct-superclasses)
+           (setf (slot-value class 'direct-superclasses)
+                 (list (if (funcallable-standard-class-p class)
+                           *the-class-funcallable-standard-object*
+                           *the-class-standard-object*))))
          (setq direct-superclasses (slot-value class 'direct-superclasses))))
   (setq direct-slots
         (if direct-slots-p