Add while loop to Common Lisp

diff --git a/lispstrack.lisp b/lispstrack.lisp
index c352d71..43609b9 100644 (file)
--- 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))