diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-04 21:06:28 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-04 21:06:28 +0200 |
| commit | 424402274218149eb9ff7fc560b55534c4b2b70c (patch) | |
| tree | 924ad45b6026cfbfb820c56fba28a83f7b74c5e5 /Lisp/data-types.lisp | |
| parent | 3836edaccf2d9027d01b9d7c7b7a29df512b8d7c (diff) | |
Allegro CL compatibility.
darcs-hash:04fca2e78b76d10a855512ab7716cb74a3e414c1
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) |