From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 23 Apr 2006 00:07:42 +0000 (+0100)
Subject: base: Fix bug in `while'.
X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/commitdiff_plain/93f0472497372859d9cb9bf7690044bd0e66f0ad

base: Fix bug in `while'.

Did I ever use this?
---

diff --git a/mdw-base.lisp b/mdw-base.lisp
index 787255b..72b5b06 100644
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -149,7 +149,7 @@ gensyms will be bound to the corresponding VALUE."
 (defmacro while (cond &body body)
   "If COND is false, evaluate to nil; otherwise evaluate BODY and try again."
   `(loop
-     (unless `cond (return))
+     (unless ,cond (return))
      ,@body))
 
 ;;;--------------------------------------------------------------------------