57 |
collect x) |
collect x) |
58 |
nil) |
nil) |
59 |
|
|
60 |
|
(defstruct type-of.example-struct a b c) |
61 |
|
|
62 |
|
(deftest type-of.6 |
63 |
|
(type-of (make-type-of.example-struct)) |
64 |
|
type-of.example-struct) |
65 |
|
|
66 |
|
(defclass type-of.example-class () ()) |
67 |
|
|
68 |
|
(deftest type-of.7 |
69 |
|
(type-of (make-instance 'type-of.example-class)) |
70 |
|
type-of.example-class) |
71 |
|
|
72 |
|
(defparameter *type-of.example-class-2* |
73 |
|
(defclass type-of.example-class-2 () ((a) (b) (c)))) |
74 |
|
|
75 |
|
(deftest type-of.8 |
76 |
|
(progn |
77 |
|
(setf (class-name *type-of.example-class-2*) nil) |
78 |
|
(eqt (type-of (make-instance *type-of.example-class-2*)) |
79 |
|
*type-of.example-class-2*)) |
80 |
|
t) |
81 |
|
|
82 |
;;; Error tests |
;;; Error tests |
83 |
|
|
84 |
(deftest type-of.error.1 |
(deftest type-of.error.1 |