grovel-example.lisp - clic - Clic is an command line interactive client for gopher written in Common LISP (HTM) git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/ (DIR) Log (DIR) Files (DIR) Refs (DIR) Tags (DIR) README (DIR) 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"))