anchor.diff:  	   :top-level ',top-level
   	     )
   	 ,@others)
  +       ,@(if geometry
  +	     `((setf (get ',name 'application-frame-geometry) ',geometry)))
          ,(if pane
   	    (make-single-pane-generate-panes-form name menu-bar pane)
               (make-panes-generate-panes-form name menu-bar panes layouts
  
positive.code: 	     (:command-definer (setq command-definer (first values)))
  	     (:top-level (setq top-level (first values)))
  	     (:pointer-documentation (setq pointer-documentation (car values)))
  	     (t (push (cons prop values) others))))
      (if (or (and pane panes)
  	    (and pane layouts))
  
negative.code:     ;; window is mapped and do the space allocation now, so that all
      ;; sheets will have their correct geometry at once. --GB
      (setf (sheet-region (frame-top-level-sheet frame))
  	  bbox)
      (allocate-space (frame-top-level-sheet frame)
  		    (bounding-rectangle-width bbox)
  		    (bounding-rectangle-height bbox))
      ))
  
  (defmethod layout-frame ((frame application-frame) &optional width height)
    (let ((pane (frame-pane frame)))
  