anchor.diff:                                   :depends-on
                                    :default-initargs
                                    :canvas-width
  -                                 :canvas-height))
  +                                 :canvas-height
  +                                 :draw-rate
  +                                 :act-rate))
             collect opt into extended
           else
             collect opt into std
  
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:     (let ((pixel-ratio (viewport-pixel-ratio)))
        (setf framebuffer-size (vec2 (* viewport-width pixel-ratio)
                                     (* viewport-height pixel-ratio))))))
  
  
  (defun update-frame-queue (app draw-rate act-rate)
    (with-slots (frame-queue) app
      (setf frame-queue (muth:make-blocking-timed-queue))
      (let* ((current-time (real-time-seconds))
             (draw-item (cons (%draw-flow app)
                              (cons current-time
                                    (/ 1 (or draw-rate +default-frame-rate+)))))
             (act-item (cons (%act-flow app)
                             (cons current-time
                                   (/ 1 (or act-rate +default-frame-rate+))))))
        (%reschedule-flow frame-queue draw-item)
        (%reschedule-flow frame-queue act-item))))
  
  
  (defun update-graphics (this viewport-width viewport-height
  