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 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib.macros.lisp')

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)))
-- 
cgit v1.2.3-13-gbd6f