From: David Vazquez <davazp@gmail.com>
Date: Fri, 14 Dec 2012 18:58:09 +0000 (+0000)
Subject: Add while loop to Common Lisp
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f3f2dade4a57807972672199e539a33acbe030a2;p=jscl.git

Add while loop to Common Lisp
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index c352d71..43609b9 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -1,5 +1,10 @@
 ;;; Utils
 
+(defmacro while (condition &body body)
+  `(do ()
+       ((not ,condition))
+     ,@body))
+
 ;;; simplify me, please
 (defun concat (&rest strs)
   (reduce (lambda (s1 s2) (concatenate 'string s1 s2))