anchor.diff:                                                  (nth-value
                                                    1 (iolib:receive-from (socket-internal-socket socket) :buffer buffer))))
                                             (when (zerop bytes-read)
  -                                            (error 'end-of-file))
  +                                            (error 'end-of-file :stream socket))
                                             (incf (socket-bytes-read socket) bytes-read)
                                             (let ((data (if-let (format (socket-external-format-in socket))
                                                           (babel:octets-to-string buffer
  
positive.code:                           :read (lambda (&rest ig)
                                    (declare (ignore ig))
                                    ;; NOTE - The redundant errors are there for reference.
                                    (handler-bind (((or iolib:socket-connection-reset-error
                                                        end-of-file
                                                        error)
                                                    (lambda (e &aux (*socket* socket))
                                                      (on-socket-error (socket-driver socket) e))))
                                      (restart-case
  
negative.code: (defvar *socket*)
  (defprotocol socket-event-driver (a)
    ((error (driver 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.
  