summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-10-04 17:32:41 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-10-04 17:32:41 +0200
commit9a3ec83a6db3ca95be8a4bf11620f93bfa348a4b (patch)
tree6fa6a775c7c2bf974ccf5e6546f8bdee54c0e759 /Lisp
parentb8764bfc2acf5f569b864a8b30175d2285b529d7 (diff)
Make type handling work on the GNU runtime again.
darcs-hash:fc311f5f95252858c3d57007d43f5eb327db7cd6
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/type-handling.lisp20
1 files changed, 8 insertions, 12 deletions
diff --git a/Lisp/type-handling.lisp b/Lisp/type-handling.lisp
index abee5ae..44370d8 100644
--- a/Lisp/type-handling.lisp
+++ b/Lisp/type-handling.lisp
@@ -142,27 +142,23 @@ Returns: (VALUES typespec byte-position string-position)"
(otherwise
(prog1 (list (case init-char
(#\B :boolean) ;XXX :int?
- (#\c (if (or return-type-p
- (eq +runtime-type+ :gnu)
- (and (eq +runtime-type+ :next)
+ (#\c (if (and (eq +runtime-type+ :next)
+ (or return-type-p
(featurep 'cffi-features:ppc32)))
:int
:char))
- (#\C (if (or return-type-p
- (eq +runtime-type+ :gnu)
- (and (eq +runtime-type+ :next)
+ (#\C (if (and (eq +runtime-type+ :next)
+ (or return-type-p
(featurep 'cffi-features:ppc32)))
:unsigned-int
:unsigned-char))
- (#\s (if (or return-type-p
- (eq +runtime-type+ :gnu)
- (and (eq +runtime-type+ :next)
+ (#\s (if (and (eq +runtime-type+ :next)
+ (or return-type-p
(featurep 'cffi-features:ppc32)))
:int
:short))
- (#\S (if (or return-type-p
- (eq +runtime-type+ :gnu)
- (and (eq +runtime-type+ :next)
+ (#\S (if (and (eq +runtime-type+ :next)
+ (or return-type-p
(featurep 'cffi-features:ppc32)))
:unsigned-int
:unsigned-short))