175 |
(b29 'xx :read-only 1) |
(b29 'xx :read-only 1) |
176 |
c29) |
c29) |
177 |
|
|
178 |
|
(defstruct-with-tests struct-test-30 #:a30 #:b30) |
179 |
|
(defstruct-with-tests #:struct-test-31 a31 b31) |
180 |
|
|
181 |
|
(defpackage struct-test-package (:use)) |
182 |
|
|
183 |
|
(defstruct-with-tests struct-test-32 |
184 |
|
struct-test-package::a32 struct-test-package::b32) |
185 |
|
|
186 |
|
;;; If the :conc-name option is given no argument or |
187 |
|
;;; a nil argument, the accessor names are the same as |
188 |
|
;;; slot names. Note that this is different from prepending |
189 |
|
;;; an empty string, since that may get you a name in |
190 |
|
;;; a different package. |
191 |
|
|
192 |
|
(defstruct-with-tests (struct-test-33 (:conc-name)) |
193 |
|
struct-test-package::a33 struct-test-package::b33) |
194 |
|
(defstruct-with-tests (struct-test-34 :conc-name) |
195 |
|
struct-test-package::a34 struct-test-package::b34) |
196 |
|
(defstruct-with-tests (struct-test-35 (:conc-name nil)) |
197 |
|
struct-test-package::a35 struct-test-package::b35) |
198 |
|
|
199 |
|
(defstruct-with-tests (struct-test-36 (:conc-name "")) |
200 |
|
struct-test-package::st36-a36 struct-test-package::st26-b36) |
201 |
|
|
202 |
|
;;; List structures |
203 |
|
|
204 |
|
(defstruct-with-tests (struct-test-37 (:type list)) a37 b37 c37) |
205 |
|
(defstruct-with-tests (struct-test-38 (:type list) :named) a38 b38 c38) |
206 |
|
(defstruct-with-tests (struct-test-39 (:predicate nil) |
207 |
|
(:type list) :named) |
208 |
|
a39 b39 c39) |
209 |
|
|
210 |
|
|
211 |
|
|
212 |
|
|
213 |
|
|