anchor.diff:  (defclass sheet-translation-transformation-mixin (sheet-transformation-mixin)
     ())
   
  -(defmethod (setf sheet-transformation) :before ((transformation transformation)
  -						(sheet sheet-translation-transformation-mixin))
  +(defmethod (setf sheet-transformation) :before
  +    ((transformation transformation)
  +     (sheet sheet-translation-transformation-mixin))
     (if (not (translation-transformation-p transformation))
         (error "Attempting to set the SHEET-TRANSFORMATION of a SHEET-TRANSLATION-TRANSFORMATION-MIXIN to a non translation transformation")))
   
  
positive.code: ;;; License along with this library; if not, write to the
  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: (defmethod map-sheet-position-to-child ((sheet sheet-parent-mixin) x y)
    (untransform-position (sheet-transformation sheet) x y))
  
  (defmethod map-sheet-rectangle*-to-parent
      ((sheet sheet-parent-mixin) x1 y1 x2 y2)
    (transform-rectangle* (sheet-transformation sheet) x1 y1 x2 y2))
  
  (defmethod map-sheet-rectangle*-to-child
      ((sheet sheet-parent-mixin) x1 y1 x2 y2)
    (untransform-rectangle* (sheet-transformation sheet) x1 y1 x2 y2))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  