Canonical Way to Mask SETF?

I'm playing with a menu system, and would like to be able to write the
following:

(menu-item menu) -> item
(setf (menu-item menu) item)

I figured that something like this would do the trick:

(defun menu-item (menu)
(getf menu :title))

(defsetf menu-title (menu) (title)
`(setf (getf ,menu :title) ,title))

But of course it doesn't work. Any advice on how this needs to be
written?

Unfortunately there aren't too many online references which deal with
DEFSETF--at least none that I've found.

--
Robert Uhl <http://public.xdi.org/=ruhl>
It is not necessary to enquire whether a woman would like something
for dessert. The answer is yes, she would like something for dessert,
but she would like you to order it so she can pick at it with your
fork. She does not want you to call attention to this by saying, `If
you wanted a dessert, why didn't you order one?' You must understand,
she has the dessert she wants. The dessert she wants is contained
within yours.
--Merrill Marcoe, `An Insider's Guide to the American Woman'
.

Relevant Pages

  • Re: Rorschach Test
    ... Olly, I know you were joking, so was Evelyn. ... I like playing with words ... I once wrote a list of riddles for a boy who was having ... because dessert is twice as good". ...
    (soc.senior.issues)
  • Re: Play golf with a girl, NEVER!
    ... A few years back when I was playing to a 7, I took a trip to Palm ... Dessert and got on the Cimmaron Course the same day that an LPGA feeder ... internet to see what the "girls" were shooting from the tips. ...
    (rec.sport.golf)