anchor.diff:                (eql (char message 0) (code-char #x01))
                 (eql (char message (1- (length message))) (code-char #x01))
                 (string= "ACTION " message :start2 1 :end2 8))
  -         (format t "[~A]* ~A ~A~%" channel from
  +         (format (display-pane irc) "~&[~A]* ~A ~A" channel from
                    (subseq message 8 (1- (length message)))))
  -        (t (format t "[~A]<~A> ~A~%" channel from message))))
  +        (t (format (display-pane irc) "~&[~A]<~A> ~A" channel from message))))
   
   (define-server-command ping (irc from message)
     (buffered-format (irc-connection irc) "PONG :~A~%" message))
  
positive.code:                                               :height (- (mezzanine.gui.compositor:height window)
                                                           (nth-value 2 (mezzanine.gui.widgets:frame-size frame))
                                                           (nth-value 3 (mezzanine.gui.widgets:frame-size frame))
                                                           2
                                                           (mezzanine.gui.font:line-height font))
                                                :damage-function (mezzanine.gui.widgets:default-damage-function window)))
                   (input-pane (make-instance 'mezzanine.gui.widgets:text-widget
  
negative.code:          (error "Already connected to ~S." (irc-connection irc)))
          (t (multiple-value-bind (address port)
                 (resolve-server-name text)
               (format (display-pane irc) "~&Connecting to ~A (~A:~A)." text address port)
               (setf (mezzanine.gui.widgets:frame-title (frame irc)) (format nil "IRC - ~A" text))
               (mezzanine.gui.widgets:draw-frame (frame irc))
               (mezzanine.gui.compositor:damage-window (window irc)
  