X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/f2d46aaa6bd5788d956bb767d92da97916407724..93f0472497372859d9cb9bf7690044bd0e66f0ad:/mdw-base.lisp

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))
 
 ;;;--------------------------------------------------------------------------