Removing dead code.

11 years ago · bd9afc8f96
parent 1688e7a875
commit bd9afc8f96
1 changed files with 0 additions and 8 deletions
--- a/pg-sessions.lisp
+++ b/pg-sessions.lisp
@ -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))