removed unused function and added detection for multiple objects following a dot...
[jscl.git] / tests / setf.lisp
1
2 (test (= 2
3          (let ((x 0))
4            (incf x (setf x 1))
5            x)))