anchor.diff:                   mezzano.gui.font:*default-monospace-font*
                    mezzano.gui.font:*default-monospace-font-size*))
             (fifo (mezzano.supervisor:make-fifo 50)))
  +      (load *irc-init-file* :if-does-not-exist nil)
         (mezzano.gui.compositor:with-window (window fifo 640 480)
           (let* ((framebuffer (mezzano.gui.compositor:window-buffer window))
                  (frame (make-instance 'mezzano.gui.widgets:frame
  
positive.code: (in-package :irc-client)
  
  (defvar *irc-history* (make-instance 'mezzano.line-editor:history-table))
  
  (defparameter *numeric-replies*
    '((401 :err-no-such-nick)
  
negative.code:                                    :frame frame
                                     :font font
                                     :display-pane display-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)
  