218 |
(typep* obj1 class2))))) |
(typep* obj1 class2))))) |
219 |
t nil t nil) |
t nil t nil) |
220 |
|
|
221 |
(deftest class-0309.2 |
(deftest class-0310.1 |
222 |
(progn |
(progn |
223 |
(setf (find-class 'class-0310a) nil |
(setf (find-class 'class-0310a) nil |
224 |
(find-class 'class-0310b) nil) |
(find-class 'class-0310b) nil) |
235 |
(class-name class2))))) |
(class-name class2))))) |
236 |
t nil t nil class-0310b class-0310a) |
t nil t nil class-0310b class-0310a) |
237 |
|
|
238 |
(deftest class-0309.3 |
(deftest class-0311.1 |
239 |
(progn |
(progn |
240 |
(setf (find-class 'class-0311) nil) |
(setf (find-class 'class-0311) nil) |
241 |
(let* ((class1 (eval '(defclass class-0311 () ((a) (b) (c))))) |
(let* ((class1 (eval '(defclass class-0311 () ((a) (b) (c))))) |