anchor.diff:    (let ((*application-frame* frame)
           (event-queue (frame-event-queue frame)))
       (setf (slot-value frame 'top-level-sheet)
  -          (make-pane-1 fm frame 'top-level-sheet-pane
  -                       :name (frame-name frame)
  -                       :pretty-name (frame-pretty-name frame)
  -                       ;; sheet is enabled from enable-frame
  -                       :enabled-p nil))
  +          (find-pane-for-frame fm frame))
       (generate-panes fm frame)
       (setf (slot-value frame 'state) :disabled)
       (when (typep event-queue 'event-queue)
  
positive.code:           ,@user-default-initargs)
           ,@other-options)
  
         ,(generate-generate-panes-form
           name menu-bar panes layouts pointer-documentation)
  
         ,@(when command-table
             `((define-command-table ,@command-table)))
  
negative.code:              (eq (sheet-parent (frame-panes frame))
                   (frame-top-level-sheet frame)))
      (sheet-disown-child (frame-top-level-sheet frame) (frame-panes frame)))
    (loop for (nil . pane) in (frame-panes-for-layout frame)
          for parent = (sheet-parent pane)
          if  parent
            do (sheet-disown-child parent pane)))
  
  (defmethod generate-panes :after (fm (frame application-frame))
    (declare (ignore fm))
  