anchor.diff:  
   (export 'fixed-face-p)
   
  +(defun set-char-size (face char-width char-height horz-resolution vert-resolution)
  +  (ft-error (ft-set-char-size face char-width char-height
  +                              horz-resolution vert-resolution)))
  +
  +(export 'set-char-size)
  +
  +(defun set-pixel-sizes (face pixel-width pixel-height)
  +  (ft-error (ft-set-pixel-sizes face pixel-width pixel-height)))
  +
  +(export 'set-pixel-sizes)
  +
   (defun get-char-index (face char-or-code)
     (etypecase char-or-code
       (character (ft-get-char-index face (char-code char-or-code)))
  
positive.code:               (ft-open-args-params args) (null-pointer))
          (ft-open-face library c-open-args -1 (null-pointer))))))
  
  (defun new-face (pathname &optional (index 0) (library *library*))
    (make-wrapper (face &face ft-face)
      (ft-new-face library (namestring pathname) index &face)
  
negative.code:           do (setf (aref kern i)
                     (get-kerning face c1 c2 mode)))
      kern))
  
  (export 'get-string-kerning)
  
  (defun get-track-kerning (face point-size degree)
    (with-foreign-object (akerning 'ft-fixed)
  