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:        (loop :for line :in *command-help-strings*
               :for msg := (make-instance 'client-privmsg
                                          :target target
                                          :contents (outmsg 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*))))
           (send :terminal new)
           (queue-add (send-queue client) new)))
  
  
negative.code: 
        :timeout
        (let ((msg (make-instance 'client-privmsg :target target
                                  :contents (irc-fmt "EVAL-TIMEOUT"))))
          (send :terminal msg)
          (queue-add (send-queue client) msg)))))
  
  