104 |
(t 'good)))))))))) |
(t 'good)))))))))) |
105 |
good) |
good) |
106 |
|
|
107 |
|
(deftest defclass.forward-ref.4 |
108 |
|
(block nil |
109 |
|
(let ((c1 (gensym)) |
110 |
|
(c2 (gensym)) |
111 |
|
(c3 (gensym)) |
112 |
|
(c4 (gensym)) |
113 |
|
(c5 (gensym))) |
114 |
|
(unless (typep (eval `(defclass ,c4 nil nil)) 'class) |
115 |
|
(return 1)) |
116 |
|
(unless (typep (eval `(defclass ,c5 nil nil)) 'class) |
117 |
|
(return 2)) |
118 |
|
(unless (typep (eval `(defclass ,c1 (,c2 ,c3) nil)) 'class) |
119 |
|
(return 3)) |
120 |
|
(unless (typep (eval `(defclass ,c2 (,c4 ,c5) nil)) 'class) |
121 |
|
(return 4)) |
122 |
|
(let ((error-symbol |
123 |
|
(classify-error** |
124 |
|
`(progn |
125 |
|
(defclass ,c3 (,c5 ,c4) nil) |
126 |
|
(make-instance ',c1))))) |
127 |
|
(and (symbolp error-symbol) |
128 |
|
(subtypep error-symbol 'error) |
129 |
|
'good)))) |
130 |
|
good) |
131 |
|
|
132 |
|
|
133 |
|
|
134 |
|
|
135 |
|
|
136 |
|
|