X-Git-Url: http://git.kpe.io/?p=uffi.git;a=blobdiff_plain;f=src%2Fprimitives.lisp;fp=src%2Fprimitives.lisp;h=14763f732227e650dca9bac9cc898417172c6056;hp=a43eb8dd24e4c2ff1b615475be0cdd900113cfae;hb=4d7ffd6acb68c4db6d7fe6ebcda8789a1a50c95c;hpb=03f5663f69d95d8af40e235c8566ce79dcb5a3c4

diff --git a/src/primitives.lisp b/src/primitives.lisp
index a43eb8d..14763f7 100644
--- a/src/primitives.lisp
+++ b/src/primitives.lisp
@@ -185,10 +185,15 @@ supports takes advantage of this optimization."
       (: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