199 |
(defstruct-with-tests (struct-test-36 (:conc-name "")) |
(defstruct-with-tests (struct-test-36 (:conc-name "")) |
200 |
struct-test-package::st36-a36 struct-test-package::st26-b36) |
struct-test-package::st36-a36 struct-test-package::st26-b36) |
201 |
|
|
202 |
;;; List structures |
;;; List and vector structures |
203 |
|
|
204 |
(defstruct-with-tests (struct-test-37 (:type list)) a37 b37 c37) |
(defstruct-with-tests (struct-test-37 (:type list)) a37 b37 c37) |
205 |
(defstruct-with-tests (struct-test-38 (:type list) :named) a38 b38 c38) |
(defstruct-with-tests (struct-test-38 (:type list) :named) a38 b38 c38) |
207 |
(:type list) :named) |
(:type list) :named) |
208 |
a39 b39 c39) |
a39 b39 c39) |
209 |
|
|
|
;;; Vector structures |
|
|
|
|
210 |
(defstruct-with-tests (struct-test-40 (:type vector)) a40 b40) |
(defstruct-with-tests (struct-test-40 (:type vector)) a40 b40) |
211 |
(defstruct-with-tests (struct-test-41 (:type vector) :named) a41 b41) |
(defstruct-with-tests (struct-test-41 (:type vector) :named) a41 b41) |
212 |
(defstruct-with-tests (struct-test-42 (:type (vector t))) a42 b42) |
(defstruct-with-tests (struct-test-42 (:type (vector t))) a42 b42) |
213 |
(defstruct-with-tests (struct-test-43 (:type (vector t)) :named) a43 b43) |
(defstruct-with-tests (struct-test-43 (:type (vector t)) :named) a43 b43) |
214 |
|
|
215 |
|
(defstruct-with-tests (struct-test-44 (:type list)) |
216 |
|
(a44 0 :type integer) |
217 |
|
(b44 'a :type symbol)) |