projects / jscl.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
SETQ signals error if the first argument is not a symbol
[jscl.git] / tests / setf.lisp
1
2 (test (= 2
3          (let ((x 0))
4            (incf x (setf x 1))
5            x)))
A Lisp-to-Javascript compiler bootstrapped from Common Lisp