anchor.diff:        (let ((fn (gethash command *command-table*)))
           (cond (fn (funcall fn irc prefix parameters))
                 ((keywordp command)
  -               (format (display-pane irc) "[~A] -!- ~A~%" prefix (car (last parameters))))
  +               (format (display-pane irc) "~&[~A] -!- ~A" prefix (car (last parameters))))
                 ((integerp command)
  -               (format (display-pane irc) "[~A] ~D ~A~%" prefix command parameters))
  -              (t (write-line line (display-pane irc))))))))
  +               (format (display-pane irc) "~&[~A] ~D ~A" prefix command parameters))
  +              (t (format (display-pane irc) "~&~A" line)))))))
   
   (defun irc-main ()
     (catch 'quit
  
positive.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)
                                                                1))
                                              :width (- (mezzanine.gui.compositor:width window)
                                                        (nth-value 0 (mezzanine.gui.widgets:frame-size frame))
                                                        (nth-value 1 (mezzanine.gui.widgets:frame-size frame)))
  
negative.code: 
  (define-command eval (irc text)
    (let ((*standard-output* (display-pane irc)))
      (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)
           (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)
           (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)
    ;; FIXME: Check status.
    (setf (nickname irc) text)
    (when (irc-connection irc)
  