3rdparties/software/cffi_0.21.0/examples/grovel-example.lisp (420 bytes)
1 (in-package #:cffi-example) 2 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)") 9 10 (define "A0" "a0(1)") 11 (define "A1" "a1(1)") 12 (define "A2" "a2(1)") 13 (define "A3" "a3(1)") 14 (define "A4" "a4(1)") 15 16 (constant (+a0+ "A0")) 17 (constant (+a1+ "A1")) 18 (constant (+a2+ "A2")) 19 (constant (+a3+ "A3")) 20 (constant (+a4+ "A4"))