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:                              ,(first fullscreen-p)
                               ,(first canvas-width)
                               ,(first canvas-height)
                               (list ,@panels)))
           (make-instances-obsolete ',name)))))
  
  
  
negative.code:                         (depends-on :depends-on)
                          (default-initargs :default-initargs)
                          (canvas-width :canvas-width)
                          (canvas-height :canvas-height)
                          (draw-rate :draw-rate)
                          (act-rate :act-rate))
                         (alist-hash-table extended)
        `(progn
           (defclass ,name (appkit-system ,@classes)
  