- &rest args)
- (when (and (null (slot-definition-readers dsd))
- (null (slot-definition-writers dsd)))
- (let* ((containing-class-name
- (slot-value (class-of dsd) 'containing-class-name))
- (accessor-name
- (intern
- (concatenate 'string
- (symbol-name containing-class-name)
- "-"
- (symbol-name (slot-definition-name dsd)))
- (symbol-package containing-class-name))))
- (setf (slot-definition-readers dsd) (list accessor-name))
- (setf (slot-definition-writers dsd)
- (list (list 'setf accessor-name)))))))
+ &rest args)
+ (when (and (null (slot-definition-readers dsd))
+ (null (slot-definition-writers dsd)))
+ (let* ((containing-class-name
+ (slot-value (class-of dsd) 'containing-class-name))
+ (accessor-name
+ (intern
+ (concatenate 'string
+ (symbol-name containing-class-name)
+ "-"
+ (symbol-name (slot-definition-name dsd)))
+ (symbol-package containing-class-name))))
+ (setf (slot-definition-readers dsd) (list accessor-name))
+ (setf (slot-definition-writers dsd)
+ (list (list 'setf accessor-name)))))))