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: 
  ;; A very convenient macro...
  (defmacro defcommand (name (&optional (regex "") &rest vars) &body body)
    `(add-command (proto 'command-bot) (symbol-name ',name)
  		(defclone ((proto 'command))
  		    ((cmd-function
  		      (lambda (*bot* *message* *sender* *channel*)
  			(declare (ignorable *message* *bot* *sender* *channel*))
  			,@(if vars
  			      `((register-groups-bind ,vars (,regex *message*)
  				  ,@body))
  			      `(,@body))))))))
  
  ;;; Command processing
  
  
negative.code: 
  ;;; BBS 
  (defcommand bbs ("(.*)" query)
    "Syntax: 'bbs <query> - Searches the Arch Linux BBS."
    (multiple-value-bind (title url)
        (bbs-search query)
      (build-string "~:[~;~A ~]<~A>" title title url)))
  