From 4977b427d840de3390b802cef297b7c233fe2436 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Sun, 9 Feb 2025 12:35:12 +0000
Subject: Implement a `while' macro.

---
 lib.macros.lisp | 5 +++++
 packages.lisp   | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

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)))
diff --git a/packages.lisp b/packages.lisp
index dafbc95..8e66c78 100644
--- a/packages.lisp
+++ b/packages.lisp
@@ -20,7 +20,8 @@
 (defpackage lib.macros
   (:use :cl)
   (:export
-   :_ :--> :->>))
+   :_ :--> :->>
+   :while))
 
 (defpackage main
   (:use :cl :lib.macros)
-- 
cgit v1.2.3-13-gbd6f