From bd9afc8f964fe4a3ddd9a3a73bddeaadab500be5 Mon Sep 17 00:00:00 2001 From: Thomas Date: Thu, 10 Jul 2014 08:44:46 -0700 Subject: [PATCH] Removing dead code. --- pg-sessions.lisp | 8 -------- 1 file changed, 8 deletions(-) diff --git a/pg-sessions.lisp b/pg-sessions.lisp index 1db7573..19250b7 100644 --- 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))