mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 12:52:08 -08:00
Code Issues Projects Releases Packages Wiki Activity

USE-DFFI is not exportd by SI

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-30 21:41:41 +01:00
parent 12a1023e88
commit 756521026d
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lsp/ffi.lsp
View file

@ -538,7 +538,7 @@
(defmacro def-function (name args &key module (returning :void) (call :cdecl))
#+DFFI
(when (and module si::*use-dffi*)
(when (and module *use-dffi*)
(return-from def-function
`(def-lib-function ,name ,args :returning ,returning :module ,module :call ,call)))
(multiple-value-bind (c-name lisp-name)
@ -575,7 +575,7 @@
(and (consp ffi-type)
(member (first ffi-type) '(* :array)))))
(inline-form (cond #+dffi
((and module si::*use-dffi*)
((and module *use-dffi*)
`(si::find-foreign-symbol ,c-name ,module ',type ,(size-of-foreign-type type)))
(t
`(c-inline () () :object
@ -656,7 +656,7 @@
`((eval-when (:compile-toplevel)
(do-load-foreign-library ,filename
,system-library)))))
(dyn-form #+dffi (when (and (not system-library) si::*use-dffi*)
(dyn-form #+dffi (when (and (not system-library) *use-dffi*)
`((si:load-foreign-module ,filename)))
#-dffi nil))
`(progn ,@compile-form ,@dyn-form)))
@ -671,7 +671,7 @@
#+dffi
(defmacro defcallback (name ret-type arg-desc &body body)
(if si::*use-dffi*
(if *use-dffi*
(multiple-value-bind (name call-type) (if (consp name)
(values-list name)
(values name :cdecl))