1 (in-package #:cffi-example
)
3 (define "a0(x)" "+x+x")
4 (define "a1(x)" "a0(+x+x)")
5 (define "a2(x)" "a1(+x+x)")
6 (define "a3(x)" "a2(+x+x)")
7 (define "a4(x)" "a3(+x+x)")
8 (define "a5(x)" "a4(+x+x)")
16 (constant (+a0
+ "A0"))
17 (constant (+a1
+ "A1"))
18 (constant (+a2
+ "A2"))
19 (constant (+a3
+ "A3"))
20 (constant (+a4
+ "A4"))