anchor.diff:                                         (font-replacement-text-style text-style)
                                          (otherwise nil)))))))
   
  -(defmethod climb:text-style-to-font ((port freetype-font-port) text-style)
  +(defmethod climb:text-style-to-font ((port clx-freetype-port) text-style)
     (etypecase text-style
       (clim:standard-text-style
        (let ((x (or (clim:text-style-mapping port text-style)
  
positive.code: ;;;  List fonts
  ;;;
  
  (defmethod clime:port-all-font-families ((port freetype-font-port) &key invalidate-cache)
    (let* ((h (make-hash-table :test 'equal))
           (existing-families (make-hash-table :test 'equal))
           (prev-families nil))
  
negative.code:             (free-glyphset glyphset)))))))
  
  (defmethod climb:font-text-extents ((font freetype-font) string
                                      &key align-x align-y (start 0) (end (length string)) (direction :ltr))
    (declare (ignore align-x align-y))
    ;; Values to return:
    ;;-> xmin ymin xmax ymax left top width height ascent descent linegap cursor-dx cursor-dy
    (with-face-from-font (face font)
  