57 |
(values indicator value tail)))) |
(values indicator value tail)))) |
58 |
g h (g h a c)) |
g h (g h a c)) |
59 |
|
|
60 |
(deftest get-properties.10 |
(deftest get-properties.order.1 |
61 |
(let ((i 0) x y) |
(let ((i 0) x y) |
62 |
(values |
(values |
63 |
(multiple-value-list |
(multiple-value-list |
105 |
x)) |
x)) |
106 |
b 1) |
b 1) |
107 |
|
|
108 |
(deftest getf.6 |
(deftest getf.order.1 |
109 |
(let ((i 0) x y) |
(let ((i 0) x y) |
110 |
(values |
(values |
111 |
(getf (progn (setf x (incf i)) '(a b)) |
(getf (progn (setf x (incf i)) '(a b)) |
113 |
i x y)) |
i x y)) |
114 |
b 2 1 2) |
b 2 1 2) |
115 |
|
|
116 |
(deftest getf.7 |
(deftest getf.order.2 |
117 |
(let ((i 0) x y z) |
(let ((i 0) x y z) |
118 |
(values |
(values |
119 |
(getf (progn (setf x (incf i)) '(a b)) |
(getf (progn (setf x (incf i)) '(a b)) |
200 |
foo)) |
foo)) |
201 |
t) |
t) |
202 |
|
|
203 |
(deftest setf-getf.6 |
(deftest setf-getf.order.1 |
204 |
(let ((p (list (copy-list '(a 1 b 2)))) |
(let ((p (list (copy-list '(a 1 b 2)))) |
205 |
(cnt1 0) (cnt2 0) (cnt3 0)) |
(cnt1 0) (cnt2 0) (cnt3 0)) |
206 |
(setf (getf (car (progn (incf cnt1) p)) 'c (incf cnt3)) |
(setf (getf (car (progn (incf cnt1) p)) 'c (incf cnt3)) |
221 |
t)) |
t)) |
222 |
t) |
t) |
223 |
|
|
224 |
(deftest setf-getf.7 |
(deftest setf-getf.order.2 |
225 |
(let ((p (list (copy-list '(a 1 b 2)))) |
(let ((p (list (copy-list '(a 1 b 2)))) |
226 |
(i 0) x y z w) |
(i 0) x y z w) |
227 |
(setf (getf (car (progn (setf x (incf i)) p)) |
(setf (getf (car (progn (setf x (incf i)) p)) |
323 |
(not (eqt (car ptr) 'a))))) |
(not (eqt (car ptr) 'a))))) |
324 |
t 0) |
t 0) |
325 |
|
|
326 |
(deftest remf.5 |
(deftest remf.order.1 |
327 |
(let ((i 0) x y |
(let ((i 0) x y |
328 |
(p (make-array 1 :initial-element (copy-list '(a b c d e f))))) |
(p (make-array 1 :initial-element (copy-list '(a b c d e f))))) |
329 |
(values |
(values |