;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
-;;;; $Id: sessions.lisp,v 1.2 2003/07/16 16:40:35 kevin Exp $
+;;;; $Id: sessions.lisp,v 1.3 2003/07/16 20:40:43 kevin Exp $
;;;;
;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
;;;; *************************************************************************
"Find or make websession for key"
(let ((sessions (sessions (session-master (entity-project ent)))))
;; if sessions doesn't exist, then project is not session enabled
- (when session
+ (when sessions
(cond
((null key)
(make-websession req ent method))
collect s))
(defun all-sessions (&aux s)
- (dolist (p *active-projects* s)
- (let ((sm (session-master p))
- (sessions (when sm (sessions sm))))
- (when sessions
- (maphash
- (lambda (k v)
- (declare (ignore k))
- (push (cons v p) s))
- sessions)))))
+ (maphash
+ (lambda (name proj)
+ (declare (ignore name))
+ (let* ((sm (session-master proj))
+ (sessions (when sm (sessions sm))))
+ (when sessions
+ (maphash
+ (lambda (k v)
+ (declare (ignore k))
+ (push (cons v proj) s))
+ sessions))))
+ *active-projects*)
+ s)
(defmethod flush-expired (s)
(let ((sessions (sessions (session-master (cdr s)))))