anchor.diff:  
   (defparameter *free-type-face-hash* (make-hash-table :test #'equal))
   
  +(define-condition missing-font (simple-error)
  +  ((filename :reader missing-font-filename :initarg :filename))
  +  (:report (lambda (condition stream)
  +             (format stream  "Cannot access ~W~%Your *freetype-font-path* is currently ~W~%The following files should exist:~&~{  ~A~^~%~}"
  +                     (missing-font-filename condition)
  +                     *freetype-font-path*
  +                     (mapcar #'cdr *families/faces*)))))
  +
  +(defun invoke-with-freetype-path-restart (continuation)
  +  (restart-case (funcall continuation)
  +    (change-font-path (new-path)
  +      :report (lambda (stream) (format stream "Retry with alternate freetype font path"))
  +      :interactive (lambda ()
  +                     (format t "Enter new value: ")
  +                     (list (read-line)))
  +      (setf *freetype-font-path* new-path)
  +      (invoke-with-freetype-path-restart continuation))))
  +
   (let (lookaside)
     (defmethod clim-clx::text-style-to-X-font :around ((port clim-clx::clx-port) (text-style standard-text-style))
       (flet ((f ()
  
positive.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*))))
                                        (if (and font-path (probe-file font-path))
                                            (make-free-type-face display font-path size)
                                            (call-next-method)))))))
                         (t
                          (call-next-method)))))))      
        (cdr (if (eq (car lookaside) text-style)
                 lookaside
                 (setf lookaside (cons text-style (f))))))))
  
  (defmethod clim-clx::text-style-to-X-font ((port clim-clx::clx-port) text-style)
    (error "You lost: ~S." text-style))
  
negative.code: 
  ;;; 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") 
  