If COPYRIGHTFLG is NEVER
or DEFAULTDATABASECOPYRIGHTOWNER is NIL
or the .DATABASE file already has a COPYRIGHT property
Then
No need to do anything special (it already shouldn't ask)
Else If DEFAULTDATABASECOPYRIGHTOWNER
is NONE or NEVER Then Set the COPYRIGHT to NONE (I.e., never mention it again.)
is SAME Then Same as the source file. If it doesn't have one, then just normal handling
is DEFAULT Then Use the general default for copyright: DEFAULTCOPYRIGHTOWNER
Otherwise: Enable the general copyright defaulting.
Hopefully, DEFAULTDATABASECOPYRIGHTOWNER is one of the COPYRIGHTOWNERS keys.
The change from USEDFREE to SPECVARS may be irrelevant.
I thought that was the issue when using NONE as DEFAULTDATABASECOPYRIGHTOWNER didn't do as expected.
The DEFAULTCOPYRIGHTOWNER must be one of the "real" entry keys on COPYRIGHTOWNERS.
I added DEFAULTDATABASECOPYRIGHTOWNER (INITVARS to NIL; to preserve current behavior).
If it is EQ to NEVER, then the COPYRIGHT property on the file.DATABASE is set to (NONE) to forever suppress asking about copyright.
If any other non-NIL value, then COPYRIGHTFLG is bound to 'DEFAULT, and DEFAULTCOPYRIGHTOWNER is bound to the value of DEFAULTDATABASECOPYRIGHTOWNER.
* IOCHAR: Fix daylight savings time
* TMAX: Y2K fix
Also a little code cleanup, changing default font to TERMINAL from GACHA and making text more legible
* DATABASEFNS, ATBL: DUMPDB with DEFINE-FILE-INFO
New database files will have standard headers, then a little special stuff for LOADDB to synchronize, old database files default to a new interlisp environment.
MAKE-READER-ENVIRONMENT in ATBL extended for easier specification, plus better type-testing.
* Remove duplicate comment
