;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: primitives.lisp,v 1.10 2003/08/14 21:40:13 kevin Exp $
+;;;; $Id: primitives.lisp,v 1.11 2003/08/14 21:58:29 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
#+(or cmu scl)
(setq *type-conversion-list*
'((* . *) (:void . c-call:void)
- (:short . c-call:short)
(:pointer-void . (* t))
(:cstring . c-call:c-string)
(:char . c-call:char)
(:unsigned-char . (alien:unsigned 8))
(:byte . (alien:signed 8))
(:unsigned-byte . (alien:unsigned 8))
- (:short . c-call:unsigned-short)
+ (:short . c-call:short)
(: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)
#+sbcl
(setq *type-conversion-list*
'((* . *) (:void . sb-alien:void)
- (:short . sb-alien:short)
(:pointer-void . (* t))
(:cstring . sb-alien:c-string)
(:char . sb-alien:char)
(:unsigned-char . (sb-alien:unsigned 8))
(:byte . (sb-alien:signed 8))
(:unsigned-byte . (sb-alien:unsigned 8))
- (:short . sb-alien:unsigned-short)
+ (:short . sb-alien:short)
(:unsigned-short . sb-alien:unsigned-short)
(:int . sb-alien:integer) (:unsigned-int . sb-alien:unsigned-int)
(:long . sb-alien:long) (:unsigned-long . sb-alien:unsigned-long)