anchor.diff:      (force-output s)
       (make-channel :mode mode
                     :synchronous synchronous
  -                  :transport sock)))
  +                  :transport sock
  +                  :name channel-name
  +                  :host host)))
   
   (defun ach-close (channel)
     (socket-close (channel-transport channel)))
  
positive.code: (defstruct channel
    mode
    synchronous
    transport)
  
  (defun channel-input (channel)
    (socket-stream (channel-transport channel)))
  
negative.code: (defpackage :ach
    (:use :cl :binio :usocket)
    (:export :ach-connect :ach-close :ach-read :ach-write
             :ach-next :ach-last :ach-put :ach-map
             :make-listener :make-ach-syncpipe))
  
  (in-package :ach)
  