anchor.diff:  
   ;;; Here are alternate mappings for the DejaVu family of fonts, which
   ;;; are a derivative of Vera with improved unicode coverage.
  -
   #+NIL
   (defparameter *families/faces* 
     '(((:FIX :ROMAN) . "DejaVuSansMono.ttf") 
  
positive.code: 
  (defparameter *free-type-face-hash* (make-hash-table :test #'equal))
  
  (let (lookaside)
    (defmethod clim-clx::text-style-to-X-font :around ((port clim-clx::clx-port) (text-style standard-text-style))
      (flet ((f ()
  
negative.code:                                     (let* ((font-path-relative (cdr (assoc (list family face) *families/faces*
                                                                             :test #'equal)))
                                             (font-path (namestring (merge-pathnames font-path-relative *freetype-font-path*))))
                                        (unless (and font-path (probe-file font-path))
                                          (error 'missing-font :filename font-path))
                                        #+NIL
                                        (if (and font-path (probe-file font-path))
                                            (make-free-type-face display font-path size)
                                            (call-next-method))
                                        (make-free-type-face display font-path size))))))
                         (t
                          (call-next-method)))))))
        (cdr (if (eq (car lookaside) text-style)
                 lookaside
                 (setf lookaside (cons text-style (invoke-with-freetype-path-restart #'f))))))))
  
  (defmethod clim-clx::text-style-to-X-font ((port clim-clx::clx-port) text-style)
    (error "You lost: ~S." text-style))
  