39 |
collect slot-name) |
collect slot-name) |
40 |
nil) |
nil) |
41 |
|
|
42 |
|
;;; Order of evaluation test(s) |
43 |
|
|
44 |
|
(deftest slot-makunbound.order.1 |
45 |
|
(let ((obj (make-instance 'slot-makunbound-class-01)) |
46 |
|
(i 0) x y) |
47 |
|
(values |
48 |
|
(eqt (slot-makunbound (progn (setf x (incf i)) obj) |
49 |
|
(progn (setf y (incf i)) 'a)) |
50 |
|
obj) |
51 |
|
i x y)) |
52 |
|
t 2 1 2) |
53 |
|
|
54 |
|
(deftest slot-makunbound.order.2 |
55 |
|
(let ((obj (make-instance 'slot-makunbound-class-01)) |
56 |
|
(i 0) x y) |
57 |
|
(setf (slot-value obj 'a) t) |
58 |
|
(values |
59 |
|
(eqt (slot-makunbound (progn (setf x (incf i)) obj) |
60 |
|
(progn (setf y (incf i)) 'a)) |
61 |
|
obj) |
62 |
|
i x y)) |
63 |
|
t 2 1 2) |
64 |
|
|
65 |
;;; Error cases |
;;; Error cases |
66 |
|
|