anchor.diff:                              :viewport-resizable ,viewport-resizable
                               :viewport-decorated ,viewport-decorated
                               :autoscaled ,autoscaled)
  -                     :appkit (:antialiased ,(not samples))))
  +                     :appkit (:antialiased ,(not samples)
  +                              :swap-interval ,swap-interval)))
              :blocking blocking))
   
   
  
positive.code:                           viewport-resizable
                            (viewport-decorated t)
                            (autoscaled t)
                            properties)
    (when *appkit-instance-class*
      (error "Only one active system of type 'appkit-system is allowed"))
  
negative.code:             ui (ge.ui:make-ui viewport-width viewport-height :pixel-ratio pixel-ratio
                                                               :input-source input-source
                                                               :antialiased antialiased-p)
              (ge.host:swap-interval) (property '(:appkit :swap-interval) 1)))
      (ge.ui:attach-host-input-source input-source)))
  
  
  