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: 			            (frame-manager nil frame-manager-p)
  			            enable
  			            (state nil state-supplied-p)
  				    (left (get-application-frame-class-geometry frame-name :left))
  				    (top (get-application-frame-class-geometry frame-name :top))
  				    (right (get-application-frame-class-geometry frame-name :right))
  				    (bottom (get-application-frame-class-geometry frame-name :bottom))
  				    (width (get-application-frame-class-geometry frame-name :width))
  				    (height  (get-application-frame-class-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
                          (list :left left :top top
                                :right right :bottom bottom
                                :width width :height height)
  			options)))
        (when frame-manager-p
  	(adopt-frame frame-manager frame))
  
negative.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
  