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: 
  (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)))
  