anchor.diff:    (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)))
  +	(prog1
  +            (call-next-method)
  +          (alexandria:when-let ((menu-bar-pane (frame-menu-bar-pane frame)))
  +                               (update-menu-bar menu-bar-pane
  +                                                new-command-table)))
   	(call-next-method))))
   
   (defmethod generate-panes :before (fm  (frame application-frame))
  
positive.code: 		    :reader frame-top-level-sheet)
     (menu-bar :initarg :menu-bar
  	     :initform nil)
     (menu-bar-pane :initform nil)
     (state :initarg :state
  	  :initform :disowned
  	  :reader frame-state)
  
negative.code:                                         (vertically ()
                                            ,@(cond
                                                ((eq menu-bar t)
                                                 `((setf (frame-menu-bar-pane frame)
  						       (clim-internals::make-menu-bar
  							',class-name))))
                                                ((consp menu-bar)
  