anchor.diff:  ;;; Google
   (defcommand "google"
     (multiple-value-bind (title url)
  -      (google-search *args*)
  +      (google-search *message*)
       (send-reply *bot* *sender* *channel*
                   (format nil "~A <~A>" title url))))
   
  
positive.code: ;;; Memos
  (defcommand "memo"
    (destructuring-bind (recipient memo)
        (split "\\s+" *args* :limit 2)
      (progn
        (add-memo recipient memo *sender*)
        (send-msg *bot* *channel*
  
negative.code:   (send-reply *bot* *sender* *channel* "Go away."))
  (defcommand "give"
    (register-groups-bind (new-target new-command new-args)
        ("(\\S+) (\\S+) (.*)$" *message*)
      (answer-command *bot* new-command new-args new-target *channel*)))
  
  ;;; Character Decoding
  (defcommand "code->char"
    (send-msg *bot* *channel*
              (let* ((str  (car (split "\\s+" (or *message* "") :limit 2)))
                     (code (parse-integer str :junk-allowed T)))
                (format nil "~:[Invalid code~;~:*~A~]"
                        (and (integerp code) (/= code 127) (>= code 32)
                                (code-char code))))))
  (defcommand "char->code"
    (send-msg *bot* *channel*
              (let ((code (and *message* (char-code (elt *message* 0)))))
                (format nil "~:[Invalid character~;~A~]"
                        (and (integerp code) (/= code 127) (>= code 32))
                        code))))
  