(d :double))
(uffi:def-foreign-var ("fvar_struct" *fvar-struct*) fvar-struct
- "uffi_tests")
+ "c-uffi-tests")
(uffi:def-function ("fvar_struct_int" fvar-struct-int)
()
:returning :int
- :module "uffi_tests")
+ :module "c-uffi-test")
(uffi:def-function ("fvar_struct_double" fvar-struct-double)
()
:returning :double
- :module "uffi_tests")
+ :module "c-uffi-test")
(deftest fvarst.1 *fvar-addend* 3)
(deftest fvarst.2 (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 42)