From 4d7ffd6acb68c4db6d7fe6ebcda8789a1a50c95c Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 17 Jun 2017 20:31:55 -0600 Subject: [PATCH] Update AllegroCL for :long-long on 64-bit platforms --- src/primitives.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 -- 2.34.1