Subject: Re: prog@
From: Erik Naggum <>
Date: 14 Nov 2002 20:55:21 +0000
Newsgroups: comp.lang.lisp
Message-ID: <>

* "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*)

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.