anchor.diff:                   (not (client-writer-active client))
                    (not (client-write-closed client)))
           (try-write-client client))
  -
  +      (when read (format t "enable read ~s ~s ~s~%"
  +                         fd
  +                         (client-reader-active client)
  +                         (client-read-closed client)))
         (when (and read
                    (not (client-reader-active client))
                    (not (client-read-closed client)))
           (set-io-handler *event-base* fd :read (client-reader client))
  -        (setf (client-reader-active client) t))
  +        #++(setf (client-reader-active client) t))
   
         (when (and error (not (client-error-active client)))
           (error "error handlers not implemented yet...")))))
   
   (defmethod client-disable-handler ((client client) &key read write error)
  -  #++
     (lg "disable handlers for ~s:~s ~s ~s ~s~%"
         (client-host client) (client-port client) read write error)
     (let ((fd (socket-os-fd (client-socket client))))
       (when (and write (client-writer-active client))
         (remove-fd-handlers *event-base* fd :write t)
  -      (setf (client-writer-active client) nil))
  +      #++(setf (client-writer-active client) nil))
  +      (when read (format t "disable read ~s ~s ~s~%"
  +                         fd
  +                         (client-reader-active client)
  +                         (client-read-closed client)))
       (when (and read (client-reader-active client))
         (remove-fd-handlers *event-base* fd :read t)
  -      (setf (client-reader-active client) nil))
  +      #++(setf (client-reader-active client) nil))
       (when (and error (client-error-active client))
         (error "error handlers not implemented yet..."))))
   
  
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:                  `(handler-case
                        (progn ,@body)
                      (socket-not-connected-error ()
                        (format t "enotconn ~s ~s ~s~%" ,(format nil "~s" body)
                                (client-port client) fd)
                        nil)
                      (isys:epipe ()
                        (format t "epipe in disconnect~%")
  