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