From: Warren Lynn on
>
> You can use FDEFINITION [1]:
>
> > (defun (setf 1st) (value cons)
>
>     (setf (first cons) value))
> (SETF 1ST)
>
> > (fdefinition '(setf 1st))
>
> #<interpreted function (SETF 1ST) 200DCFCA>
>
> > (let ((my-setf-function-name '(setf 1st)))
>
>     (fdefinition my-setf-function-name))
> #<interpreted function (SETF 1ST) 200DCFCA>
>
> [1]http://www.lispworks.com/documentation/HyperSpec/Body/f_fdefin.htm- Hide quoted text -
>
> - Show quoted text -

This (fdefinition) is what I am looking for. Thanks a lot for all of
your help.