diff options
Diffstat (limited to 'session.lisp')
| -rw-r--r-- | session.lisp | 14 |
1 files changed, 0 insertions, 14 deletions
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)))) - - |