anchor.diff:             (values directp (list "svn" rev))))))))
   
   (defun respond-randomly (message)
  -  (let ((msg (with-output-to-string (str)
  -               (sb-ext:run-program "/usr/games/fortune"
  -                                   '("zippy")
  -                                   :input nil :output str))))
  +  (let ((msg (substitute #\space #\newline
  +                         (with-output-to-string (str)
  +                           (sb-ext:run-program "/usr/games/fortune"
  +                                               '("zippy")
  +                                               :input nil :output str)))))
       (if (char= #\# (char (first (arguments message)) 0))
           (irc:privmsg *connection* (first (arguments message))
                        (format nil "~a: ~a" (source message) msg))
  
positive.code:             ("forget" "<term> - remove a term")
              ("no" "<term> is <definition> - change a term")
              ("bug" "<bug number> - show a link to the ITA bug")
              ("tix" "<tix number> - show a link to an ITA tix ticket")))
           (help (assoc command cmd-help :test #'string-equal)))
      (if help
          (irc:notice *connection* (source message)
  
negative.code:         (reply-to message "~a was last seen in ~a saying \"~a\" at ~a"
                 nick (third record) (fourth record) (second record))))))
  
  (defun respond-to-thanks (message target)
    (reply-to message (format nil "~a: ~a" target
                              (random-elt '("You're welcome"
                                            "No problem"
                                            "Hey, I enjoy this sort of thing"
                                            "The pleasure was all mine"
                                            "No worries, mate"
                                            "Oh, it was nothing"
                                            "Let me know if there's anything else"
                                            "Don't mention it"
                                            "Anytime"
                                            "Likewise")))))
  
  (defun thank-target (message target)
    (reply-to message (format nil "~a: ~a" target
                              (random-elt '("Thank you very much."
                                            "Thanks"
                                            "Hey, thanks"
                                            "My thanks")))))
  
  (defun respond-to-hello (message)
    (reply-to message (format nil "~a: ~a" (source message)
                              (random-elt '("Hello"
                                    "Hey"
                                    "Hola."
                                    "Howdy"
                                    "How you doin?"
                                    "What's up?"
                                    "How's it going?"
                                    "What's happening?"
                                    "How are you?")))))
  
  (defcommand thank (message directp target)
    (thank-target message (or target (source message))))
  
  (defcommand thanks (message directp &rest junk)
    (declare (ignore junk))
    (respond-to-thanks message directp))
  
  (defcommand hi (message directp &rest junk)
    (declare (ignore junk))
    (respond-to-hello message))
  
  
  (defun message-target-is-channel-p (message)
    (string= "#" (first (arguments message)) :end2 1))
  