anchor.diff:           :top-level-lambda (lambda (,frame-arg)
                                (,(car top-level) ,frame-arg
                                  ,@(cdr top-level)))
  +	 ,@geometry
   	 ,@user-default-initargs)
           ,@others)
  -      ;; We alway set the frame class default geometry, so that the
  -      ;; user can undo the effect of a specified :geometry option.
  -      ;; --GB 2004-06-01
  -      (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: 	     (:pointer-documentation (setq pointer-documentation (car values)))
  	     (:geometry (setq geometry values))
  	     (:default-initargs (setq user-default-initargs values))
  	     (t (push (cons prop values) others))))
      (when (eq command-definer t)
        (setf command-definer
              (intern (concatenate 'string
  
negative.code:    (documentation-record :accessor documentation-record
  			 :initform nil
  			 :documentation "updating output record for pointer
  documentation produced by presentations.")
     (geometry-left :accessor geometry-left
  		  :initarg :left
  		  :initform nil)
     (geometry-right :accessor geometry-right
  		  :initarg :right
  		  :initform nil)
     (geometry-top :accessor geometry-top
  		  :initarg :top
  		  :initform nil)
     (geometry-bottom :accessor geometry-bottom
  		  :initarg :bottom
  		  :initform nil)
     (geometry-width :accessor geometry-width
  		  :initarg :width
  		  :initform nil)
     (geometry-height :accessor geometry-height
  		  :initarg :height
  		  :initform nil)))
  
  (defmethod frame-geometry* ((frame standard-application-frame))
    "-> width height &optional top left"
    (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
        ;; 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)))))
        (values width height left top)))))
  
  ;;; Support the :input-buffer initarg for compatibility with "real CLIM"
  
  