Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Apr 20 22:59:26 2003 UTC | revision 1.2 by pfdietz, Sat May 10 02:01:57 2003 UTC | |
---|---|---|
# | Line 92 | Line 92 |
92 | a) | a) |
93 | #(0 2 2 4 4 5 6 7 8 9)) | #(0 2 2 4 4 5 6 7 8 9)) |
94 | ||
95 | (deftest psetf.10 | |
96 | (let ((*x* 0) (*y* 10)) | |
97 | (declare (special *x* *y*)) | |
98 | (values | |
99 | *x* *y* | |
100 | (psetf *x* 6 | |
101 | *y* 15) | |
102 | *x* *y*)) | |
103 | 0 10 nil 6 15) | |
104 | ||
105 | (deftest psetf.11 | |
106 | (let ((*x* 0) (*y* 10)) | |
107 | (declare (special *x* *y*)) | |
108 | (values | |
109 | *x* *y* | |
110 | (psetf *x* *y* | |
111 | *y* *x*) | |
112 | *x* *y*)) | |
113 | 0 10 nil 10 0) | |
114 | ||
115 | (def-macro-test psetf.error.1 (psetf)) | (def-macro-test psetf.error.1 (psetf)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |