105 |
(map-slot-value obj2 '(a b)))) |
(map-slot-value obj2 '(a b)))) |
106 |
t (3 20)) |
t (3 20)) |
107 |
|
|
108 |
|
;;; Order of evaluation tests |
109 |
|
|
110 |
|
(deftest reinitialize-instance.order.1 |
111 |
|
(let* ((obj (make-instance 'reinit-class-01)) |
112 |
|
(i 0) x y z w |
113 |
|
(obj2 (reinitialize-instance |
114 |
|
(progn (setf x (incf i)) obj) |
115 |
|
:b (setf y (incf i)) |
116 |
|
:a (setf z (incf i)) |
117 |
|
:b (setf w (incf i))))) |
118 |
|
(values |
119 |
|
(eqt obj obj2) |
120 |
|
(map-slot-value obj2 '(a b)) |
121 |
|
i x y z w)) |
122 |
|
t (3 2) 4 1 2 3 4) |
123 |
|
|
124 |
;;; Error cases |
;;; Error cases |
125 |
|
|
126 |
(deftest reinitialize-instance.error.1 |
(deftest reinitialize-instance.error.1 |
132 |
(deftest reinitialize-instance.error.2 |
(deftest reinitialize-instance.error.2 |
133 |
(classify-error (reinitialize-instance)) |
(classify-error (reinitialize-instance)) |
134 |
program-error) |
program-error) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|