diff options
Diffstat (limited to 'Lisp/data-types.lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
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) |