From b7dfab42cd677e7fded473b37dd1a4ec56f5459b Mon Sep 17 00:00:00 2001 From: goffioul Date: Mon, 10 Oct 2005 14:38:18 +0000 Subject: [PATCH] Fix dynamic FFI: low-level functions are in the system package. --- src/lsp/ffi.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lsp/ffi.lsp b/src/lsp/ffi.lsp index 4894271aa..de3106a84 100644 --- a/src/lsp/ffi.lsp +++ b/src/lsp/ffi.lsp @@ -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