1 files changed, 5 insertions, 0 deletions
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*))