(eval `(defmethod ,name ((.condition. ,condition))
(condition-reader-function .condition. ',slot-name))))
(defun install-condition-slot-writer (name condition slot-name)
(unless (fboundp name)
(eval `(defmethod ,name ((.condition. ,condition))
(condition-reader-function .condition. ',slot-name))))
(defun install-condition-slot-writer (name condition slot-name)
(unless (fboundp name)