Removing dead code.

master
Thomas 11 years ago
parent 1688e7a875
commit bd9afc8f96

@ -215,11 +215,3 @@ SESSION \(the default is the current session) if it exists."
(,%symbol ,symbol)) (,%symbol ,symbol))
(setf (slot-value ,%session ,%symbol) ,new-value) (setf (slot-value ,%session ,%symbol) ,new-value)
(save-pg-session ,%session)))) (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))

Loading…
Cancel
Save