anchor.diff:  
   (define-command eval (irc text)
     (let ((*standard-output* (display-pane irc)))
  -    (format t "[eval] ~A~%" text)
  +    (format t "~&[eval] ~A~%" text)
       (eval (read-from-string text))
       (fresh-line)))
   
   (define-command say (irc text)
     (cond ((and (irc-connection irc) (current-channel irc))
  -         (format (display-pane irc) "[~A]<~A> ~A~%" (current-channel irc) (nickname irc) text)
  +         (format (display-pane irc) "~&[~A]<~A> ~A" (current-channel irc) (nickname irc) text)
            (buffered-format (irc-connection irc) "PRIVMSG ~A :~A~%"
                             (current-channel irc) text))
           (t (error "Not connected or not joined to a channel."))))
   
   (define-command me (irc text)
     (cond ((and (irc-connection irc) (current-channel irc))
  -         (format (display-pane irc) "[~A]* ~A ~A~%" (current-channel irc) (nickname irc) text)
  +         (format (display-pane irc) "~&[~A]* ~A ~A" (current-channel irc) (nickname irc) text)
            (buffered-format (irc-connection irc) "PRIVMSG ~A :~AACTION ~A~A~%"
                             (current-channel irc) (code-char 1) text (code-char 1)))
           (t (error "Not connected or not joined to a channel."))))
   
   (define-command nick (irc text)
  -  (format (display-pane irc) "~&Changing nickname to ~A.~%" text)
  +  (format (display-pane irc) "~&Changing nickname to ~A." text)
     ;; FIXME: Check status.
     (setf (nickname irc) text)
     (when (irc-connection irc)
  
positive.code:                (write-char ch (input-pane irc)))))))
  
  (defmethod dispatch-event (irc (event server-disconnect-event))
    (format (display-pane irc) "Disconnected.~%"))
  
  (defmethod dispatch-event (irc (event server-line-event))
    (let ((line (line event)))
  
negative.code:                                                            (- (mezzanine.gui.compositor:height window)
                                                                (nth-value 2 (mezzanine.gui.widgets:frame-size frame))
                                                                (nth-value 3 (mezzanine.gui.widgets:frame-size frame))
                                                                (mezzanine.gui.font:line-height font)))
                                              :width (- (mezzanine.gui.compositor:width window)
                                                        (nth-value 0 (mezzanine.gui.widgets:frame-size frame))
                                                        (nth-value 1 (mezzanine.gui.widgets:frame-size frame)))
  