;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg
+;;;; This file, part of UFFI, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
(:unsigned-short . c-call:unsigned-short)
(:int . alien:integer) (:unsigned-int . c-call:unsigned-int)
(:long . c-call:long) (:unsigned-long . c-call:unsigned-long)
+ #+#.(cl:if (cl:and (cl:find-package (cl:string '#:c-call))
+ (cl:find-symbol (cl:string '#:long-long)
+ (cl:string '#:c-call)))
+ '(and) '(or))
(:long-long . c-call:long-long)
+ #+#.(cl:if (cl:and (cl:find-package (cl:string '#:c-call))
+ (cl:find-symbol (cl:string '#:unsigned-long-long)
+ (cl:string '#:c-call)))
+ '(and) '(or))
(:unsigned-long-long . c-call:unsigned-long-long)
(:float . c-call:float) (:double . c-call:double)
(:array . alien:array)))
(:array . :array)))
#+(or allegro cormanlisp)
-(push 'uffi:no-long-long cl:*features)
+(push 'uffi:no-long-long cl:*features*)
#+lispworks
(setq *type-conversion-list*
(:array . :c-array)))
#+(and lispworks (not lispworks6))
-(push 'uffi:no-long-long cl:*features)
+(push 'uffi:no-long-long cl:*features*)
#+digitool
(setq *type-conversion-list*
(:float . :single-float) (:double . :double-float)
(:array . :array)))
#+digitool
-(push 'uffi:no-long-long cl:*features)
+(push 'uffi:no-long-long cl:*features*)
#+openmcl
(setq *type-conversion-list*