From f3f2dade4a57807972672199e539a33acbe030a2 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Fri, 14 Dec 2012 18:58:09 +0000 Subject: [PATCH] Add while loop to Common Lisp --- lispstrack.lisp | 5 +++++ 1 file changed, 5 insertions(+) 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)) -- 1.7.10.4