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))))) |
242 |
(obj1 (make-instance 'class-0311))) |
(obj1 (make-instance 'class-0311))) |
243 |
(setf (find-class (class-name class1)) nil) |
(setf (find-class 'class-0311) nil) |
244 |
(let ((class2 (eval '(defclass class-0311 () ((a) (b) (c)))))) |
(let ((class2 (eval '(defclass class-0311 () ((a) (b) (c)))))) |
245 |
(values |
(values |
246 |
(eqt (class-of obj1) class1) |
(eqt (class-of obj1) class1) |