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