anchor.diff:                          (iolib:socket-os-fd (cl-irc::socket conn))
                           :read
                           (lambda (fd event exception)
  -                          (declare (ignore fd event exceptioN))
  -                          (cl-irc:read-message conn)))
  +                          (declare (ignore fd event exception))
  +                          (handler-case
  +                              (cl-irc:read-message conn)
  +                            (error (err)
  +                              (format t "Caught error ~a in cl-irc:read-message" err)))))
     (iolib:event-dispatch *event-base*))
   
   (defun make-orcabot-instance (config)
  
positive.code:                                   (declare (ignore c))
                                    (use-value #\?))))
                            (main-event-loop conn)))
                      (iolib:hangup ()
                        nil)
                      (iolib:socket-error ()
                        nil)
                      (sb-int:simple-stream-error ()
                        nil)
                      (cl+ssl::ssl-error-syscall ()
                        nil)
                      (orcabot-exiting ()
                        (setf *quitting* t)
                        (irc:quit conn "Quitting")
  
negative.code:                    (shutdown-dispatcher conn)
                     (close (irc:network-stream conn) :abort t)))))
             (unless *quitting*
               (format t "Sleeping 10 seconds before reconnecting.~%")
               (sleep 10)))
        (format t "Exiting gracefully.~%"))))
  
  