+(define-method (nm-handle-port-closed (nm <network-manager>) client local-id)
+ "Handle a closed port"
+ (format #t "DEBUG: handled closed port ~x\n" local-id)
+ (8sync-port-remove client)
+ (hash-remove! (nm-clients nm) local-id))
+
+(define-method (nm-handle-port-eof (nm <network-manager>) client local-id)
+ "Handle seeing an EOF on port"
+ (format #t "DEBUG: handled eof-object on port ~x\n" local-id)
+ (close client)
+ (8sync-port-remove client)
+ (hash-remove! (nm-clients nm) local-id))
+
+(define-method (nm-handle-line (nm <network-manager>) client local-id line)