Add LIST, SEQUENCE to TYPECASE.
[jscl.git] / tests / setf.lisp
1
2 (test (= 2
3          (let ((x 0))
4            (incf x (setf x 1))
5            x)))