anchor.diff:  ;;; Boston, MA  02111-1307  USA.
   
   (in-package :CLIM-INTERNALS)
  +
  +;;; Needed changes:
  +
  +;; The gc slot in clx-medium must be either thread local, or
  +;; [preferred] we should have a unified drawing options -> gcontext
  +;; cache.
  +;; --GB
  +
   
   ;;; CLX-MEDIUM class
   
  
positive.code:                                0 (* 2 pi)) into arcs
                  finally (xlib:draw-arcs mirror gc arcs t))))))
  
  (defun round-coordinate (x)
    "Function used for rounding coordinates."
    ;; We use "mercantile rounding", instead of the CL round to nearest
  
negative.code:   ;; Using CL:ROUND gives you "random" results. Using "mercantile
    ;; rounding" gives you consistent results.
    ;;
    (floor (+ x .5)))
  
  (defmethod medium-draw-line* ((medium clx-medium) x1 y1 x2 y2)
    (let ((tr (sheet-native-transformation (medium-sheet medium))))
  