138 |
(defstruct-with-tests (struct-test-12 (:conc-name BLAH-)) a12 b12) |
(defstruct-with-tests (struct-test-12 (:conc-name BLAH-)) a12 b12) |
139 |
(defstruct-with-tests (struct-test-13 (:conc-name #\X)) foo-a13 foo-b13) |
(defstruct-with-tests (struct-test-13 (:conc-name #\X)) foo-a13 foo-b13) |
140 |
|
|
141 |
;;; More to come |
(defstruct-with-tests (struct-test-14 (:predicate)) a14 b14) |
142 |
|
(defstruct-with-tests (struct-test-15 (:predicate nil)) a15 b15) |
143 |
|
(defstruct-with-tests (struct-test-16 :predicate) a16 b16) |
144 |
|
(defstruct-with-tests (struct-test-17 |
145 |
|
(:predicate struct-test-17-alternate-pred)) |
146 |
|
a17 b17) |
147 |
|
|
148 |
|
(defstruct-with-tests (struct-test-18 :copier) a18 b18) |
149 |
|
(defstruct-with-tests (struct-test-19 (:copier)) a19 b19) |
150 |
|
(defstruct-with-tests (struct-test-20 (:copier nil)) a20 b20) |
151 |
|
(defstruct-with-tests (struct-test-21 (:copier struct-test-21-alt-copier)) |
152 |
|
a21 b21) |
153 |
|
|
154 |
|
|