19 |
(10 11 12 13) |
(10 11 12 13) |
20 |
#(10 11 12 13)) |
#(10 11 12 13)) |
21 |
|
|
22 |
|
(deftest svref.order.1 |
23 |
|
(let ((v (vector 'a 'b 'c 'd)) |
24 |
|
(i 0) a b) |
25 |
|
(values |
26 |
|
(svref (progn (setf a (incf i)) v) |
27 |
|
(progn (setf b (incf i)) 2)) |
28 |
|
i a b)) |
29 |
|
c 2 1 2) |
30 |
|
|
31 |
|
(deftest svref.order.2 |
32 |
|
(let ((v (vector 'a 'b 'c 'd)) |
33 |
|
(i 0) a b c) |
34 |
|
(values |
35 |
|
(setf |
36 |
|
(svref (progn (setf a (incf i)) v) |
37 |
|
(progn (setf b (incf i)) 2)) |
38 |
|
(progn (setf c (incf i)) 'w)) |
39 |
|
v i a b c)) |
40 |
|
w #(a b w d) 3 1 2 3) |
41 |
|
|
42 |
|
|
43 |
;;; Error tests |
;;; Error tests |
44 |
|
|
45 |
(deftest svref.error.1 |
(deftest svref.error.1 |