From 103612a347ae6946a7f1d9e4502dcfa636e3b3c6 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Thu, 18 Jul 2019 01:20:55 +0200
Subject: [PATCH] Add cond! macro to core-lib

An anaphoric cond.
---
 core/core-lib.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/core/core-lib.el b/core/core-lib.el
index f698014a5..054ba5187 100644
--- a/core/core-lib.el
+++ b/core/core-lib.el
@@ -181,6 +181,13 @@ The order VALUES is preserved."
                   elt)
                ,list)))
 
+(defmacro cond! (&rest clauses)
+  "An anaphoric `cond', which stores the conditional value in `it'."
+  `(let (it)
+     (cond ,@(cl-loop for (cond . body) in clauses
+                      collect `((setq it ,cond)
+                                ,@body)))))
+
 (defmacro defer-until! (condition &rest body)
   "Run BODY when CONDITION is true (checks on `after-load-functions'). Meant to
 serve as a predicated alternative to `after!'."