anchor.diff:  (defmethod transform-region ((transformation standard-identity-transformation) region)
     region)
   
  -(defun make-translation-transformation (dx dy)
  -  (make-instance 'standard-translation
  -                 :dx (coordinate dx) :dy (coordinate dy)))
  -
   (defmethod rectilinear-transformation-p ((tr standard-identity-transformation))
     t)
   
  
positive.code:   (with-slots (mxx mxy myx myy tx ty) transformation
      (values mxx mxy myx myy tx ty)))
  
  (defun make-translation-transformation (translation-x translation-y)
    (make-instance 'standard-translation :dx translation-x :dy translation-y))
  
  (defun make-rotation-transformation (angle &optional origin)
    (if origin
  
negative.code:   nil)
  
  ;; $Log: transforms.lisp,v $
  ;; Revision 1.24  2003-08-10 07:29:55  gilbert
  ;; delete one of the two definitions of MAKE-TRANSLATION-TRANSFORMATION.
  ;;
  ;; Revision 1.23  2003/08/09 00:55:40  gilbert
  ;; Introduced special classes for the identity and translations for both
  ;; less consing and less cycles spend.
  ;;
  