(:unsigned-char . :unsigned-char)
(:int . :int) (:unsigned-int . :unsigned-int)
(:long . :long) (:unsigned-long . :unsigned-long)
+#+64bit (:unsigned-long-long . :unsigned-long)
+#+64bit (:long-long . :unsigned-long)
(:float . :float) (:double . :double)
(:array . :array)))
-#+(or allegro cormanlisp)
+#+(and allegro (not 64bit))
+(push 'uffi:no-long-long cl:*features*)
+
+#+cormanlisp
(push 'uffi:no-long-long cl:*features*)
#+lispworks