From 3e6da6b0f4abb6aa1f1274e183d039eeecebec86 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Mon, 10 Feb 2025 18:10:06 +0000
Subject: Macro (alist-val) to access the actual value of a key in an alist

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

diff --git a/lib.macros.lisp b/lib.macros.lisp
index f02e7a2..a866193 100644
--- a/lib.macros.lisp
+++ b/lib.macros.lisp
@@ -83,3 +83,7 @@ arguments `LAMBDA-LIST' with body `BODY'."
 sequentially"
   `(lambda (x)
      (->> x ,@forms)))
+
+(defmacro alist-val (key alist)
+  "Helper macro for getting the value of KEY in ALIST."
+  `(cdr (assoc ,key ,alist)))
diff --git a/packages.lisp b/packages.lisp
index 72d4dc5..977bf66 100644
--- a/packages.lisp
+++ b/packages.lisp
@@ -22,7 +22,7 @@
   (:export
    :_ :--> :->>
    :-> :fn
-   :while
+   :while :alist-val
    :$))
 
 (defpackage lib.functions
-- 
cgit v1.2.3-13-gbd6f