anchor.diff:  
   
   (defun %app-update-flow (app viewport-title viewport-width viewport-height
  -                         fullscreen-p canvas-width canvas-height panel-classes)
  +                         fullscreen-p canvas-width canvas-height panel-classes
  +                         act-rate draw-rate)
     (let ((width (or viewport-width *default-viewport-width*))
           (height (or viewport-height *default-viewport-height*)))
  -    (>> (ge.host:for-host ()
  +    (>> (instantly ()
  +          (log/debug "Updating appkit instance")
  +          (update-frame-queue app draw-rate act-rate))
  +        (ge.host:for-host ()
             (log/debug "Updating appkit host configuration")
             (update-viewport app
                              (or viewport-title *default-viewport-title*)
  
positive.code: 
  (declaim (special *font*))
  
  (defvar +origin+ (vec2 0.0 0.0))
  (defvar *black* (vec4 0 0 0 1))
  (defvar *appkit-instance-class* nil)
  
  (defparameter *default-viewport-width* 800)
  (defparameter *default-viewport-height* 600)
  
negative.code:    (disabled-p :initform nil)
     (sweep-continuation :initform nil)
     (canvas-width :initform nil)
     (canvas-height :initform nil)
     (frame-queue :initform nil)))
  
  
  (defgeneric %app-configuration-flow (appkit)
  