anchor.diff:                (ft-open-args-params args) (null-pointer))
           (ft-open-face library c-open-args -1 (null-pointer))))))
   
  +(export 'check-font-file)
  +
   (defun new-face (pathname &optional (index 0) (library *library*))
     (make-wrapper (face &face ft-face)
       (ft-new-face library (namestring pathname) index &face)
  
positive.code: (export 'get-char-index)
  
  (defun load-glyph (face glyph-index &optional (load-flags :default))
    (ft-load-glyph face glyph-index load-flags))
  
  (export 'load-glyph)
  
  
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)
  