- ;; FIXME: :EXPECTED-TYPE should be something
- ;; comprehensible to the user, not this. Perhaps we
- ;; could work backwards from the LAYOUT-CLASS slot to
- ;; find something. (Note that all four SIMPLE-TYPE-ERROR
- ;; calls in this section have the same disease.)
- :expected-type '(satisfies structure-test)