|
|
@ -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))
|
|
|
|
|
|
|
|