anchor.diff:            ,@user-default-initargs)
            ,@other-options)
   
  -       ,(generate-generate-panes-form
  -         name menu-bar panes layouts pointer-documentation)
  +       ,@(when (or panes layouts)
  +           `(,(generate-generate-panes-form
  +               name menu-bar panes layouts pointer-documentation)))
   
          ,@(when command-table
              `((define-command-table ,@command-table)))
  
positive.code:                     (push option (getf all-values :other-options)))))
        (alexandria:remove-from-plist all-values :pane))))
  
  (defmacro define-application-frame (name superclasses slots &rest options)
    (when (null superclasses)
      (setq superclasses '(standard-application-frame)))
  
negative.code:   (let ((*application-frame* frame)
          (event-queue (frame-event-queue frame)))
      (setf (slot-value frame 'top-level-sheet)
            (find-pane-for-frame fm frame))
      (generate-panes fm frame)
      (setf (slot-value frame 'state) :disabled)
      (when (typep event-queue 'event-queue)
  