anchor.diff:                          (password nil)
                           (server cl-irc::*default-irc-server*)
                           (port :default)
  -                        (connection-type 'connection)
  +                        (connection-type 'nonblocking-connection)
                           (connection-security :none)
                           (logging-stream t))
     "Create a cl-irc compatible connection object."
  
positive.code:      :port port
       :connection-security security)))
  
  (defmethod cl-irc::irc-message-event (connection (message irc-message))
    "Redefines the standard IRC message-event handler so that it doesn't
  log anything when it receives an unhandled event."
    (declare (ignore connection))
    (cl-irc::apply-to-hooks message))
  
  (defun main-event-loop (conn)
    (iolib:set-io-handler *event-base*
  
negative.code:                       (progn
                          (format t "Connecting to server~%")
                          (setf conn (orcabot-connect config))
                          (format t "Initializing access~%")
                          (initialize-access config)
                          (format t "Initializing dispatcher~%")
                          (initialize-dispatcher conn config)
                          (format t "Entering main loop~%")
                          (handler-bind
                              ((irc:no-such-reply
                                #'(lambda (c)
  