anchor.diff:                   `(handler-case
                         (progn ,@body)
                       (socket-not-connected-error ()
  -                      (format t "enotconn ~s~%" ,(format nil "~s" body))
  +                      (format t "enotconn ~s ~s ~s~%" ,(format nil "~s" body)
  +                              (client-port client) fd)
                         nil)
                       (isys:epipe ()
                         (format t "epipe in disconnect~%")
  
positive.code:                                 :write (lambda (fd event exception)
                                           (declare (ignore fd event exception))
                                           (try-write-client client)))
                  (setf (client-writer-active client) t))))
         (handler-case
             (loop
                unless (client-write-buffer client)
  
negative.code:    (server-hook :initarg :server-hook :reader %client-server-hook)
     (socket :initarg :socket :reader client-socket)
     ;; flags indicating the read/write handlers are active
     ;(reader-active :initform nil :accessor client-reader-active)
     ;(writer-active :initform nil :accessor client-writer-active)
     ;(error-active :initform nil :accessor client-error-active)
     ;; flags indicating (one side of) the connection is closed
     (read-closed :initform nil :accessor client-read-closed)
     (write-closed :initform nil :accessor client-write-closed)
  