anchor.diff:  (defun make-merged-medium (sheet ink clip transform line-style text-style)
     (let ((medium (make-medium (port sheet) sheet)))
       (setf (medium-ink medium) ink)
  +    ;; First set transformation, then clipping region!
  +    (setf (medium-transformation medium) transform)
       (setf (medium-clipping-region medium) clip)
  -    (setf (medium-transformation medium) transform)
       (setf (medium-line-style medium) line-style)
       (setf (medium-text-style medium) text-style)
       medium))
  
positive.code: 	 (declare (ignore x-offset y-offset))
  	 (with-slots (ink clip transform line-style text-style ,@args) record
  	   (let ((,old-medium (sheet-medium stream))
  		 (,new-medium (make-merged-medium stream ink (region-intersection clip region)
                                                    transform line-style text-style)))
  	     (unwind-protect
  		 (progn
  		   (setf (sheet-medium stream) ,new-medium)
  
negative.code: ;;; Graphics recording classes
  
  (defclass graphics-displayed-output-record (displayed-output-record)
    ((clip :initarg :clipping-region
           :documentation "Clipping region in user coordinates.")
     (transform :initarg :transformation)
     (line-style :initarg :line-style)
     (text-style :initarg :text-style)
  