anchor.diff:  
   ;;; kiloseconds
   (defcommand kiloseconds ("(.*)" zone)
  +  "Syntax: 'kiloseconds [<zone>]' - The current time in kiloseconds. Optionally, a time zone~
  +can be provided in the format [+-]NUM. Example: 'kiloseconds -5'."
     (when (zerop (length zone)) (setf zone "0"))
     (let ((parsed-zone (parse-integer zone :junk-allowed t)))
       (if parsed-zone
  
positive.code:       "Language specifications need to be 2 letters long."))
  
  (defcommand weather ("(.+)" location)
    (let* ((location-data
  	  (json:decode-json-from-string 
  	   (map 'string #'code-char 
  
negative.code: 
  ;;; base commands
  (defcommand echo ("(.*)" string)
    "Syntax: 'echo <string>' - Echoes back STRING."
    string)
  (defcommand help ("(\\S+)" cmd-name)
    "Syntax: 'help [<cmd-name>]' - If cmd-name is provided, dumps the docstring for that command.~
  otherwise, it dumps a generic help string."
    (if (<= 1 (length cmd-name))
        (let ((cmd (find-command *active-bot* cmd-name)))
  	(if cmd 
  	    (dox cmd)
  	    (build-string "I don't know any command called ~A" cmd-name)))
        "Tell me 'help <cmd-name> for more information on a particular command."))
  (defcommand source ()
    "Syntax: 'source' - Dumps information about the bot's source code."
    "I'm licensed under the AGPL, you can find my source code at: http://github.com/zkat/sykobot")
  (defcommand version ()
    "Syntax: 'version' - Current version of sykobot."
    "Pfft. I have no versions. I'm 100% git")
  (defcommand commands ()
    "Syntax: 'commands' - Lists all available commands"
    (build-string "Available commands are ~{~A~^ ~}"
                  (list-all-commands *bot*)))
  (defcommand topic ("(.*)" new-topic)
    "Syntax: 'topic [<new-topic>]' - If new-topic is provided, and the bot has topic-setting~
  privileges, it sets the channel's topic. Otherwise, it dumps the current topic."
    (if (< 0 (length new-topic))
        (topic *bot* *channel* new-topic) ; Slightly broken
        (topic *bot* *channel*)))
  (defcommand ping () 
    "Syntax: 'ping' - Pongs you."
    "pong")
  (defcommand hi ()
    "This is undocumented. Fuck you. Don't care."
    "Go away.")
  (defcommand language () 
    "Syntax: 'language' - Returns information about the bot's implementation language."
    "I'm \"Lost In Stupid Parentheses\"")
  
  ;;; Give is currently broken
  #+nil (defcommand give ("(\\S+) (\\S+) (.*)$" new-target new-command new-args)
  