Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Jan 26 21:31:33 2003 UTC | revision 1.2 by pfdietz, Sat Feb 15 05:11:12 2003 UTC | |
---|---|---|
# | Line 68 | Line 68 |
68 | (aref a 5 5) | (aref a 5 5) |
69 | (sbit a 5 5))) | (sbit a 5 5))) |
70 | 0 0 1 1 1) | 0 0 1 1 1) |
71 | ||
72 | (deftest sbit.order.1 | |
73 | (let ((i 0) a b) | |
74 | (values | |
75 | (sbit (progn (setf a (incf i)) #*001001) | |
76 | (progn (setf b (incf i)) 1)) | |
77 | i a b)) | |
78 | 0 2 1 2) | |
79 | ||
80 | (deftest sbit.order.2 | |
81 | (let ((i 0) a b c | |
82 | (v (copy-seq #*001001))) | |
83 | (values | |
84 | (setf (sbit (progn (setf a (incf i)) v) | |
85 | (progn (setf b (incf i)) 1)) | |
86 | (progn (setf c (incf i)) 1)) | |
87 | v i a b c)) | |
88 | 1 #*011001 3 1 2 3) | |
89 | ||
90 | (deftest sbit.error.1 | |
91 | (classify-error (sbit)) | |
92 | program-error) | |
93 | ||
94 | ||
95 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |