🚀 go-pugleaf

In article <Bwun61.E1q@world.std.com> jbk@world.std.com (Jeffrey B Kane) writes:
>I have a common function that can act on any of a number of 
>slots of a given class.  How can I define a function such that
>I can pass it an accessor, the class instance, and the arguments
>something like:
>(defun do-proc (anAccessor aclass arg)
>  (setf (anAccessor aclass) arg))

You can't do precisely that.  You can pass a slot name, and then use SETF
of SLOT-VALUE, e.g.

(defun do-proc (slot-name object arg)
  (setf (slot-value object slot-name) arg))

or you can pass the setf function itself:

(defun do-proc (assignment-function object arg)
  (funcall assignment-function arg object))

This would be called as (do-proc #'(setf <slot-name>) <object> <value>).
-- 
Barry Margolin
System Manager, Thinking Machines Corp.

barmar@think.com          {uunet,harvard}!think!barmar