GreenTeaScript/GreenTeaScript — pull request #20 by syohex (2013-12-04 01:12:54+00:00)
Title: Improve Common Lisp support

Input

```
int test(int i, int a) {for(i = 0; i <= 10; i) { a = a + (2 * i); i = i + 1; } return a;}
```

Output following Common Lisp code

```lisp
(defun test__194 (i a)
(loop while (<= i 10)
do (progn
(setq a (+ a (* 2 i)))
(setq i (+ i 1))
i))
a
)
```

Input

```
class Foo { int a = 100; String b = "foo"; }
```

Output

```lisp
(defclass Foo () ((a :initarg :a :initform 100)(b :initarg :b :initform "foo")))
```

Please see this patch.