Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sat Feb 15 05:11:11 2003 UTC | revision 1.4 by pfdietz, Mon Feb 17 04:22:03 2003 UTC | |
---|---|---|
# | Line 111 | Line 111 |
111 | ||
112 | ;;; Order of evaluation tests | ;;; Order of evaluation tests |
113 | ||
114 | (deftest bit.9 | (deftest bit.order.1 |
115 | (let ((x 0) y z | (let ((x 0) y z |
116 | (b (copy-seq #*01010))) | (b (copy-seq #*01010))) |
117 | (values | (values |
# | Line 120 | Line 120 |
120 | x y z)) | x y z)) |
121 | 1 2 1 2) | 1 2 1 2) |
122 | ||
123 | (deftest bit.10 | (deftest bit.order.2 |
124 | (let ((x 0) y z w | (let ((x 0) y z w |
125 | (b (copy-seq #*01010))) | (b (copy-seq #*01010))) |
126 | (values | (values |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |