tjhintz/pg-sessions
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removing dead code.

Browse Source
This commit is contained in:
Thomas
2014-07-10 08:44:46 -07:00
parent 1688e7a875
commit bd9afc8f96
1 changed files with 0 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
pg-sessions.lisp
View File

@@ -215,11 +215,3 @@ SESSION \(the default is the current session) if it exists."
(,%symbol ,symbol))
(setf (slot-value ,%session ,%symbol) ,new-value)
(save-pg-session ,%session))))
;; (defun reset-sessions (&optional (acceptor *acceptor*))
;; "Removes ALL stored sessions of ACCEPTOR."
;; (with-session-lock-held ((session-db-lock acceptor))
;; (loop for (nil . session) in (session-db acceptor)
;; do (acceptor-remove-session acceptor session))
;; (setq *session-db* nil))
;; (values))