Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Wed Apr 21 04:12:28 2004 UTC | revision 1.6 by pfdietz, Mon Nov 29 13:23:38 2004 UTC | |
---|---|---|
# | Line 161 | Line 161 |
161 | i x y a)) | i x y a)) |
162 | 11 2 1 2 #(11 2 3 4)) | 11 2 1 2 #(11 2 3 4)) |
163 | ||
164 | (deftest incf.order.4 | |
165 | (let ((x 0)) | |
166 | (progn | |
167 | "See CLtS 5.1.3" | |
168 | (values | |
169 | (incf x (setf x 1)) | |
170 | x))) | |
171 | 2 2) | |
172 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |