anchor.diff:                                                         t filled))
                                  position-seq))))
   
  -(defmethod medium-draw-ellipse* :around ((medium basic-medium) center-x center-y
  +(defmethod medium-draw-ellipse* :around ((medium transform-coordinates-mixin) center-x center-y
                                            radius-1-dx radius-1-dy radius-2-dx radius-2-dy
                                            start-angle end-angle filled)
     (let* ((ellipse (make-elliptical-arc* center-x center-y
  
positive.code:     (multiple-value-bind (center-x center-y) (ellipse-center-point* transformed-ellipse)
        (call-next-method medium center-x center-y radius start-angle end-angle filled))))
  
  (defmethod medium-draw-text* :around ((medium basic-medium) string x y
                                        start end
                                        align-x align-y
                                        toward-x toward-y transform-glyphs)
  
negative.code: 
  ;;; MEDIUM class
  
  (defclass transform-coordinates-mixin ()
    ;; This class is reponsible for transforming coordinates in an
    ;; :around method on medium-draw-xyz. It is currently mixed in into
    ;; basic-medium and clim-stream-pane. This probably is not the right
    ;; thing todo. Either clim-stream-pane becomes a basic-medium too or
    ;; the medium of a stream becomes not the stream itself. So consider
    ;; this as a hotfix.
    ;; --GB 2003-05-25
    ())
  
  (defclass basic-medium (transform-coordinates-mixin medium)
    ((foreground :initarg :foreground
                 :initform +black+
                 :accessor medium-foreground)
  