cffi-ecl: c-inline-function-pointer-call bugfix

The previous fix did not work with functions that return no values.
Surround the code with braces, so that the C compiler does not
complain about the extern declaration.

diff --git a/src/cffi-ecl.lisp b/src/cffi-ecl.lisp
index 9f9500b..62a3c4e 100644 (file)
--- a/src/cffi-ecl.lisp
+++ b/src/cffi-ecl.lisp
@@ -290,9 +290,9 @@ WITH-POINTER-TO-VECTOR-DATA."
                 ;; On AMD64, the following code only works with the extra
                 ;; argument ",...". If this is not present, functions
                 ;; like sprintf do not work
-                (format s "extern ~A ~A(~@[~{~A~^, ~}~]);
-@(return) = ~A(~A);"
+                (format s "{ extern ~A ~A(~@[~{~A~^, ~}~]); ~A~A(~A); }"
                         (ecl-type->c-type return-type) pointer types
+                        (if (eq return-type :void) "" "@(return) = ")
                         pointer
                         (subseq +ecl-inline-codes+ 0
                                 (max 0 (1- (* (length values) 3)))))))