#+clisp(type :initarg :type :reader slot-definition-type)))
(defclass direct-special-slot-definition (standard-direct-slot-definition)
#+clisp(type :initarg :type :reader slot-definition-type)))
(defclass direct-special-slot-definition (standard-direct-slot-definition)