7 |
|
|
8 |
(deftest vector-push-extend.1 |
(deftest vector-push-extend.1 |
9 |
(let ((a (make-array '(5) :fill-pointer 2 |
(let ((a (make-array '(5) :fill-pointer 2 |
10 |
:initial-contents '(a b c d e)))) |
:initial-contents '(a b c d e))) |
11 |
|
(i 0) x y) |
12 |
(values |
(values |
13 |
(fill-pointer a) |
(fill-pointer a) |
14 |
(vector-push-extend 'x a) |
(vector-push-extend (progn (setf x (incf i)) 'x) |
15 |
|
(progn (setf y (incf i)) a)) |
16 |
(fill-pointer a) |
(fill-pointer a) |
17 |
a)) |
a |
18 |
2 2 3 #(a b x)) |
i x y)) |
19 |
|
2 2 3 #(a b x) 2 1 2) |
20 |
|
|
21 |
(deftest vector-push-extend.2 |
(deftest vector-push-extend.2 |
22 |
(let ((a (make-array '(5) :fill-pointer 5 |
(let ((a (make-array '(5) :fill-pointer 5 |
45 |
(let ((a (make-array '(5) :fill-pointer 5 |
(let ((a (make-array '(5) :fill-pointer 5 |
46 |
:adjustable t |
:adjustable t |
47 |
:initial-contents "abcde" |
:initial-contents "abcde" |
48 |
:element-type 'base-char))) |
:element-type 'base-char)) |
49 |
|
(i 0) x y z) |
50 |
(values |
(values |
51 |
(fill-pointer a) |
(fill-pointer a) |
52 |
(vector-push-extend #\x a 1) |
(vector-push-extend (progn (setf x (incf i)) #\x) |
53 |
|
(progn (setf y (incf i)) a) |
54 |
|
(progn (setf z (incf i)) 1)) |
55 |
(fill-pointer a) |
(fill-pointer a) |
56 |
(<= (array-total-size a) 5) |
(<= (array-total-size a) 5) |
57 |
a)) |
a |
58 |
5 5 6 nil "abcdex") |
i x y z)) |
59 |
|
5 5 6 nil "abcdex" 3 1 2 3) |
60 |
|
|
61 |
(deftest vector-push-extend.5 |
(deftest vector-push-extend.5 |
62 |
(let ((a (make-array '(5) :fill-pointer 2 |
(let ((a (make-array '(5) :fill-pointer 2 |