projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1544: *** empty log message ***
[uffi.git]
/
src
/
primitives.cl
diff --git
a/src/primitives.cl
b/src/primitives.cl
index c5c64502ce241ce64bf4b2b62fe58e7b4f476231..a0bcae74361768916e7d066a5478042d07e90830 100644
(file)
--- a/
src/primitives.cl
+++ b/
src/primitives.cl
@@
-9,7
+9,7
@@
;;;;
;;;; Copyright (c) 2002 Kevin M. Rosenberg
;;;;
;;;;
;;;; Copyright (c) 2002 Kevin M. Rosenberg
;;;;
-;;;; $Id: primitives.cl,v 1.
1 2002/03/10 21:48:50
kevin Exp $
+;;;; $Id: primitives.cl,v 1.
2 2002/03/10 22:29:47
kevin Exp $
;;;;
;;;; This file is part of the UFFI.
;;;;
;;;;
;;;; This file is part of the UFFI.
;;;;
@@
-42,7
+42,7
@@
supports this."
#+(or lispworks allegro)
(declare (ignore type name))
#+cmu
#+(or lispworks allegro)
(declare (ignore type name))
#+cmu
- `(declare (type (alien
,type) ,name)
)
+ `(declare (type (alien
:alien ,type)) ,name
)
)
(defmacro slot-type (type)
)
(defmacro slot-type (type)
@@
-90,7
+90,7
@@
supports this."
'((* . *) (:void . c-call:void)
(:short . c-call:short)
(:pointer-void . (* t))
'((* . *) (:void . c-call:void)
(:short . c-call:short)
(:pointer-void . (* t))
- (:cstring . c-call:cstring)
+ (:cstring . c-call:c
-
string)
(:char . c-call:char)
(:unsigned-char . (alien:unsigned 8))
(:byte . (alien:unsigned 8))
(:char . c-call:char)
(:unsigned-char . (alien:unsigned 8))
(:byte . (alien:unsigned 8))