anchor.diff:  
         :timeout
         (let ((msg (make-instance 'client-privmsg :target target
  -                                :contents (outmsg "EVAL-TIMEOUT"))))
  +                                :contents (irc-fmt "EVAL-TIMEOUT"))))
           (send :terminal msg)
           (queue-add (send-queue client) msg)))))
   
  
positive.code:        (let* ((spec (nth-word 1 line))
                (contents (let ((url (clhs-url:clhs spec)))
                            (if url
                                (outmsg "~A (~A)" url (string-upcase spec))
                                (outmsg "No CLHS match for ~A." spec)))))
           (let ((new (make-instance 'client-privmsg :target target
                                     :contents contents)))
             (send :terminal new)
  
negative.code:                     :tell-intro (make-instance
                                   'client-privmsg
                                   :target word1
                                   :contents (irc-fmt "User ~A tells: ~A"
                                                      (trivial-irc:prefix-nickname
                                                       (prefix message))
                                                      rest))))))))))
  
  (defvar *max-input-queue-length* 10)
  
  