anchor.diff:    (let ((pane (frame-top-level-sheet frame)))
       ;(destructuring-bind (&key left top right bottom width height) (frame-geometry frame)
       (with-slots (geometry-left geometry-top geometry-right
  -			       geometry-bottom geometry-width
  -			       geometry-height) frame
  +                               geometry-bottom geometry-width
  +                               geometry-height) frame
         ;; Find width and height from looking at the respective options
         ;; first, then at left/right and top/bottom and finally at what
         ;; compose-space says.
         (let* ((width (or geometry-width
  -			(and geometry-left geometry-right
  -			     (- geometry-right geometry-left))
  -			(space-requirement-width (compose-space pane))))
  -	     (height (or geometry-height
  -			 (and geometry-top geometry-bottom (- geometry-bottom geometry-top))
  -			 (space-requirement-height (compose-space pane))))
  -	     ;; See if a position is wanted and return left, top.
  -	     (left (or geometry-left
  -		       (and geometry-right (- geometry-right geometry-width))))
  -	     (top (or geometry-top
  -		      (and geometry-bottom (- geometry-bottom geometry-height)))))
  +                        (and geometry-left geometry-right
  +                             (- geometry-right geometry-left))
  +                        (space-requirement-width (compose-space pane))))
  +             (height (or geometry-height
  +                         (and geometry-top geometry-bottom (- geometry-bottom geometry-top))
  +                         (space-requirement-height (compose-space pane))))
  +             ;; See if a position is wanted and return left, top.
  +             (left (or geometry-left
  +                       (and geometry-right (- geometry-right geometry-width))))
  +             (top (or geometry-top
  +                      (and geometry-bottom (- geometry-bottom geometry-height)))))
         (values width height left top)))))
   
   ;;; This method causes related frames share the same queue by default (on both
  
positive.code:   (cond
      ;; Single form which is a function call
      ((and (= (length form) 1)
  	  (listp (first form)))
       `(coerce-pane-name ,(first form) ',name))
      ;; Standard pane denoted by a keyword (i.e `:application')
      ((keywordp (first form))
  
negative.code:                  (beep))))))))
  
  (defmethod read-frame-command :around ((frame application-frame)
                                         &key (stream *standard-input*))
    (with-input-context ('menu-item)
        (object)
        (call-next-method)
  