Add: auth-pages via a middleware page serving function

1 files changed, 6 insertions, 0 deletions

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))))