Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!iuvax!cica!ctrsol!ginosko!uunet!odi!valens!dlw
From: dlw@odi.com (Dan Weinreb)
Newsgroups: comp.lang.lisp
Subject: Re: Common Lisp's SETF feature
Message-ID: <407@odi.ODI.COM>
Date: 4 Aug 89 16:18:09 GMT
References: <2360@husc6.harvard.edu>
Sender: news@odi.com
Reply-To: dlw@odi.com
Lines: 8
In-reply-to: whitney@endor.harvard.edu's message of 3 Aug 89 21:30:58 GMT

You definitely would need to invoke macro expansion at runtime in
order to do what you are asking for.  So the following solution is
probably as good as any.  Note that this is not incredibly efficient,
but I doubt you can do a whole lot better.  Warning: I have not
debugged this.

(defun setf-var-val (the-symbol new-value)
  (eval `(setf ,(eval the-symbol) ',new-value)))