anchor.diff:                                          (vertically ()
                                             ,@(cond
                                                 ((eq menu-bar t)
  -                                               `((setf (slot-value frame 'menu-bar-pane)
  +                                               `((setf (frame-menu-bar-pane frame)
   						       (clim-internals::make-menu-bar
   							',class-name))))
                                                 ((consp menu-bar)
  
positive.code:   (flet ((get-menu (x) (slot-value x 'menu)))
      (if (and (get-menu (frame-command-table frame))
  	     (get-menu new-command-table))
  	(prog1 (call-next-method)
  	  (when (slot-value frame 'menu-bar-pane)
  	    (update-menu-bar (slot-value frame 'menu-bar-pane)
  			     new-command-table)))
  	(call-next-method))))
  
  (defmethod generate-panes :before (fm  (frame application-frame))
  
negative.code: 		    :reader frame-top-level-sheet)
     (menu-bar :initarg :menu-bar
  	     :initform nil)
     (menu-bar-pane :initform nil
                    :accessor frame-menu-bar-pane)
     (state :initarg :state
  	  :initform :disowned
  	  :reader frame-state)
  