- (let* ((slot-name (eval slot-name))
- (sym (slot-boundp-symbol slot-name)))
- (if (not +optimize-slot-boundp+)
- `(slot-boundp-normal ,object ',slot-name)
- `(asv-funcall ,sym ,slot-name boundp ,object))))
+ (let ((slot-name (eval slot-name)))
+ `(slot-boundp-normal ,object ',slot-name)))