anchor.diff:  ;;; Memos
   (defcommand "memo"
     (destructuring-bind (recipient memo)
  -      (split "\\s+" *args* :limit 2)
  +      (split "\\s+" *message* :limit 2)
       (progn
         (add-memo recipient memo *sender*)
         (send-msg *bot* *channel*
  
positive.code: ;;; Google
  (defcommand "google"
    (multiple-value-bind (title url)
        (google-search *args*)
      (send-reply *bot* *sender* *channel*
                  (format nil "~A <~A>" title url))))
  
  
negative.code:           (set-fact noun (format nil "~A ~A ~A ~A" article noun verb info)))))
  
  (defcommand "fact"
    (send-msg *bot* *channel* (get-fact *message*)))
  
  ;;; URLs
  (deflistener scan-for-url
  