From ... Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!news2.kpn.net!news.kpn.net!nslave.kpnqwest.net!nloc2.kpnqwest.net!nloc.kpnqwest.net!nmaster.kpnqwest.net!nreader3.kpnqwest.net.POSTED!not-for-mail Newsgroups: comp.lang.lisp Subject: Re: What's the point of flet? References: <3BDF119D.A51C178B@yale.edu> Mail-Copies-To: never From: Erik Naggum Message-ID: <3213555018873937@naggum.net> Organization: Naggum Software, Oslo, Norway Lines: 24 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1 MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Date: Wed, 31 Oct 2001 22:10:19 GMT X-Complaints-To: newsmaster@Norway.EU.net X-Trace: nreader3.kpnqwest.net 1004566219 193.71.66.49 (Wed, 31 Oct 2001 23:10:19 MET) NNTP-Posting-Date: Wed, 31 Oct 2001 23:10:19 MET Xref: archiver1.google.com comp.lang.lisp:18948 * Francis Leboutte | It would be nice to have the possibility to make the new binding of | square have dynamic scope. I think an equivalent of the dynamic variable | notion for a function defined locally would be useful in CL. There is a letf macro going around in various versions that can be used for this effect: (letf (((symbol-function 'whatever) (lambda ...))) ...) It basically does (let (( (symbol-function 'whatever))) (setf (symbol-function 'whatever) (lambda ...)) (unwind-protect ... (setf (symbol-function 'whatever) ))) /// -- Norway is now run by a priest from the fundamentalist Christian People's Party, the fifth largest party representing one eighth of the electorate. -- Carrying a Swiss Army pocket knife in Oslo, Norway, is a criminal offense.