anchor.diff:                        :realname "OrcaBot 1.0d"
                         :password ""
                         :port 6667
  -                      :ssl t))
  +                      :connection-security :ssl))
     (shuffle-hooks)
     #+(or sbcl
           openmcl)
  
positive.code:   (dolist (channel *autojoin-channels*)
      (irc:join *connection* channel)))
  
  (defun ping-hook (message)
    (irc:pong *connection* (first (arguments message))))
  
  (defun shuffle-hooks ()
    (irc::remove-hooks *connection* 'irc::irc-privmsg-message)
  
negative.code:   (irc::remove-hooks *connection* 'irc::irc-part-message)
    (irc::remove-hooks *connection* 'irc::irc-topic-message)
    (irc::remove-hooks *connection* 'irc::irc-rpl_endofmotd-message)
    (add-hook *connection* 'irc::irc-privmsg-message 'msg-hook)
    (add-hook *connection* 'irc::irc-quit-message 'quit-hook)
    (add-hook *connection* 'irc::irc-part-message 'part-hook)
    (add-hook *connection* 'irc::irc-topic-message 'topic-hook)
    (add-hook *connection* 'irc::irc-rpl_endofmotd-message 'connected-hook)
    (add-hook *connection* 'irc::irc-err_nicknameinuse-message 'error-hook))
  
  (defun orca-run ()
    (local-time:enable-read-macros)
  