anchor.diff:  (defmethod disown-frame ((fm frame-manager) (frame application-frame))
     (setf (slot-value fm 'frames) (remove frame (slot-value fm 'frames)))
     (sheet-disown-child (graft frame) (frame-top-level-sheet frame))
  -  (setf (frame-manager frame) nil))
  +  (setf (%frame-manager frame) nil))
   
   (defvar *pane-realizer* nil)
   
  
positive.code: 
  (defmethod (setf frame-manager) (fm (frame application-frame))
    (let ((old-manager (frame-manager frame)))
      (setf (slot-value frame 'manager) nil)
      (when old-manager
        (disown-frame old-manager frame)
        (setf (slot-value frame 'panes) nil)
        (setf (slot-value frame 'layouts) nil))
      (setf (slot-value frame 'manager) fm)))
  
  (defmethod (setf frame-current-layout) (name (frame application-frame))
    (declare (ignore name))
  
negative.code:    (pane :reader frame-pane :initarg :pane)
     (graft :initform nil :accessor graft)
     (manager :initform nil :accessor frame-manager)))
  
  (defmethod adopt-frame ((fm frame-manager) (frame menu-frame))
    (setf (slot-value fm 'frames) (cons frame (slot-value fm 'frames)))
    (setf (frame-manager frame) fm)
    (let* ((t-l-s (make-pane-1 fm *application-frame* 'unmanaged-top-level-sheet-pane
  			     :name 'top-level-sheet)))
      (setf (slot-value frame 'top-level-sheet) t-l-s)
  