anchor.diff:                  (setf (output-buffer client) nil
                         (output-byte-count client) 0)))))
         (iolib:socket-connection-reset-error ()
  -        (format t "Got a reset from client.~%")
  +        (format t "Got a reset from ~A.~%" client)
           (finish-output)
           (disconnect client :close))
         (isys:ewouldblock ()
  -        (format t "Got an EWOULDBLOCK.~%")
  +        (format t "Got an EWOULDBLOCK while writing to ~A.~%" client)
           (finish-output))
         (isys:epipe ()
  -        (format t "Got a hangup on write.~%")
  +        (format t "Got a hangup while writing to ~A.~%" client)
           (disconnect client :close)))))
   
   (defgeneric write-to-client (client data)
  
positive.code:           (incf (input-buffer-fill client) bytes-read))
        (iolib:socket-connection-reset-error ()
          ;; Should do something here
          (format t "Got a reset from client.~%")
          (finish-output)
          (disconnect client :close))
        (end-of-file ()
          ;; Should do something here, too.
          (format t "Received unexpected EOF from client.~%")
          (finish-output)
          (disconnect client :close)))))
  
  
negative.code:            :initform (error "Must provide a socket for this client."))
     (service-provider :accessor service-provider :initarg :provider
                       :initform (error "Must provide a provider for this client."))
     (remote-name :accessor remote-name)
     (port :accessor port)
     (max-buffer-bytes :reader max-buffer-bytes :initarg :max-buffer-bytes :initform 16384)
     (input-buffer :accessor input-buffer)
  