292 |
|
|
293 |
(defstruct-with-tests (struct-test-53 (:type vector) |
(defstruct-with-tests (struct-test-53 (:type vector) |
294 |
(:initial-offset 5)) |
(:initial-offset 5)) |
295 |
|
"This is struct-test-53" |
296 |
a53 b53) |
a53 b53) |
297 |
|
|
298 |
(deftest structure-53-1 |
(deftest structure-53-1 |
303 |
(defstruct-with-tests (struct-test-54 (:type vector) |
(defstruct-with-tests (struct-test-54 (:type vector) |
304 |
(:initial-offset 2) |
(:initial-offset 2) |
305 |
(:include struct-test-53)) |
(:include struct-test-53)) |
306 |
|
"This is struct-test-54" |
307 |
a54 b54) |
a54 b54) |
308 |
|
|
309 |
(deftest structure-54-1 |
(deftest structure-54-1 |
335 |
(defstruct-with-tests (struct-test-57 (:include struct-test-22)) |
(defstruct-with-tests (struct-test-57 (:include struct-test-22)) |
336 |
c57 d57) |
c57 d57) |
337 |
|
|
338 |
|
(defstruct-with-tests struct-test-58 |
339 |
|
"This is struct-test-58" a-58 b-58) |
340 |
|
|
341 |
|
(defstruct-with-tests (struct-test-59 (:include struct-test-58)) |
342 |
|
"This is struct-test-59" a-59 b-59) |
|
;;;; Tests of error cases |
|
|
|
|