anchor.diff:               (unwind-protect
                     (handler-case
                         (progn
  +                        (format t "Connecting to server~%")
                           (setf conn (orcabot-connect config))
                           (initialize-access config)
                           (initialize-dispatcher conn config)
  
positive.code:                    (shutdown-dispatcher conn)
                     (close (irc:network-stream conn) :abort t)))))
             (unless *quitting*
               (sleep 10)))
        (format t "Exiting gracefully.~%"))))
  
  
negative.code:                         (iolib:socket-os-fd (cl-irc::socket conn))
                          :read
                          (lambda (fd event exception)
                            (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)
  