89 |
t t t |
t t t |
90 |
x 1234567890 #\Z foo) |
x 1234567890 #\Z foo) |
91 |
|
|
92 |
|
;;; Order of evaluation tests |
93 |
|
|
94 |
|
(deftest allocate-instance.order.1 |
95 |
|
(let* ((class (find-class 'allocate-instance-class-01)) |
96 |
|
(i 0) x y z w |
97 |
|
(obj (allocate-instance (progn (setf x (incf i)) class) |
98 |
|
:e (setf y (incf i)) |
99 |
|
:b (setf z (incf i)) |
100 |
|
:e (setf w (incf i))))) |
101 |
|
(values |
102 |
|
(eqt (class-of obj) class) |
103 |
|
(typep* obj 'allocate-instance-class-01) |
104 |
|
(typep* obj class) |
105 |
|
i x y z w)) |
106 |
|
t t t 4 1 2 3 4) |
107 |
|
|
108 |
|
;;; Error tests |
109 |
|
|
110 |
(deftest allocate-instance.error.1 |
(deftest allocate-instance.error.1 |
111 |
(classify-error (allocate-instance)) |
(classify-error (allocate-instance)) |
112 |
program-error) |
program-error) |