X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fprimitives.lisp;h=a43eb8dd24e4c2ff1b615475be0cdd900113cfae;hb=4440dd8df02fa22120c5c742989b1daa1fde84d4;hp=66a0a7c7e845ecf7fb5f6993d4c25c1c83ab58f3;hpb=52cbd471d05ae817c0f19aa01e0880233a06f630;p=uffi.git

diff --git a/src/primitives.lisp b/src/primitives.lisp
index 66a0a7c..a43eb8d 100644
--- a/src/primitives.lisp
+++ b/src/primitives.lisp
@@ -141,7 +141,15 @@ supports takes advantage of this optimization."
       (:unsigned-short . c-call:unsigned-short)
       (:int . alien:integer) (:unsigned-int . c-call:unsigned-int)
       (:long . c-call:long) (:unsigned-long . c-call:unsigned-long)
+      #+#.(cl:if (cl:and (cl:find-package (cl:string '#:c-call))
+                         (cl:find-symbol (cl:string '#:long-long)
+                                         (cl:string '#:c-call)))
+                 '(and) '(or))
       (:long-long . c-call:long-long)
+      #+#.(cl:if (cl:and (cl:find-package (cl:string '#:c-call))
+                         (cl:find-symbol (cl:string '#:unsigned-long-long)
+                                         (cl:string '#:c-call)))
+                 '(and) '(or))
       (:unsigned-long-long . c-call:unsigned-long-long)
       (:float . c-call:float) (:double . c-call:double)
       (:array . alien:array)))