- (let ((class-name (class-name class)))
- (with-slots (type) slotd
- (list
- (if (stringp getter)
- (let ((getter (mkbinding-late getter type 'pointer)))
- #'(lambda (object)
- (funcall getter (proxy-location object))))
- getter)
- (if (stringp setter)
- (let ((setter (mkbinding-late setter 'nil 'pointer type)))
- #'(lambda (value object)
- (funcall setter (proxy-location object) value)))
- setter))))))
+ (with-slots (type) slotd
+ (list
+ (if (stringp getter)
+ (let ((getter (mkbinding-late getter type 'pointer)))
+ #'(lambda (object)
+ (funcall getter (proxy-location object))))
+ getter)
+ (if (stringp setter)
+ (let ((setter (mkbinding-late setter 'nil 'pointer type)))
+ #'(lambda (value object)
+ (funcall setter (proxy-location object) value)))
+ setter)))))