From ... Path: supernews.google.com!sn-xit-03!supernews.com!news-feed.riddles.org.uk!skynet.be!news.tele.dk!129.240.148.23!uio.no!Norway.EU.net!not-for-mail From: Erik Naggum Newsgroups: comp.lang.lisp Subject: Re: Trouble with labels Date: 16 Apr 2001 14:00:19 +0000 Organization: Naggum Software, Oslo, Norway Lines: 17 Message-ID: <3196418419945434@naggum.net> References: <4sf6dto7mf556cvahss96e5u1087idd6vq@4ax.com> <3196084932709125@naggum.net> <3196098083218492@naggum.net> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: oslo-nntp.eunet.no 987429619 9511 195.0.192.66 (16 Apr 2001 14:00:19 GMT) X-Complaints-To: newsmaster@eunet.no NNTP-Posting-Date: 16 Apr 2001 14:00:19 GMT Mail-Copies-To: never User-Agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7 Xref: supernews.google.com comp.lang.lisp:9310 * Tim Bradshaw > (defmethod foo ((x bar)) > (boring-checking-code x) > (more-boring-code x) > (prog1 (tiny-useful-bit-of-code x) > (yet-more-rubbish x))) You may want to use multiple-value-prog1 here, which is a gratuitous invasion of multiple value. prog1 should have preserved multiple values to begin with, just like :after methods, unwind-protect, etc, do. This is but another reason to use :after methods. #:Erik -- I found no peace in solitude. I found no chaos in catastrophe. -- :wumpscut: