Change both records and named structures to store default values as
authorChris Hanson <org/chris-hanson/cph>
Wed, 12 Mar 2003 20:41:42 +0000 (20:41 +0000)
committerChris Hanson <org/chris-hanson/cph>
Wed, 12 Mar 2003 20:41:42 +0000 (20:41 +0000)
commit5f02fcc94500268fa8d5159c945b0d0bd0db10e3
treed0e8e4b57be7336082ab2b439970edbfe81e452f
parentba4c153fd98a97fc3e6236de2bc3dfada23271f4
Change both records and named structures to store default values as
thunks in the type structure, which are then called when needed.

Introduce new procedures to get the default value for a slot, given
the type descriptor, and use them as needed in DEFINE-STRUCTURE,
rather than just inserting the default-init expression.

Put back the UNPARSER-METHOD argument to MAKE-RECORD-TYPE, and use it
in DEFINE-STRUCTURE.

Once again, use RECORD-KEYWORD-CONSTRUCTOR in DEFINE-STRUCTURE, this
time with better results.
v7/src/runtime/record.scm