Welcome to the CHICKEN Scheme pasting service

; this is in terms of ((client-name . ((client-sid . (session)) ...)) ...)
(define sessions '())

(define (insert-session client-name sid new-session)
  (let* ((clients-sessions (alist-ref client-name sessions equal?))
	 (clients-sessions (or clients-sessions '())))
    (set! sessions
      (alist-update! client-name
		     (alist-cons sid new-session clients-sessions)
		     sessions equal?))
    (pp sessions)))

(define (select-session client-name sid)
  (let* ((clients-sessions (alist-ref client-name sessions equal?)))
    (if clients-sessions
      (alist-ref sid clients-sessions equal?)
      #f)))

#;5> (define a '((foo . 1) (bar . 2)))
#;6> (define b (alist-update! 'baz 3 a))
#;7> a
((foo . 1) (bar . 2))
#;8> b
((baz . 3) (foo . 1) (bar . 2))
#;9> (define c (alist-update! 'baz 4 b))
#;10> a
((foo . 1) (bar . 2))
#;11> b
((baz . 4) (foo . 1) (bar . 2))
#;12> c
((baz . 4) (foo . 1) (bar . 2))