- `((not (stringp (slot-value slotd ',x-slot-name))))))
- (setf (slot-value slotd ',x-slot-name) (,computer slotd)))
- (funcall (slot-value slotd ',x-slot-name)
- ,@(when setf-p '(value))
- object))))
-
-(vsc-slot-x-using-class value getter compute-slot-reader-function
- :allow-string-fun-p t)
-(vsc-slot-x-using-class value setter compute-slot-writer-function
- :allow-string-fun-p t :setf-p t)
+ `((not (stringp (slot-value slotd ',x-slot-name))))))
+ (let ((computed (,computer slotd)))
+ (setf (slot-value slotd ',x-slot-name) computed)))
+ (funcall (slot-value slotd ',x-slot-name) object))))