projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3631: *** empty log message ***
[uffi.git]
/
src
/
primitives.lisp
diff --git
a/src/primitives.lisp
b/src/primitives.lisp
index 06dd03058dbf800194cc61084781a60d6e290924..03530669ff87ed7cfc31f3756d07f6f9445bd769 100644
(file)
--- a/
src/primitives.lisp
+++ b/
src/primitives.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: primitives.lisp,v 1.
7 2002/12/13 22:49:09
kevin Exp $
+;;;; $Id: primitives.lisp,v 1.
8 2002/12/15 17:11:08
kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-180,11
+180,11
@@
supports takes advantage of this optimization."
(:short . :short)
(:pointer-void . (:pointer :void))
(:cstring . (:reference-pass (:ef-mb-string :external-format
(:short . :short)
(:pointer-void . (:pointer :void))
(:cstring . (:reference-pass (:ef-mb-string :external-format
-
(:latin-1 :eol-style :lf
)
-
:allow-null t))
+
(:latin-1 :eol-style :lf)
)
+ :allow-null t))
(:cstring-returning . (:reference (:ef-mb-string :external-format
(:cstring-returning . (:reference (:ef-mb-string :external-format
-
(:latin-1 :eol-style :lf
)
-
:allow-null t))
+
(:latin-1 :eol-style :lf)
)
+ :allow-null t))
(:byte . :byte)
(:unsigned-byte . (:unsigned :byte))
(:char . :char)
(:byte . :byte)
(:unsigned-byte . (:unsigned :byte))
(:char . :char)