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

Fix dynamic FFI: low-level functions are in the system package.

Browse source
This commit is contained in:
goffioul 2005-10-10 14:38:18 +00:00
parent 6263acc77c
commit b7dfab42cd
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/ffi.lsp
View file

@ -517,9 +517,9 @@
(let* ((return-type (ffi::%convert-to-return-type returning))
(return-required (not (eq return-type :void)))
(argtypes (mapcar #'(lambda (a) (ffi::%convert-to-arg-type (second a))) args)))
`(let ((c-fun (find-foreign-symbol ,c-name ,module :pointer-void 0)))
`(let ((c-fun (si::find-foreign-symbol ,c-name ,module :pointer-void 0)))
(defun ,lisp-name ,(mapcar #'first args)
(call-cfun c-fun ',return-type ',argtypes (list ,@(mapcar #'first args))))))))
(si::call-cfun c-fun ',return-type ',argtypes (list ,@(mapcar #'first args))))))))
(defmacro def-function (name args &key module (returning :void))
#+DFFI