anchor.diff:                       ,arguments ,@body))))))))
   
   (defun make-application-frame (frame-name
  -			       &rest options
  -			       &key (pretty-name
  -				     (string-capitalize frame-name))
  -			            (frame-manager nil frame-manager-p)
  -			            enable
  -			            (state nil state-supplied-p)
  -			            save-under (frame-class frame-name)
  -			       &allow-other-keys)
  +                               &rest options
  +                               &key (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))
  +  (with-keywords-removed (options (:frame-manager :enable :state
  +                                   :save-under :frame-class))
       (let ((frame (apply #'make-instance frame-class
  -			:name frame-name
  -			:pretty-name pretty-name
  -			options)))
  +                        :name frame-name
  +                        options)))
         (when frame-manager-p
  -	(adopt-frame frame-manager frame))
  +        (adopt-frame frame-manager frame))
         (cond ((or enable (eq state :enabled))
  -	     (enable-frame frame))
  -	    ((and (eq state :disowned)
  -		  (not (eq (frame-state frame) :disowned)))
  -	     (disown-frame (frame-manager frame) frame))
  -	    (state-supplied-p
  -	     (warn ":state ~S not supported yet." state)))
  +             (enable-frame frame))
  +            ((and (eq state :disowned)
  +                  (not (eq (frame-state frame) :disowned)))
  +             (disown-frame (frame-manager frame) frame))
  +            (state-supplied-p
  +             (warn ":state ~S not supported yet." state)))
         frame)))
   
   (defgeneric clim-extensions:find-frame-type (frame)
  
positive.code: (defmacro define-application-frame (name superclasses slots &rest options)
    (when (null superclasses)
      (setq superclasses '(standard-application-frame)))
    (let ((pane nil)
  	(panes nil)
  	(layouts nil)
  	(current-layout nil)
  	(command-table (list name))
  	(menu-bar t)
  	(disabled-commands nil)
  	(command-definer t)
  	(top-level '(default-frame-top-level))
  	(others nil)
  	(pointer-documentation nil)
  	(geometry nil)
  	(user-default-initargs nil)
  	(frame-arg (gensym "FRAME-ARG")))
      (loop for (prop . values) in options
  	do (case prop
  	     (:pane (setq pane values))
  	     (:panes (setq panes values))
  	     (:layouts (setq layouts values))
  	     (:command-table (setq command-table (first values)))
  	     (:menu-bar (setq menu-bar (if (listp values)
                                             (first values)
                                             values)))
  	     (:disabled-commands (setq disabled-commands values))
  	     (:command-definer (setq command-definer (first values)))
  	     (:top-level (setq top-level (first values)))
  	     (: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
                                   (symbol-name '#:define-)
                                   (symbol-name name)
                                   (symbol-name '#:-command)))))
      (when (or (and pane panes)
                (and pane layouts))
        (error ":pane cannot be specified along with either :panes or :layouts"))
  
negative.code:          :top-level-lambda (lambda (,frame-arg)
                               (,(car top-level) ,frame-arg
                                 ,@(cdr top-level)))
           ,@geometry
           ,@user-default-initargs)
          ,@others)
  
        (defmethod frame-all-layouts ((frame ,name))
  