From b6c8013cbcd0100266f1bda436aa4075f70beee6 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 16 Sep 2022 08:59:41 -0500 Subject: Add: assert-logged-in --- lib/state.lisp | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lib/state.lisp') diff --git a/lib/state.lisp b/lib/state.lisp index 9a80245..37fb06f 100644 --- a/lib/state.lisp +++ b/lib/state.lisp @@ -39,6 +39,11 @@ (defun (setf api-token) (newvalue) (setf (config-api-token *config*) newvalue)) +(defun assert-logged-in () + "throws an error if no plausbile api token is part of the current + config." + (api-token)) + (defun handle () (config-handle *config*)) -- cgit v1.2.3