anchor.diff:  				(symbol-name '#:define-)
   				(symbol-name name)
   				(symbol-name '#:-command))))
  -	(pointer-documentation nil))
  +	(pointer-documentation nil)
  +	(geometry nil))
       (loop for (prop . values) in options
   	do (case prop
   	     (:pane (setq pane (first values)))
  
positive.code: 		       (command-table ',(first command-table)))
  		   `(define-command (,name :command-table ,command-table ,@options) ,arguements ,@body))))))))
  
  (defun make-application-frame (frame-name
  			       &rest options
  			       &key (pretty-name
  
negative.code: 			            (frame-manager nil frame-manager-p)
  			            enable
  			            (state nil state-supplied-p)
  				    (left (get-application-frame-geometry frame-name :left))
  				    (top (get-application-frame-geometry frame-name :top))
  				    (right (get-application-frame-geometry frame-name :right))
  				    (bottom (get-application-frame-geometry frame-name :bottom))
  				    (width (get-application-frame-geometry frame-name :width))
  				    (height  (get-application-frame-geometry frame-name :height))
  			            save-under (frame-class frame-name)
  			       &allow-other-keys)
    (declare (ignore save-under))
    (with-keywords-removed (options (:pretty-name :frame-manager :enable :state
  				   :left :top :right :bottom :width :height
  				   :save-under :frame-class))
      (let ((frame (apply #'make-instance frame-class
  			:name frame-name
  			:pretty-name pretty-name
  			:user-supplied-geometry (compose-user-supplied-geometry
  						 left top right bottom width height)
  			options)))
        (when frame-manager-p
  	(adopt-frame frame-manager frame))
        (cond ((or enable (eq state :enabled))
  