Added NONE in addition to NEVER as DEFAULTDATABASECOPYRIGHTOWNER to preset to (NONE).

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.

library/DATABASEFNS

@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 6-Feb-2024 20:46:33" {DSK}<mnt>e>Interlisp>medley>library>DATABASEFNS.;4
 16903  
+
(FILECREATED " 6-Feb-2024 21:23:34" {DSK}<mnt>e>Interlisp>medley>library>DATABASEFNS.;6
 16912  
 
       :EDIT-BY "mth"
 
@@ -165,7 +165,7 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
 (DEFINEQ
 
 (DUMPDB

-  [LAMBDA (FILE PROPFLG)
                                     (* ; "Edited  6-Feb-2024 20:46 by mth")


+  [LAMBDA (FILE PROPFLG)
                                     (* ; "Edited  6-Feb-2024 21:23 by mth")


                                                            (* ; "Edited 27-Oct-2021 10:51 by larry")


                                                             (* ; "Edited 24-Oct-2021 16:24 by rmk:")

 
@@ -174,7 +174,7 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
     (* ;; "The FILE check is because MAKEFILE returns a list when it doesn't understand the options")

 
     (DECLARE
 (GLOBALVARS MSFILETABLE SAVEDBFLG)
-           (USEDFREE DEFAULTDATABASECOPYRIGHTOWNER COPYRIGHTFLG DEFAULTCOPYRIGHTOWNER))
+           (SPECVARS DEFAULTDATABASECOPYRIGHTOWNER COPYRIGHTFLG DEFAULTCOPYRIGHTOWNER))
     (CL:WHEN (AND FILE (OR (LITATOM FILE)
                            (STRINGP FILE)))
         (PROG (DBFILE
 DBFN DBCPR (FL (NAMEFIELD FILE))
@@ -185,7 +185,7 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
               [COND
                  ([NULL (SETQ DBCPR (GETPROP DBFN 'COPYRIGHT]
                   (COND
-                     [(EQ DEFAULTDATABASECOPYRIGHTOWNER 'NEVER)
+                     [(MEMQ DEFAULTDATABASECOPYRIGHTOWNER '(NONE NEVER))
                       (/PUT DBFN 'COPYRIGHT (LIST 'NONE]
                      (DEFAULTDATABASECOPYRIGHTOWNER (SETQ COPYRIGHTFLG 'DEFAULT)
                             (SETQ DEFAULTCOPYRIGHTOWNER DEFAULTDATABASECOPYRIGHTOWNER]
@@ -355,6 +355,6 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
 (PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL (1802 6827 (DBFILE 1812 . 3457) (DBFILE1 3459 . 4969) (DBFILE2 4971 . 6193) (LOAD 6195
- . 6425) (LOADFROM 6427 . 6615) (MAKEFILE 6617 . 6825)) (6883 16302 (DUMPDB 6893 . 10337) (LOADDB 
-10339 . 15214) (MAKEDB 15216 . 16300)))))
+ . 6425) (LOADFROM 6427 . 6615) (MAKEFILE 6617 . 6825)) (6883 16311 (DUMPDB 6893 . 10346) (LOADDB 
+10348 . 15223) (MAKEDB 15225 . 16309)))))
 STOP