Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Sep 7 15:19:30 2003 UTC | revision 1.2 by pfdietz, Tue Sep 23 01:01:34 2003 UTC | |
---|---|---|
# | Line 54 | Line 54 |
54 | always (eql (floor (* i (expt 2 s))) ishifted))) | always (eql (floor (* i (expt 2 s))) ishifted))) |
55 | t) | t) |
56 | ||
57 | (deftest ash.4 | |
58 | (loop for i from -1 to -1000 | |
59 | always (eql (ash i i) -1)) | |
60 | t) | |
61 | ||
62 | (deftest ash.5 | |
63 | (loop for i from 1 to 100 | |
64 | for j = (- (ash 1 i)) | |
65 | always (eql (ash j j) -1)) | |
66 | t) | |
67 | ||
68 | (deftest ash.order.1 | (deftest ash.order.1 |
69 | (let ((i 0) x y) | (let ((i 0) x y) |
70 | (values (ash (progn (setf x (incf i)) 1) | (values (ash (progn (setf x (incf i)) 1) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |