| commit | cd0bcd67acaeee2cbe787319dc8e6e30497371f8 | |
| author | James Y Knight <foom@fuhm.net> | |
| Wed, 23 Dec 2009 23:19:33 +0000 (23 18:19 -0500) | ||
| committer | James Y Knight <foom@fuhm.net> | |
| Wed, 23 Dec 2009 23:19:33 +0000 (23 18:19 -0500) | ||
| tree | 9611e68c07077d850620445b9a48d14d159141df | treesnapshot (tar.gz zip) |
| parent | 1773e66003b65894d90b776c70781c1c0847d185 | commitdiff |
Handle "cset" nodes (setf); handle combinations of kind :let.
Also, fix if: I had gotten the sense inverted (oops!)
I can now run:
(llvm-compile '(lambda (x) (let (z) (if x (setf z 1) (setf z 2 x 0)) (+ x z))))
Also, fix if: I had gotten the sense inverted (oops!)
I can now run:
(llvm-compile '(lambda (x) (let (z) (if x (setf z 1) (setf z 2 x 0)) (+ x z))))
| llvm/llvm.lisp | diffblobblamehistory |