24 |
a)) |
a)) |
25 |
5 6 #(1 2 3 4 5 6)) |
5 6 #(1 2 3 4 5 6)) |
26 |
|
|
27 |
|
(deftest fill-pointer.order.1 |
28 |
|
(let ((i 0) |
29 |
|
(a (make-array '(10) :fill-pointer 5))) |
30 |
|
(values |
31 |
|
(fill-pointer (progn (incf i) a)) |
32 |
|
i)) |
33 |
|
5 1) |
34 |
|
|
35 |
|
(deftest fill-pointer.order.2 |
36 |
|
(let ((i 0) x y |
37 |
|
(a (make-array '(10) :fill-pointer 5 |
38 |
|
:initial-contents '(1 2 3 4 5 6 7 8 9 10)))) |
39 |
|
(values |
40 |
|
i |
41 |
|
(setf (fill-pointer (progn (setf x (incf i)) a)) |
42 |
|
(progn (setf y (incf i)) 6)) |
43 |
|
a |
44 |
|
i x y)) |
45 |
|
0 6 #(1 2 3 4 5 6) 2 1 2) |
46 |
|
|
47 |
;;; Error tests |
;;; Error tests |
48 |
|
|
49 |
(deftest fill-pointer.error.1 |
(deftest fill-pointer.error.1 |