anchor.diff:        "Language specifications need to be 2 letters long."))
   
   (defcommand weather ("(.+)" location)
  +  "Syntax: 'weather <location>' - Tells you the current weather in <location>"
     (let* ((location-data
   	  (json:decode-json-from-string 
   	   (map 'string #'code-char 
  
positive.code: 
  ;;; CLiki search
  (defcommand cliki ("(.*)" query)
    (multiple-value-bind (links numlinks)
        (cliki-urls query)
      (build-string "I found ~D result~:P.~@[ Check out <~A>.~]"
  
negative.code: 
  ;;; 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
  