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 58 | Line 58 |
58 | #(0 2 2 4 4 5 6 7 8 9) | #(0 2 2 4 4 5 6 7 8 9) |
59 | 4) | 4) |
60 | ||
61 | (deftest psetq.8 | |
62 | (let ((*x* 0) (*y* 10)) | |
63 | (declare (special *x* *y*)) | |
64 | (values | |
65 | *x* *y* | |
66 | (psetq *x* 6 | |
67 | *y* 15) | |
68 | *x* *y*)) | |
69 | 0 10 nil 6 15) | |
70 | ||
71 | (deftest psetq.9 | |
72 | (let ((*x* 0) (*y* 10)) | |
73 | (declare (special *x* *y*)) | |
74 | (values | |
75 | *x* *y* | |
76 | (psetq *x* *y* | |
77 | *y* *x*) | |
78 | *x* *y*)) | |
79 | 0 10 nil 10 0) | |
80 | ||
81 | ||
82 | ||
83 | (deftest psetq.error.1 | (deftest psetq.error.1 |
84 | (classify-error (funcall (macro-function 'psetq))) | (classify-error (funcall (macro-function 'psetq))) |
85 | program-error) | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |