anchor.diff:           :top-level (list ',(car top-level) ,@(cdr top-level))
            :top-level-lambda (lambda (,frame-arg)
                                (,(car top-level) ,frame-arg
  -                               ,@(cdr top-level))))
  +                               ,@(cdr top-level)))
  +	 ,@user-default-initargs)
           ,@others)
         ;; We alway set the frame class default geometry, so that the
         ;; user can undo the effect of a specified :geometry option.
  
positive.code: 	(others nil)	
  	(pointer-documentation nil)
  	(geometry nil)
  	(frame-arg (gensym "FRAME-ARG")))
      (loop for (prop . values) in options
  	do (case prop
  
negative.code: 
  (defmethod layout-frame ((frame application-frame) &optional width height)
    (let ((pane (frame-panes frame)))
      (when (and (or width height)
                 (not (and width height)))
        (error "LAYOUT-FRAME must be called with both WIDTH and HEIGHT or neither"))
      (if (and (null width) (null height))
  	(let ((space (compose-space pane))) ;I guess, this might be wrong. --GB 2004-06-01
  	  (setq width (space-requirement-width space))
  