anchor.diff:      advance))
   
   (export 'get-string-advances)
  +
  +;; From freetype2-ffi, no need for wrapping:
  +(export 'get-postscript-name)
  +(export 'get-fstype-flags)
  
positive.code:     (ft-done-face (p* &face))))
  
  (export 'new-face)
  
  (defun fixed-face-p (face)
    "=> boolean
  
negative.code:               (ft-open-args-driver args) nil
                (ft-open-args-num-params args) 0
                (ft-open-args-params args) (null-pointer))
          (if (eq :ok (ft-open-face library c-open-args -1 face))
              (let ((num-faces (ft2-types::%ft-facerec-num-faces (p* face))))
                (ft-done-face (p* face))
                num-faces)
              nil)))))
  
  (export 'check-font-file)
  
  