[hunchentoot-devel] Session Time Out - HELP!

[Hans Hübner]

On Fri, May 21, 2010 at 18:15, Phil Marneweck <zaries at 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