(setq go-start '(setq foo (make-instance 'listener :port 7777)))
(setq go-accept '(progn (setq bar (event foo)) (setq baz (cadr bar)))) 
(setq go-read '(loop (event baz)))