anchor.diff:                            viewport-resizable
                             (viewport-decorated t)
                             (autoscaled t)
  +                          (swap-interval 1)
                             properties)
     (when *appkit-instance-class*
       (error "Only one active system of type 'appkit-system is allowed"))
  
positive.code:                             :viewport-resizable ,viewport-resizable
                              :viewport-decorated ,viewport-decorated
                              :autoscaled ,autoscaled)
                       :appkit (:antialiased ,(not samples))))
             :blocking blocking))
  
  
  
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)))
  
  
  