From 7ec9075c8a20b4a8f2b1c0de9e5b86e18ad4ae8e Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 27 Oct 2022 13:46:56 -0500
Subject: Add: auth-pages via a middleware page serving function

---
 utilities.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'utilities.lisp')

diff --git a/utilities.lisp b/utilities.lisp
index ce14b7e..1ed13a3 100644
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -121,3 +121,9 @@
                 hours mins secs)
         (format nil "~a:~2,'0d"
                 mins secs))))
+
+(defun <?> (pred then else)
+  (lambda (&rest args)
+    (if (apply pred args)
+        (apply then args)
+        (apply else args))))
-- 
cgit v1.2.3