108 |
(1 0 0 1 1 0 0 0 1 1) |
(1 0 0 1 1 0 0 0 1 1) |
109 |
(1 0 0 1 1 0 0 0 1 1) |
(1 0 0 1 1 0 0 0 1 1) |
110 |
(1 0 0 1 1 0 0 0 1 1)) |
(1 0 0 1 1 0 0 0 1 1)) |
111 |
|
|
112 |
|
;;; Order of evaluation tests |
113 |
|
|
114 |
|
(deftest bit.9 |
115 |
|
(let ((x 0) y z |
116 |
|
(b (copy-seq #*01010))) |
117 |
|
(values |
118 |
|
(bit (progn (setf y (incf x)) b) |
119 |
|
(progn (setf z (incf x)) 1)) |
120 |
|
x y z)) |
121 |
|
1 2 1 2) |
122 |
|
|
123 |
|
(deftest bit.10 |
124 |
|
(let ((x 0) y z w |
125 |
|
(b (copy-seq #*01010))) |
126 |
|
(values |
127 |
|
(setf (bit (progn (setf y (incf x)) b) |
128 |
|
(progn (setf z (incf x)) 1)) |
129 |
|
(progn (setf w (incf x)) 0)) |
130 |
|
b |
131 |
|
x y z w)) |
132 |
|
0 #*00010 3 1 2 3) |
133 |
|
|