48 |
|
|
49 |
;;; Order of argument evaluation |
;;; Order of argument evaluation |
50 |
|
|
51 |
(deftest aref.8 |
(deftest aref.order.1 |
52 |
(let ((i 0) x y (a #(a b c d))) |
(let ((i 0) x y (a #(a b c d))) |
53 |
(values |
(values |
54 |
(aref (progn (setf x (incf i)) a) |
(aref (progn (setf x (incf i)) a) |
56 |
i x y)) |
i x y)) |
57 |
c 2 1 2) |
c 2 1 2) |
58 |
|
|
59 |
(deftest aref.9 |
(deftest aref.order.2 |
60 |
(let ((i 0) x y z (a #2a((a b c)(d e f)))) |
(let ((i 0) x y z (a #2a((a b c)(d e f)))) |
61 |
(values |
(values |
62 |
(aref (progn (setf x (incf i)) a) |
(aref (progn (setf x (incf i)) a) |
123 |
0 |
0 |
124 |
#2a((1 0 1)(1 1 1))) |
#2a((1 0 1)(1 1 1))) |
125 |
|
|
126 |
(deftest setf-aref.8 |
(deftest setf-aref.order.1 |
127 |
(let ((i 0) x y z (a (copy-seq #(a b c d)))) |
(let ((i 0) x y z (a (copy-seq #(a b c d)))) |
128 |
(values |
(values |
129 |
(setf (aref (progn (setf x (incf i)) a) |
(setf (aref (progn (setf x (incf i)) a) |