(default-slot (slot 'prepare-function)
(get-property pset :prepare-function :func nil)))
-(export 'sod-class-effective-slot)
+(export '(sod-class-effective-slot
+ effective-slot-initializer-function
+ effective-slot-prepare-function))
(defclass sod-class-effective-slot (effective-slot)
((initializer-function :initarg :initializer-function
:type (or symbol function)