anchor.diff:         (loop :for line :in *command-help-strings*
                :for msg := (make-instance 'client-privmsg
                                           :target target
  -                                        :contents (outmsg line))
  +                                        :contents (irc-fmt line))
                :do (queue-add (send-queue client) msg)))
   
         ((string-equal "source" (nth-word 0 line))
          (send-message-or-tell-intro client message)
          (let ((new (make-instance 'client-privmsg
                                    :target target
  -                                 :contents (outmsg "Bot's source code: ~A"
  -                                                   *source-code-url*))))
  +                                 :contents (irc-fmt "Bot's source code: ~A"
  +                                                    *source-code-url*))))
            (send :terminal new)
            (queue-add (send-queue client) new)))
   
  
positive.code: (defmethod send ((target (eql :terminal)) message)
    (send *local-stream* message))
  
  (defun outmsg (format-string &rest args)
    (apply #'format nil (concatenate 'string ";; " format-string) args))
  
  ;;; IRC
  
negative.code:        (let* ((spec (nth-word 1 line))
                (contents (let ((url (clhs-url:clhs spec)))
                            (if url
                                (irc-fmt "~A (~A)" url (string-upcase spec))
                                (irc-fmt "No CLHS match for ~A." spec)))))
           (let ((new (make-instance 'client-privmsg :target target
                                     :contents contents)))
             (send :terminal new)
  