anchor.diff:    (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:control-data (* t)) (freetype:control-len long) (freetype:other (* t))
     (freetype:internal freetype:slot-internal)))
   
   (define-alien-type freetype:size-metrics
  
positive.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"))
  
  ;;(declaim (sb-ext:muffle-conditions sb-int:deprecation-warning))
  
  (in-package :freetype)
  
  #+cmucl
  
negative.code:  (struct freetype::memory-rec- (freetype:user (* t)) (freetype:alloc freetype:alloc-func) (freetype:free freetype:free-func)
    (freetype:realloc freetype:realloc-func)))
  
  (define-alien-type freetype:stream-desc 
      (union freetype::stream-desc- 
        (freetype:value long) 
        (freetype:pointer (* t))))
  
  (define-alien-type freetype:stream-io (* t))
  
  