anchor.diff:    ;; Using CL:ROUND gives you "random" results. Using "mercantile
     ;; rounding" gives you consistent results.
     ;;
  -  (floor (+ x 1/2)))
  +  (floor (+ x .5)))
   
   (defmethod medium-draw-line* ((medium clx-medium) x1 y1 x2 y2)
     (let ((tr (sheet-native-transformation (medium-sheet medium))))
  
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: ;;; 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
  
  