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