anchor.diff:  		       (command-table ',(first command-table)))
   		   `(define-command (,name :command-table ,command-table ,@options) ,arguements ,@body))))))))
   
  +(defun get-application-frame-geometry (name indicator)
  +  (let ((geometry (get name 'application-frame-geometry)))
  +    (if geometry
  +	(getf geometry indicator nil))))
  +
  +(defun compose-user-supplied-geometry (left top right bottom width height)
  +  (flet ((compute-range (min max diff)
  +	   (cond
  +	    ((and min max)
  +	     (values min max))
  +	    ((and min diff)
  +	     (values min (+ min diff)))
  +	    ((and max diff)
  +	     (values (- max diff) max))
  +	    (t
  +	     (values nil nil)))))
  +    (multiple-value-bind (x1 x2) (compute-range left right width)
  +      (multiple-value-bind (y1 y2) (compute-range top bottom height)
  +	(if (and x1 x2 y1 y2)
  +	    (make-bounding-rectangle x1 y1 x2 y2)
  +	  nil)))))
  +
   (defun make-application-frame (frame-name
   			       &rest options
   			       &key (pretty-name
  
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: 				(symbol-name '#:define-)
  				(symbol-name name)
  				(symbol-name '#:-command))))
  	(pointer-documentation nil)
  	(geometry nil))
      (loop for (prop . values) in options
  	do (case prop
  	     (:pane (setq pane (first values)))
  