(set! (.#.event.name  (.#.event.direction  (.#.port.name  o)))
  (lambda _ (log-in (.#.port.name  o) "#.event.name " e)))