anchor.diff:  (defmethod send ((target (eql :terminal)) message)
     (send *local-stream* message))
   
  -(defun outmsg (format-string &rest args)
  +(defun irc-fmt (format-string &rest args)
     (apply #'format nil (concatenate 'string ";; " format-string) args))
   
   ;;; IRC
  
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)
  
  