On Fri, May 21, 2010 at 18:15, Phil Marneweck <zaries@global.co.za> wrote:
> Just to put me on the right tract, why would hunchentoot kill ALL sessions
> in GC and not just he ones that might have expired because that is what is
> happening here?

(defun session-gc ()
  "Removes sessions from the current session database which are too
old - see SESSION-TOO-OLD-P."
  (with-session-lock-held ((session-db-lock *acceptor*))
    (setf (session-db *acceptor*)
          (loop for id-session-pair in (session-db *acceptor*)
                for (nil . session) = id-session-pair
                when (session-too-old-p session)
                do (funcall *session-removal-hook* session)
                else
                collect id-session-pair)))
  (values))

i.e. you need to read the source.

-Hans

_______________________________________________
tbnl-devel site list
tbnl-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/tbnl-devel