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.