anchor.diff:  very hard)."
     (let ((old-native-transformation (%%sheet-native-transformation sheet)))
       (cond ((null (sheet-parent sheet))
  -           ;; Ugh, we have no parent, this must be the graft, we cannot resize it can we?
  +           ;; Ugh, we have no parent, this must be the graft, we
  +           ;; cannot resize it can we?
              nil)
  -          ;;
  -          ;; Otherwise, the native transformation has to changed or needs to be computed initially
  -          ;;
  +          ;; Otherwise, the native transformation has to changed or
  +          ;; needs to be computed initially
             (t
              (let* ((parent (sheet-parent sheet))
                     (sheet-region-in-native-parent
  
positive.code:                                            (> (round (- x2 x1)) 0)
                                             (> (round (- y2 y1)) 0))
                                    (values t (make-rectangle* 0 0 (round (- x2 x1)) (round (- y2 y1)))))))))
                     ;;
                     ;; Try reusing the native transformation:
                     ;;
                     (when old-native-transformation
                       (let ((MT (compose-transformations
                                  (compose-transformations
  
negative.code: ;;; CLIM II specification.  For that reason, there is no DEFGENERIC
  ;;; form for it in decls.lisp.  Since some Common Lisp compilers emit
  ;;; a warning if there is no explicit DEFGENERIC form, and in order to
  ;;; get a clean build, we include the DEFGENERIC form here.
  (defgeneric (setf sheet-direct-mirror) (mirror sheet))
  
  (defmethod (setf sheet-direct-mirror) (mirror (sheet mirrored-sheet-mixin))
  