Implement a `while' macro.

2025-02-09 12:35:12 +00:00
parent e5253472a0
commit 4977b427d8
2 changed files with 7 additions and 1 deletions
--- 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)))