anchor.diff:  ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: MCCLIM-TRUETYPE; -*-
   ;;; ---------------------------------------------------------------------------
  -;;;     Title: Font matrics, caching, and XRender text support 
  +;;;     Title: Font matrics, caching, and XRender text support
   ;;;   Created: 2003-05-25 16:32
   ;;;    Author: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
   ;;;   License: LGPL (See file COPYING for details).
  
positive.code:            (picture-info
              (or (getf (xlib:gcontext-plist gcontext) 'picture)
                  (setf (getf (xlib:gcontext-plist gcontext) 'picture)
                        (let* ((pixmap (xlib:create-pixmap 
                                        :drawable drawable
                                        :depth (xlib:drawable-depth drawable)
                                        :width 1 :height 1))
  
negative.code: ;;; Transforming glyphs is very inefficient because we don't cache them.
  (defun %render-transformed-glyphs (font string x y align-x align-y tr mirror gc
                                     &aux (end (length string)))
    (declare (ignore align-x align-y))
    ;; Sync the picture-clip-mask with that of the gcontext.
    (when-let ((clip (xlib::gcontext-clip-mask gc)))
      (unless (eq (xlib::picture-clip-mask (drawable-picture mirror)) clip))
  