grovel-example.lisp - clic - Clic is an command line interactive client for gop… | |
git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65… | |
Log | |
Files | |
Refs | |
Tags | |
README | |
LICENSE | |
--- | |
grovel-example.lisp (420B) | |
--- | |
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")) |