diff options
Diffstat (limited to 'lib.macros.lisp')
| -rw-r--r-- | lib.macros.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib.macros.lisp b/lib.macros.lisp index bf0bdcc..f96636d 100644 --- a/lib.macros.lisp +++ b/lib.macros.lisp @@ -61,3 +61,8 @@ Like the `|>' operator in Ocaml." :for canon-func = (if (symbolp func) (list func) func) :do (setq acc (append canon-func (list acc))) :finally (return acc)))) + +(defmacro while (condition &body body) + `(loop :while ,condition + :do + (progn ,@body))) |