projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix symbol name
[uffi.git]
/
src
/
primitives.lisp
diff --git
a/src/primitives.lisp
b/src/primitives.lisp
index 50023b354919a1932ae1e06d07efcd29f4cbe89a..e49c4b422febc328abb830a676a187acf1a7945c 100644
(file)
--- a/
src/primitives.lisp
+++ b/
src/primitives.lisp
@@
-183,7
+183,7
@@
supports takes advantage of this optimization."
(:array . :array)))
#+(or allegro cormanlisp)
(:array . :array)))
#+(or allegro cormanlisp)
-(push 'uffi:no-long-long cl:*features)
+(push 'uffi:no-long-long cl:*features
*
)
#+lispworks
(setq *type-conversion-list*
#+lispworks
(setq *type-conversion-list*
@@
-208,7
+208,7
@@
supports takes advantage of this optimization."
(:array . :c-array)))
#+(and lispworks (not lispworks6))
(: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*
#+digitool
(setq *type-conversion-list*
@@
-224,7
+224,7
@@
supports takes advantage of this optimization."
(:float . :single-float) (:double . :double-float)
(:array . :array)))
#+digitool
(: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*
#+openmcl
(setq *type-conversion-list*