anchor.diff:  (define-alien-type freetype:fast (signed 32))
   
   (define-alien-type freetype:ufast (unsigned 32))
  +
  +(define-alien-type freetype:ptrdiff-t (signed 32))
  +
  +(define-alien-type freetype:size-t (unsigned 32))
  +
  +(define-alien-type freetype:wchar-t (signed 32))
  +
  +(define-alien-type freetype:wint-t (unsigned 32))
  +
  +(define-alien-type freetype:bool (unsigned 8))
  +
  +(define-alien-type freetype:fword (signed 16))
  +
  +(define-alien-type freetype:ufword (unsigned 16))
  +
  +(define-alien-type freetype:char (signed 8))
  +
  +(define-alien-type freetype:byte (unsigned 8))
  +
  +(define-alien-type freetype:string (signed 8))
  +
  +(define-alien-type freetype:short (signed 16))
  +
  +(define-alien-type freetype:ushort (unsigned 16))
  +
  +(define-alien-type freetype:int (signed 32))
  +
  +(define-alien-type freetype:uint (unsigned 32))
  +
  +(define-alien-type freetype:long long)
  +
  +(define-alien-type freetype:ulong unsigned-long)
  +
  +(define-alien-type freetype:f2dot14 (signed 16))
  +
  +(define-alien-type freetype:f26dot6 long)
  +
  +(define-alien-type freetype:fixed long)
  +
  +(define-alien-type freetype:error (signed 32))
  +
  +(define-alien-type freetype:pointer (* t))
  +
  +(define-alien-type freetype:offset freetype:size-t)
  +
  +(define-alien-type freetype:ptr-dist freetype:size-t)
   
   (define-alien-type nil
    (enum nil (:mod-err-base #.#x000) (:mod-err-autohint #.#x100) (:mod-err-cache #.#x200) (:mod-err-cff #.#x300)
  
positive.code:   (freetype:raster-reset freetype:raster-reset-func) (freetype:raster-set-mode freetype:raster-set-mode-func)
    (freetype:raster-render freetype:raster-render-func) (freetype:raster-done freetype:raster-done-func)))
  
  (define-alien-type freetype:ptrdiff-t (signed 32))
  
  (define-alien-type freetype:size-t (unsigned 32))
  
  (define-alien-type freetype:wchar-t (signed 32))
  
  (define-alien-type freetype:wint-t (unsigned 32))
  
  (define-alien-type freetype:bool (unsigned 8))
  
  (define-alien-type freetype:fword (signed 16))
  
  (define-alien-type freetype:ufword (unsigned 16))
  
  (define-alien-type freetype:char (signed 8))
  
  (define-alien-type freetype:byte (unsigned 8))
  
  (define-alien-type freetype:string (signed 8))
  
  (define-alien-type freetype:short (signed 16))
  
  (define-alien-type freetype:ushort (unsigned 16))
  
  (define-alien-type freetype:int (signed 32))
  
  (define-alien-type freetype:uint (unsigned 32))
  
  (define-alien-type freetype:long (signed 32))
  
  (define-alien-type freetype:ulong (unsigned 32))
  
  (define-alien-type freetype:f2dot14 (signed 16))
  
  (define-alien-type freetype:f26dot6 (signed 32))
  
  (define-alien-type freetype:fixed (signed 32))
  
  (define-alien-type freetype:error (signed 32))
  
  (define-alien-type freetype:pointer (* t))
  
  (define-alien-type freetype:offset freetype:size-t)
  
  (define-alien-type freetype:ptr-dist freetype:size-t)
  
  (define-alien-type freetype:unit-vector
   (struct freetype::unit-vector- (freetype:x freetype:f2dot14) (freetype:y freetype:f2dot14)))
  
  
negative.code:              "BITMAP-" "FILE_BASE" "KERN_MODE" "CHAR_CODE" "RENDERER-REC-" "RASTER-REC-" "VECTOR-" "SIZE-METRICS-" "CHAR_WIDTH"
               "GENERIC-" "ENCODING-" "FACE_INDEX" "SLOT" "GLYPH-FORMAT-" "OPEN-ARGS-" "BBOX-" "SIZE_S"))
  
  (in-package :freetype)
  
  #+cmucl
  