From 93f0472497372859d9cb9bf7690044bd0e66f0ad Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 23 Apr 2006 01:07:42 +0100 Subject: [PATCH] base: Fix bug in `while'. Did I ever use this? --- mdw-base.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) ;;;-------------------------------------------------------------------------- -- 2.11.0