anchor.diff:    (sheet-adopt-child (graft frame) (frame-top-level-sheet frame))
     (setf (sheet-transformation (frame-top-level-sheet frame))
   	(make-translation-transformation 100 100))
  -  (let ((space (compute-and-set-space (frame-top-level-sheet frame))))
  +  (let ((space (compose-space (frame-top-level-sheet frame))))
       ;; automatically generates a window-configuation-event
       ;; which then calls allocate-space
       (setf (sheet-region (frame-top-level-sheet frame))
  
positive.code:     (if (and  width (not height))
  	(error "LAYOUT-FRAME must be called with both WIDTH and HEIGHT or neither"))
      (if (and (null width) (null height))
  	(let ((space (compute-and-set-space pane)))
  	  (setq width (space-requirement-width space))
  	  (setq height (space-requirement-height space))))
      (allocate-space pane width height)))
  
negative.code:     (let ((graft (find-graft :port (frame-manager-port fm))))
        (sheet-adopt-child graft t-l-s)
        (setf (graft frame) graft))
      (let ((space (compose-space t-l-s)))
        (allocate-space (frame-pane frame)
  		      (space-requirement-width space)
  		      (space-requirement-height space))
  