anchor.diff:                                     :frame frame
                                      :font font
                                      :display-pane display-pane
  -                                   :input-pane input-pane)))
  +                                   :input-pane input-pane
  +				   :nickname *default-nick*)))
             (setf (slot-value input-pane '%irc) irc)
             (draw-seperating-line irc (mezzano.gui.compositor:width window) (mezzano.gui.compositor:height window) framebuffer)
             (mezzano.gui.widgets:draw-frame frame)
  
positive.code:                  mezzano.gui.font:*default-monospace-font*
                   mezzano.gui.font:*default-monospace-font-size*))
            (fifo (mezzano.supervisor:make-fifo 50)))
        (mezzano.gui.compositor:with-window (window fifo 640 480)
          (let* ((framebuffer (mezzano.gui.compositor:window-buffer window))
                 (frame (make-instance 'mezzano.gui.widgets:frame
  
negative.code: (in-package :irc-client)
  
  (defvar *irc-history* (make-instance 'mezzano.line-editor:history-table))
  (defvar *irc-init-file* "SYS:HOME;IRC-INIT.lisp")
  (defvar *default-nick* "Mezzie")
  
  (defparameter *numeric-replies*
    '((401 :err-no-such-nick)
  