🚀 go-pugleaf

In article <Bwun61.E1q@world.std.com> jbk@world.std.com (Jeffrey B Kane) writes:

   Jeffrey> I have a common function that can act on any of a number of 
   Jeffrey> slots of a given class.  How can I define a function such that
   Jeffrey> I can pass it an accessor, the class instance, and the arguments
   Jeffrey> something like:
   Jeffrey> (defun do-proc (anAccessor aclass arg)
   Jeffrey>    (setf (anAccessor aclass) arg))


(defun do-proc (anAccessor object arg)
	(funcall (fdefinition `(setf ,anAccessor))
		 arg
		 object))

should do the trick.


Your Common Lisp may not yet support fdefinition.



                                   Eric Peterson (speaking for myself)
                                   Systems Research and Applications
                                   2000 15th Street North
                                   Arlington, VA 22201
                                   USA
                                   peterson@sra.com
                                   (703) 558-7644
                                   Fax:  (703) 558-4723