51 |
(deftest struct-include.3 |
(deftest struct-include.3 |
52 |
(let ((obj (make-struct-include-02b))) |
(let ((obj (make-struct-include-02b))) |
53 |
(values |
(values |
54 |
(typep obj 'struct-include-02a) |
(typep* obj 'struct-include-02a) |
55 |
(typep obj 'struct-include-02b) |
(typep* obj 'struct-include-02b) |
56 |
(struct-include-02a-a obj) |
(struct-include-02a-a obj) |
57 |
(struct-include-02b-a obj))) |
(struct-include-02b-a obj))) |
58 |
t t 10 10) |
t t 10 10) |
60 |
(deftest struct-include.4 |
(deftest struct-include.4 |
61 |
(let ((obj (make-struct-include-02a))) |
(let ((obj (make-struct-include-02a))) |
62 |
(values |
(values |
63 |
(typep obj 'struct-include-02a) |
(typep* obj 'struct-include-02a) |
64 |
(typep obj 'struct-include-02b) |
(typep* obj 'struct-include-02b) |
65 |
(struct-include-02a-a obj))) |
(struct-include-02a-a obj))) |
66 |
t nil 0) |
t nil 0) |
67 |
|
|
68 |
(deftest struct-include.5 |
(deftest struct-include.5 |
69 |
(let ((obj (make-struct-include-02b :a 100))) |
(let ((obj (make-struct-include-02b :a 100))) |
70 |
(values |
(values |
71 |
(typep obj 'struct-include-02a) |
(typep* obj 'struct-include-02a) |
72 |
(typep obj 'struct-include-02b) |
(typep* obj 'struct-include-02b) |
73 |
(struct-include-02a-a obj) |
(struct-include-02a-a obj) |
74 |
(struct-include-02b-a obj))) |
(struct-include-02b-a obj))) |
75 |
t t 100 100) |
t t 100 100) |
82 |
(deftest struct-include.5a |
(deftest struct-include.5a |
83 |
(let ((obj (make-struct-include-03b :a 100))) |
(let ((obj (make-struct-include-03b :a 100))) |
84 |
(values |
(values |
85 |
(typep obj 'struct-include-03a) |
(typep* obj 'struct-include-03a) |
86 |
(typep obj 'struct-include-03b) |
(typep* obj 'struct-include-03b) |
87 |
(struct-include-03a-a obj) |
(struct-include-03a-a obj) |
88 |
(struct-include-03b-a obj))) |
(struct-include-03b-a obj))) |
89 |
t t 100 100) |
t t 100 100) |
96 |
(deftest struct-include.6 |
(deftest struct-include.6 |
97 |
(let ((obj (make-struct-include-04b))) |
(let ((obj (make-struct-include-04b))) |
98 |
(values |
(values |
99 |
(typep obj 'struct-include-04a) |
(typep* obj 'struct-include-04a) |
100 |
(typep obj 'struct-include-04b) |
(typep* obj 'struct-include-04b) |
101 |
(struct-include-04a-a obj) |
(struct-include-04a-a obj) |
102 |
(struct-include-04b-a obj))) |
(struct-include-04b-a obj))) |
103 |
t t 0 0) |
t t 0 0) |
105 |
(deftest struct-include.7 |
(deftest struct-include.7 |
106 |
(let ((obj (make-struct-include-04b :a 1 :b 2))) |
(let ((obj (make-struct-include-04b :a 1 :b 2))) |
107 |
(values |
(values |
108 |
(typep obj 'struct-include-04a) |
(typep* obj 'struct-include-04a) |
109 |
(typep obj 'struct-include-04b) |
(typep* obj 'struct-include-04b) |
110 |
(struct-include-04a-a obj) |
(struct-include-04a-a obj) |
111 |
(struct-include-04b-a obj) |
(struct-include-04b-a obj) |
112 |
(struct-include-04a-b obj) |
(struct-include-04a-b obj) |