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:   (or (pop (display-free-glyph-ids display))
        (incf (display-free-glyph-id-counter display))))
  
  (defvar *font-hash*
    (make-hash-table :test #'equalp))
  
  (defstruct (glyph-info (:constructor glyph-info (id width height left right top)))
  
negative.code: 
  (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 ()
  