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:                 (pointer-address (fw-ptr object)))))
  
  (defun check-font-file (pathname &optional (library *library*))
    "=> NUM-FACES or NIL
  Verify `PATHNAME` is a supported format by calling `FT_Open_Face`
  with a negative face index.  If the face is supported, return the
  number of faces in the file.  Otherwise, NIL."
    (with-foreign-objects ((c-open-args 'ft-open-args)
                           (face 'ft-face))
      (with-foreign-string (cpathname (namestring pathname))
        (let ((args (%make-ft-open-args :ptr c-open-args)))
          (setf (ft-open-args-flags args) :pathname
  