FSBV: fix defcfun expansion for returning a struct.

The test called alloc_pair_plus_one compiled with a full warning before the fix.
cffi · Dec 26, 2015 · 9281d6b · 9281d6b
1 parent f183953
commit 9281d6b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/libffi/functions.lisp b/libffi/functions.lisp
@@ -84,7 +84,7 @@
           ;; expand-from-foreign, we have to do it here
           `(mem-ref
             ,(translate-objects symbols function-arguments types return-type call-form t)
-            ,(canonicalize-foreign-type return-type)))))
+            ',(canonicalize-foreign-type return-type)))))
 
 (defun ffcall-body-libffi
     (function function-arguments symbols types return-type argument-types &optional pointerp (abi :default-abi))