anchor.diff:                        (command-table ',(first command-table)))
                     `(define-command (,name :command-table ,command-table ,@options) ,arguments ,@body))))))))
   
  -(defun get-application-frame-class-geometry (name indicator)
  -  (getf (get name 'application-frame-geometry) indicator nil))
  -
   (defun make-application-frame (frame-name
   			       &rest options
   			       &key (pretty-name
  
positive.code: 		     :reader frame-top-level-lambda)
     (hilited-presentation :initform nil
  			 :initarg :hilited-presentation
  			 :accessor frame-hilited-presentation)
     (user-supplied-geometry :initform nil
  			   :initarg :user-supplied-geometry
  			   :reader frame-geometry
                             :documentation "plist of defaulted :left, :top, :bottom, :right, :width and :height options.")
     (process :accessor frame-process :initform nil)
     (client-settings :accessor client-settings :initform nil)
     (event-queue :initarg :frame-event-queue
  
negative.code: 			            (frame-manager nil frame-manager-p)
  			            enable
  			            (state nil state-supplied-p)
  			            save-under (frame-class frame-name)
  			       &allow-other-keys)
    (declare (ignore save-under))
    (with-keywords-removed (options (:pretty-name :frame-manager :enable :state
  				   :save-under :frame-class))
      (let ((frame (apply #'make-instance frame-class
  			:name frame-name
  			:pretty-name pretty-name
  			options)))
        (when frame-manager-p
  	(adopt-frame frame-manager frame))
  