anchor.diff:              (setf (fontconfig-font-name-device-name font-name)
                     (make-device-font-text-style
                      port
  -                   (make-truetype-device-font-name 
  +                   (make-truetype-device-font-name
                       :font-file (find-fontconfig-font
                                   (format nil "~A-~A~{:~A~}"
                                           (namestring (fontconfig-font-name-string font-name))
  
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: ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: MCCLIM-TRUETYPE; -*-
  ;;; ---------------------------------------------------------------------------
  ;;;     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).
  