From 424402274218149eb9ff7fc560b55534c4b2b70c Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 4 Aug 2007 21:06:28 +0200
Subject: Allegro CL compatibility.

darcs-hash:04fca2e78b76d10a855512ab7716cb74a3e414c1
---
 Lisp/data-types.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'Lisp/data-types.lisp')

diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index 847b599..7bb4d5f 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -4,6 +4,11 @@
 ;;;; (@* "Foreign data types")
 (defctype char-pointer :pointer)
 
+;; Let us just hope that two longs make a long long, space-wise.
+(defcstruct double-long
+  (left :long)
+  (right :long))
+
 (defcunion obj-data-union
   (id-val :pointer)
   (class-val :pointer)
@@ -13,7 +18,8 @@
   (short-val :short)
   (int-val :int)
   (long-val :long)
-  (long-long-val :long-long)
+  #-cffi-features:no-long-long (long-long-val :long-long)
+  #+cffi-features:no-long-long (double-long-val double-long)
   (float-val :float)
   (double-val :double)
   (bool-val :boolean)
-- 
cgit v1.2.3