Subject: Re: prog@ From: Erik Naggum <erik@naggum.no> Date: 14 Nov 2002 20:55:21 +0000 Newsgroups: comp.lang.lisp Message-ID: <3246296121410326@naggum.no> * "Wade Humeniuk" <wade@nospam.nowhere> | 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.