From 23873b455554ba40f79be561b5150b4526a19d3f Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 18 May 2024 07:50:16 -0700
Subject: Remove: Purged CLOG

---
 session.lisp | 14 --------------
 1 file changed, 14 deletions(-)

(limited to 'session.lisp')

diff --git a/session.lisp b/session.lisp
index d7bd937..6d704f7 100644
--- a/session.lisp
+++ b/session.lisp
@@ -17,17 +17,3 @@
   "Stored in the browser's local storage")
 
 
-;;; SESSION ACCESSORS
-
-(defun session-key (window)
-  (jonathan:parse (storage-element window :local +session-key+)))
-
-(defun (setf session-key) (val window)
-  (setf (storage-element window :local +session-key+) (jonathan:to-json val)))
-
-(defun session-user (clog-obj)
-  (when-let (obj (object-with-key (session-key (window (connection-body clog-obj)))))
-    (when (typep obj 'session)
-      (user obj))))
-
-
-- 
cgit v1.2.3