98 |
(eqt (type-of (make-instance class)) class)) |
(eqt (type-of (make-instance class)) class)) |
99 |
t) |
t) |
100 |
|
|
101 |
|
(deftest type-of.10 |
102 |
|
(let* ((class (eval '(defclass type-of.example-class-4 () ((a) (b) (c))))) |
103 |
|
(obj (make-instance class))) |
104 |
|
(setf (class-name class) nil) |
105 |
|
(notnot-mv (typep obj class))) |
106 |
|
t) |
107 |
|
|
108 |
;;; Error tests |
;;; Error tests |
109 |
|
|
110 |
(deftest type-of.error.1 |
(deftest type-of.error.1 |
114 |
(deftest type-of.error.2 |
(deftest type-of.error.2 |
115 |
(signals-error (type-of nil nil) program-error) |
(signals-error (type-of nil nil) program-error) |
116 |
t) |
t) |
117 |
|
|