;;;--------------------------------------------------------------------------
;;; Special-purpose slot objects.
;;;--------------------------------------------------------------------------
;;; Special-purpose slot objects.
(defclass sod-class-slot (sod-slot)
((initializer-function :initarg :initializer-function
:type (or symbol function)
(defclass sod-class-slot (sod-slot)
((initializer-function :initarg :initializer-function
:type (or symbol function)