79 |
collect name)) |
collect name)) |
80 |
nil) |
nil) |
81 |
|
|
82 |
|
;;; Order of evaluation test(s) |
83 |
|
|
84 |
|
(deftest slot-value.order.1 |
85 |
|
(let ((obj (make-instance 'slot-value-class-01)) |
86 |
|
(i 0) x y) |
87 |
|
(values |
88 |
|
(setf (slot-value obj 'a) t) |
89 |
|
(slot-value (progn (setf x (incf i)) obj) |
90 |
|
(progn (setf y (incf i)) 'a)) |
91 |
|
i x y)) |
92 |
|
t t 2 1 2) |
93 |
|
|
94 |
|
(deftest slot-value.order.2 |
95 |
|
(let ((obj (make-instance 'slot-value-class-01)) |
96 |
|
(i 0) x y) |
97 |
|
(values |
98 |
|
(setf (slot-value (progn (setf x (incf i)) obj) |
99 |
|
(progn (setf y (incf i)) 'b)) |
100 |
|
t) |
101 |
|
(slot-value obj 'b) |
102 |
|
i x y)) |
103 |
|
t t 2 1 2) |
104 |
|
|
105 |
;;; Error tests |
;;; Error tests |
106 |
|
|