anchor.diff:                                isys:epipe
                                 error)
                             (lambda (e)
  -                            (on-socket-error driver e socket))))
  +                            (on-socket-error driver socket e))))
               (restart-case
                   (let ((bytes-written (iolib:send-to (socket-internal-socket socket)
                                                       (socket-write-buffer socket)
  
positive.code:                                                     end-of-file
                                                      error)
                                                  (lambda (e)
                                                    (on-socket-error (socket-driver socket) e socket))))
                                    (restart-case
                                        (let* ((buffer (socket-read-buffer socket))
                                               (bytes-read
  
negative.code: ;; Events
  (defprotocol socket-event-driver (a)
    ((error (driver socket error)
      :default-form nil
      :documentation "Event called when SOCKET has experienced some error. ERROR is the actual
                      condition. This event is executed immediately before the client is shut down.
                      By default, this event simply drops the client connection.
  