anchor.diff:                            0
                             (parse-integer zone :junk-allowed t)))
            (ks-time (get-ks-time parsed-zone)))
  -    (cmd-reply "The time in GMT~A is ~3$ ks."
  +    (cmd-msg "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)))
  
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: (defvar *message*)
  (defvar *sender*)
  (defvar *channel*)
  (defvar *responses*)
  ;;; Command processing
  (deflistener command-listener
    (when (sent-to-me-p *bot* *channel* *message*)
      (respond-to-message *bot* *sender* *channel* *message*)))
  (defmessage respond-to-message (bot sender channel message))
  (defmessage answer-command (bot cmd args sender channel))
  (defmessage get-responses (bot cmd args sender channel))
  
  (defreply respond-to-message ((bot (proto 'sykobot)) sender channel message)
    (let* ((string (scan-string-for-direct-message bot channel message))
           (command+args (split "\\s+" string :limit 2)))
  