anchor.diff:          (line (subseq (second (arguments message)) (length *command-prefix*))))
   
       (cond
  -
  -      ((string-equal "help" (nth-word 0 line))
  -       (send-message-or-tell-intro client message)
  -       (cmd-help client target))
  -
         ((and (string-equal "tell" (nth-word 0 line))
               (not (tell-intro message)))
          (cmd-tell client message line)))))
  
positive.code: (defvar *max-input-queue-length* 10)
  
  (defmethod handle-input-message ((client client) (message server-privmsg))
    (let* ((contents (second (arguments message)))
           (type (cond ((match-prefix-p *eval-prefix* contents)
                        'server-privmsg-eval)
                       ((match-prefix-p *command-prefix* contents)
                        'server-privmsg-cmd))))
  
      (when type
        (let ((new (make-instance type :command (command message)
                                  :prefix (prefix message)
                                  :arguments (arguments message)
                                  :tell-intro (tell-intro message))))
  
negative.code: 
  (defun match-prefix-p (prefix string)
    (string= prefix string :end2 (min (length prefix) (length string))))
  
  (defun cmd-tell (client message line)
    (let ((word1 (nth-word 1 line))
  