(defmethod ordered-class-direct-slots ((self standard-db-class))
(let ((direct-slot-names
(mapcar #'slot-definition-name (class-direct-slots self)))
(defmethod ordered-class-direct-slots ((self standard-db-class))
(let ((direct-slot-names
(mapcar #'slot-definition-name (class-direct-slots self)))