--- old-cffi/src/cffi-allegro.lisp	2009-08-20 11:33:41.000000000 +0900
+++ new-cffi/src/cffi-allegro.lisp	2009-08-20 11:33:41.000000000 +0900
@@ -63,7 +63,9 @@
 
 ;;;# Mis-features
 
+#-64bit
 (pushnew 'no-long-long *features*)
+
 (pushnew 'flat-namespace *features*)
 
 ;;;# Symbol Case
@@ -184,6 +186,10 @@
     (:unsigned-int     :unsigned-int)
     (:long             :long)
     (:unsigned-long    :unsigned-long)
+#+64bit
+    (:unsigned-long-long :unsigned-nat)
+#+64bit
+    (:long-long :nat)
     (:float            :float)
     (:double           :double)
     (:pointer          :unsigned-nat)