? Experimental/freetype/freetype-fonts.fasl
? Experimental/freetype/freetype-package.fasl
? Experimental/freetype/xrender.fasl
Index: Experimental/freetype/freetype-ffi.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Experimental/freetype/freetype-ffi.lisp,v
retrieving revision 1.2
diff -u -r1.2 freetype-ffi.lisp
--- Experimental/freetype/freetype-ffi.lisp	5 Jun 2005 20:50:29 -0000	1.2
+++ Experimental/freetype/freetype-ffi.lisp	9 Jun 2005 12:00:36 -0000
@@ -118,7 +118,7 @@
  (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 (signed 32)) (freetype:pointer (* t))))
+(define-alien-type freetype:stream-desc (union freetype::stream-desc- (freetype:value (signed 64)) (freetype:pointer (* t))))
 
 (define-alien-type freetype:stream-io (* t))
 
@@ -127,8 +127,8 @@
 (define-alien-type nil
     (struct freetype::stream-rec-
             (freetype:base (* (unsigned 8)))
-            (freetype:size (unsigned 32))
-            (freetype:pos (unsigned 32))
+            (freetype:size (unsigned 64))
+            (freetype:pos (unsigned 64))
             (freetype:descriptor freetype:stream-desc)
             (freetype:pathname freetype:stream-desc)
             (freetype:read freetype:stream-io)
@@ -137,7 +137,7 @@
             (freetype:cursor (* (unsigned 8)))
             (freetype:limit (* (unsigned 8)))))
 
-(define-alien-type freetype:pos (signed 32))
+(define-alien-type freetype:pos (signed 64))
 
 (define-alien-type freetype:vector (struct freetype::vector- (freetype:x freetype:pos) (freetype:y freetype:pos)))
 
@@ -257,15 +257,15 @@
 
 (define-alien-type freetype:uint (unsigned 32))
 
-(define-alien-type freetype:long (signed 32))
+(define-alien-type freetype:long (signed 64))
 
-(define-alien-type freetype:ulong (unsigned 32))
+(define-alien-type freetype:ulong (unsigned 64))
 
 (define-alien-type freetype:f2dot14 (signed 16))
 
-(define-alien-type freetype:f26dot6 (signed 32))
+(define-alien-type freetype:f26dot6 (signed 64))
 
-(define-alien-type freetype:fixed (signed 32))
+(define-alien-type freetype:fixed (signed 64))
 
 (define-alien-type freetype:error (signed 32))
 
@@ -347,7 +347,7 @@
   (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 (signed 64)) (freetype:other (* t))
   (freetype:internal freetype:slot-internal)))
 
 (define-alien-type freetype:glyph-slot (* freetype:glyph-slot-rec))
