(fmakunbound 'install-condition-slot-writer)
(defun install-condition-slot-reader (name condition slot-name)
(unless (fboundp name)
- (ensure-generic-function name :lambda-list '(condition)))
+ (ensure-generic-function name))
(eval `(defmethod ,name ((.condition. ,condition))
(condition-reader-function .condition. ',slot-name))))
(defun install-condition-slot-writer (name condition slot-name)
(unless (fboundp name)
- (ensure-generic-function name :lambda-list '(new-value condition)))
+ (ensure-generic-function name))
(eval `(defmethod ,name (new-value (.condition. ,condition))
(condition-writer-function .condition. new-value ',slot-name))))