69 |
(type-of (make-instance 'type-of.example-class)) |
(type-of (make-instance 'type-of.example-class)) |
70 |
type-of.example-class) |
type-of.example-class) |
71 |
|
|
|
(defparameter *type-of.example-class-2* |
|
|
(defclass type-of.example-class-2 () ((a) (b) (c)))) |
|
|
|
|
72 |
(deftest type-of.8 |
(deftest type-of.8 |
73 |
(progn |
(let ((class (eval '(defclass type-of.example-class-2 () ((a) (b) (c)))))) |
74 |
(setf (class-name *type-of.example-class-2*) nil) |
(setf (class-name class) nil) |
75 |
(eqt (type-of (make-instance *type-of.example-class-2*)) |
(eqt (type-of (make-instance class)) class)) |
76 |
*type-of.example-class-2*)) |
t) |
77 |
|
|
78 |
|
(deftest type-of.9 |
79 |
|
(let ((class (eval '(defclass type-of.example-class-3 () ((a) (b) (c)))))) |
80 |
|
(setf (find-class 'type-of.example-class-3) nil) |
81 |
|
(eqt (type-of (make-instance class)) class)) |
82 |
t) |
t) |
83 |
|
|
84 |
|
|
85 |
;;; Error tests |
;;; Error tests |
86 |
|
|
87 |
(deftest type-of.error.1 |
(deftest type-of.error.1 |