anchor.diff:  (defcommand cliki ("(.*)" query)
     (multiple-value-bind (links numlinks)
         (cliki-urls query)
  -    (cmd-reply "I found ~D result~:P.~@[ Check out <~A>.~]" numlinks (car links))))
  +    (cmd-msg "I found ~D result~:P.~@[ Check out <~A>.~]" numlinks (car links))))
   
   (defun cliki-urls (query)
     (let ((links NIL)
  
positive.code:   (answer-command bot (intern (string-upcase cmd) :sykobot) args sender channel))
  
  (defreply answer-command ((bot (proto 'sykobot)) (cmd (proto 'symbol)) args sender channel)
    (let ((fn (command-function cmd)))
      (funcall fn bot args sender channel)))
  
  
negative.code:         ((scan (format nil "^~A+" *cmd-prefix*) message)
           (regex-replace (format nil "^~A+" *cmd-prefix*) message ""))))
  
  (defun cmd-msg (message &rest format-args)
    (push (apply #'format nil message format-args)
          *responses*))
  
  ;;; base commands
  (defcommand echo ("(.*)" string)
    (cmd-msg string))
  (defcommand source ()
    (cmd-msg "http://github.com/zkat/sykobot"))
  (defcommand version ()
    (cmd-msg "Pfft. I have no versions. I'm 100% git"))
  (defcommand help ()
    (cmd-msg "No."))
  (defcommand commands ()
    (cmd-msg "~A: available commands are ~{~A~^ ~}" *sender* (get-commands)))
  (defcommand topic ("(.*)" new-topic)
    (if (< 0 (length new-topic))
        (topic *bot* *channel* new-topic)
        (cmd-msg (topic *bot* *channel*))))
  (defcommand ping ()
    (cmd-msg "pong"))
  (defcommand shut ("(\\S+)*" arg1)
    (when (equalp arg1 "up")
      (cmd-msg "Fine. Be that way. Tell me to talk when you realize ~
                  just how lonely and pathetic you really are.")
      (shut-up *bot*)))
  (defcommand talk ()
    (un-shut-up *bot*)
    (cmd-msg "bla bla bla bla. There, happy?"))
  (defcommand hi ()
    (cmd-msg "Go away."))
  (defcommand give ("(\\S+) (\\S+) (.*)$" new-target new-command new-args)
    (answer-command *bot* new-command new-args new-target *channel*))
  
  