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:             nil
              (make-array '(2 2) :initial-contents (list (list rxx (- rxy)) (list (- ryx) ryy)))))))
  
  ;;; We only cache glyphsets that does not have a transformation
  ;;; applied. The assumption is that applying transformation on text is
  ;;; rare enough that the lower performance will be acceptable.
  
  (defun mcclim-font:draw-glyphs (medium mirror gc x y string
                                  &key (start 0) (end (length string))
                                    translate (direction :ltr)
                                    transformation transform-glyphs
                                  &aux
                                    (font (climb:text-style-to-font (clim:port medium) (clim:medium-text-style medium))))
    (declare (ignore translate))
    (unless (or transform-glyphs (clim:translation-transformation-p transformation))
      (multiple-value-setq (x y) (clim:transform-position transformation x y))
      (setq transformation clim:+identity-transformation+))
    (when (null (freetype-font-replace font))
      (return-from mcclim-font:draw-glyphs
        (%freetype-draw-glyphs font mirror gc x y string
                               :start start :end end :direction direction
                               :transformation transformation)))
  
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)
  