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:linear-vert-advance freetype:fixed) (freetype:advance freetype:vector) (freetype:format freetype:glyph-format)
    (freetype:bitmap freetype:bitmap) (freetype:bitmap-left freetype:int) (freetype:bitmap-top freetype:int)
    (freetype:outline freetype:outline) (freetype:num-subglyphs freetype:uint) (freetype:subglyphs (* freetype:sub-glyph))
    (freetype:control-data (* t)) (freetype:control-len (signed 32)) (freetype:other (* t))
    (freetype:internal freetype:slot-internal)))
  
  (define-alien-type freetype:glyph-slot (* freetype:glyph-slot-rec))
  
negative.code: ;;; automatically generated, hand tweaked, do not regenerate.
  
  (DEFPACKAGE :FREETYPE 
    (:USE :cl 
          #+sbcl :sb-alien 
          #+cmucl :alien #+cmucl :c-call)
              (:EXPORT "MEMORY-BASE" "DESCENDER" "LINEAR-VERT-ADVANCE" "YX" "XX" "FREE" "AVAILABLE-SIZES" "COVERAGE" "METRICS"
               "RASTER-FLAG" "GLYPH" "GET-CHAR-INDEX" "LIMIT" "STRING" "SHIFT" "LEN" "UNDERLINE-POSITION" "RASTER-NEW-FUNC"
               "POINTS" "TAG" "SIZE-INTERNAL" "NUM-SUBGLYPHS" "UNITS-PER-EM" "LIBRARY" "ALLOC" "OPEN-FACE" "ATTACH-FILE"
  