From ... Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!news-fra1.dfn.de!news.f.de.plusline.net!feed.news.nacamar.de!uio.no!nntp.uio.no!ifi.uio.no!not-for-mail From: Erik Naggum Newsgroups: comp.lang.lisp Subject: Re: prog@ Date: 14 Nov 2002 20:55:21 +0000 Organization: Naggum Software, Oslo, Norway Lines: 24 Message-ID: <3246296121410326@naggum.no> References: <3DD3C637.1060702@web.de> <7iTA9.2731$3J1.284176@news1.telusplanet.net> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: maud.ifi.uio.no 1037307321 24496 129.240.65.5 (14 Nov 2002 20:55:21 GMT) X-Complaints-To: abuse@ifi.uio.no NNTP-Posting-Date: 14 Nov 2002 20:55:21 GMT Mail-Copies-To: never User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 Xref: archiver1.google.com comp.lang.lisp:46669 * "Wade Humeniuk" | This can be even simpler and work in calls down the stack. | | (defvar *prog-anywhere-return* nil) | | (defun prog-return (value) (setf *prog-anywhere-return* value)) | | (defmacro prog-anywhere (&body body) | `(progn | ,@body | *prog-anywhere-return*)) Make that (defmacro prog-anywhere (&body body) `(let (*prog-anywhere-return*) ,@body *prog-anywhere-return*)) -- Erik Naggum, Oslo, Norway Act from reason, and failure makes you rethink and study harder. Act from faith, and failure makes you blame someone and push harder.