From 451bceda369e226546c8cda417a6b208867352d8 Mon Sep 17 00:00:00 2001 From: "Liam M. Healy" <lnp@healy.washington.dc.us> Date: Thu, 10 Jun 2010 11:10:28 -0400 Subject: [PATCH] Fix fsbv:defcfun call The expansion of a foreign structure-by-value function did not substitute the foreign function name. It turns out this didn't matter because cffi::parse-name-and-options used by fsbv:defcfun simply ignored the symbol 'GSL-NAME for the foreign function name and pulled the actual name out of the symbol-name for the Lisp symbol of the function name. This fix makes it clearer in the macroexpansion however. --- init/body-expand.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/init/body-expand.lisp b/init/body-expand.lisp index 32e73d82..ceefd8db 100644 --- a/init/body-expand.lisp +++ b/init/body-expand.lisp @@ -1,8 +1,8 @@ ;; Expand the body of a defmfun ;; Liam Healy 2009-04-13 22:07:13EDT body-expand.lisp -;; Time-stamp: <2009-12-27 09:50:35EST body-expand.lisp> +;; Time-stamp: <2010-06-10 11:03:23EDT body-expand.lisp> ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -63,7 +63,7 @@ (mapcar (lambda (st) (c-array:make-st (gensym "ARG") (c-array:st-type st))) args))) (values - `(fsbv:defcfun (,gsl-name-symbol gsl-name) ,return-type + `(fsbv:defcfun (,gsl-name-symbol ,gsl-name) ,return-type "Function definition generated for FSBV prepping; will actually be called by fsbv:foreign-funcall" ,@symbargs) -- GitLab