Revision: 4494 Author: edi URL: http://bknr.net/trac/changeset/4494 Fix reset-sessions U trunk/thirdparty/hunchentoot/doc/index.xml U trunk/thirdparty/hunchentoot/session.lisp Modified: trunk/thirdparty/hunchentoot/doc/index.xml =================================================================== --- trunk/thirdparty/hunchentoot/doc/index.xml 2009-12-27 23:14:59 UTC (rev 4493) +++ trunk/thirdparty/hunchentoot/doc/index.xml 2009-12-28 16:40:26 UTC (rev 4494) @@ -2134,10 +2134,15 @@ <clix:function name='reset-sessions'> <clix:lambda-list> + <clix:lkw>optional + </clix:lkw> acceptor </clix:lambda-list> <clix:returns>| </clix:returns> - <clix:description>Removes <em>all</em> stored sessions. + <clix:description>Removes <em>all</em> stored sessions + of <clix:arg>acceptor</clix:arg>. The default + for <clix:arg>acceptor</clix:arg> + is <clix:ref>*ACCEPTOR*</clix:ref>. </clix:description> </clix:function> Modified: trunk/thirdparty/hunchentoot/session.lisp =================================================================== --- trunk/thirdparty/hunchentoot/session.lisp 2009-12-27 23:14:59 UTC (rev 4493) +++ trunk/thirdparty/hunchentoot/session.lisp 2009-12-28 16:40:26 UTC (rev 4494) @@ -353,10 +353,10 @@ cease to be valid." (setq *session-secret* (create-random-string 10 36))) -(defun reset-sessions () - "Removes ALL stored sessions." - (with-session-lock-held ((session-db-lock *acceptor*)) - (loop for (nil . session) in (session-db *acceptor*) +(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 (funcall *session-removal-hook* session)) (setq *session-db* nil)) (values)) \ No newline at end of file