Added DEFINE-CACHED-SLOTS-CLASS

class-slots.lisp

@@ -21,7 +21,6 @@
 (defmethod c2mop:validate-superclass ((class cached-slots-class) (superclass cached-slots-class))
   T)
 
-
 (defmethod initialize-instance :after ((class cached-slots-class) &key)
   (setf (class-all-direct-slots class)
         (compute-all-direct-slots class)))
@@ -52,3 +51,9 @@
                   (standard-class class)
                   (symbol (find-class class)))))
     (nreverse slots)))
+
+(defmacro define-cached-slots-class (name direct-superclasses direct-slots &rest options)
+  `(eval-when (:compile-toplevel :load-toplevel :execute)
+     (defclass ,name ,direct-superclasses ,direct-slots
+       ,@options
+       (:metaclass cached-slots-class))))

documentation.lisp

@@ -54,6 +54,14 @@ is a CACHED-SLOTS-CLASS, the CLASS-ALL-DIRECT-SLOTS value is used
 directly instead of traversing further. This does not apply for
 the passed class.
 
+See CACHED-SLOTS-CLASS")
+
+  ((define-cached-slots-class)
+   "Shorthand macro around defclass to define a cached-slots-class.
+
+All this does is wrap the defclass in an EVAL-WHEN and add the
+metaclass option for cached-slots-class.
+
 See CACHED-SLOTS-CLASS"))
 
 (setdocs

package.lisp

@@ -12,7 +12,8 @@
   (:export
    #:cached-slots-class
    #:class-all-direct-slots
-   #:compute-all-direct-slots)
+   #:compute-all-direct-slots
+   #:define-cached-slots-class)
   ;; command.lisp
   (:export
    #:command-event