anchor.diff:    (answer-command bot (intern (string-upcase cmd) :sykobot) args sender channel))
   
   (defreply answer-command ((bot (proto 'sykobot)) (cmd (proto 'symbol)) args sender channel)
  +  (let ((responses (get-responses bot cmd args sender channel)))
  +    (loop for response in responses
  +       do (send-reply bot sender channel response))))
  +
  +(defreply get-responses ((bot (proto 'sykobot)) cmd args sender channel)
     (let ((fn (command-function cmd)))
       (funcall fn bot args sender channel)))
   
  
positive.code:                           0
                            (parse-integer zone :junk-allowed t)))
           (ks-time (get-ks-time parsed-zone)))
      (cmd-reply "The time in GMT~A is ~3$ ks."
                 (if (or (= parsed-zone 0) (plusp parsed-zone))
                     (format nil "+~A" (mod parsed-zone 24))
                     (format nil "~A" (- (mod parsed-zone 24) 24)))
  
negative.code:   `(add-command ',name
                  (lambda (*bot* *message* *sender* *channel*)
                    (declare (ignorable *message* *bot* *sender* *channel*))
                    (let ((*responses* nil))
                      ,@(if vars
                            `((register-groups-bind ,vars (,regex *message*)
                                ,@body))
                            `(,@body))
                      *responses*))))
  
  (defun sent-to-me-p (bot channel message)
    (when (scan-string-for-direct-message bot channel message)
  