anchor.diff:                                    (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)
  +                    (iolib:hangup (err)
  +                      (format t "Hangup received ~a~%" err))
  +                    (iolib:socket-error (err)
  +                      (format t "Socket error ~a~%" err))
  +                    (sb-int:simple-stream-error (err)
  +                      (format t "Simple stream error ~a~%" err))
  +                    (cl+ssl::ssl-error-syscall (err)
  +                      (format t "SSL error ~a~%" err))
                       (orcabot-exiting ()
                         (setf *quitting* t)
                         (irc:quit conn "Quitting")
  
positive.code:                    (shutdown-dispatcher conn)
                     (close (irc:network-stream conn) :abort t)))))
             (unless *quitting*
               (sleep 10)))
        (format t "Exiting gracefully.~%"))))
  
  
negative.code:              (unwind-protect
                    (handler-case
                        (progn
                          (format t "Connecting to server~%")
                          (setf conn (orcabot-connect config))
                          (initialize-access config)
                          (initialize-dispatcher conn config)
  