Change both records and named structures to store default values as
authorChris Hanson <org/chris-hanson/cph>
Tue, 11 Mar 2003 05:01:21 +0000 (05:01 +0000)
committerChris Hanson <org/chris-hanson/cph>
Tue, 11 Mar 2003 05:01:21 +0000 (05:01 +0000)
commit9467d399dc2e3a46183b2f99ba005f88f772d183
tree84fe804418ae70cede29208501cec62c9ee3bf92
parenta8b2424c0254929aa917bb29911d253eb13eb91c
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/edwin/clscon.scm
v7/src/runtime/defstr.scm
v7/src/runtime/random.scm
v7/src/runtime/runtime.pkg