anchor.diff:  (defvar *socket*)
   (defprotocol socket-event-driver (a)
     ((error (driver error)
  -    :default-form #+nil(drop-connection error) nil
  +    :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.
  
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:                                                 (nth-value
                                                   1 (iolib:receive-from (socket-internal-socket socket) :buffer buffer))))
                                            (when (zerop bytes-read)
                                              (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
  