Commit 451bceda authored by Liam M. Healy's avatar Liam M. Healy

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.
parent 5fe5b489
;; 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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment