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:          #+clim-mp (event-queue (sheet-event-queue t-l-s)))
      (setf (slot-value frame 'top-level-sheet) t-l-s)
      (generate-panes fm frame)
      (setf (slot-value frame 'state)  :disabled)
      #+clim-mp
      (when (typep event-queue 'port-event-queue)
        (setf (event-queue-port event-queue)
  
negative.code: 	     (: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
  