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