anchor.diff:             (client-disconnect client :close t)))))))
   
   (defmethod client-enable-handler ((client client) &key read write error)
  -  #++
     (lg "enable handlers for ~s:~s ~s ~s ~s~%"
         (client-host client) (client-port client) read write error)
     (when (and (not (client-socket-closed client))
  
positive.code:                  `(handler-case
                        (progn ,@body)
                      (socket-not-connected-error ()
                        (format t "enotconn ~s~%" ,(format nil "~s" body))
                        nil)
                      (isys:epipe ()
                        (format t "epipe in disconnect~%")
  
negative.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)
  