1
0
mirror of synced 2026-01-26 12:21:52 +00:00

Change the default value for DEFAULTDATABASECOPYRIGHTOWNER to 'NEVER.

This is so dumping the database never asks about copyright. Copyright on these database files is pretty nonsensical.
This commit is contained in:
Matt Heffron
2024-02-19 16:34:26 -08:00
parent 4dec18527e
commit 60e390789c
2 changed files with 8 additions and 8 deletions

View File

@@ -1,11 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 7-Feb-2024 18:26:12" {DSK}<mnt>e>Interlisp>medley>library>DATABASEFNS.;13 17643
(FILECREATED "19-Feb-2024 16:29:44" {LIB}DATABASEFNS.;15 17624
:EDIT-BY "mth"
:CHANGES-TO (FNS DUMPDB)
(VARS DATABASEFNSCOMS)
:CHANGES-TO (VARS DATABASEFNSCOMS)
(FNS DUMPDB)
:PREVIOUS-DATE "27-Oct-2021 10:55:18" {DSK}<mnt>e>Interlisp>medley>library>DATABASEFNS.;1)
@@ -35,7 +35,7 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
(SAVEDBFLG 'ASK))
(ADDVARS (MAKEFILEFORMS (MAKEDB FILE)))
(INITVARS (MSFILETABLE)
(DEFAULTDATABASECOPYRIGHTOWNER))
(DEFAULTDATABASECOPYRIGHTOWNER 'NEVER))
(* ; "To permit MSHASH interface")
(LOCALVARS . T)
(BLOCKS (LOADDB LOADDB DBFILE DBFILE1 DBFILE2 (NOLINKFNS . T)))
@@ -350,7 +350,7 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
(RPAQ? MSFILETABLE )
(RPAQ? DEFAULTDATABASECOPYRIGHTOWNER )
(RPAQ? DEFAULTDATABASECOPYRIGHTOWNER 'NEVER)
@@ -370,7 +370,7 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
)
(PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1803 6828 (DBFILE 1813 . 3458) (DBFILE1 3460 . 4970) (DBFILE2 4972 . 6194) (LOAD 6196
. 6426) (LOADFROM 6428 . 6616) (MAKEFILE 6618 . 6826)) (6884 17042 (DUMPDB 6894 . 11077) (LOADDB
11079 . 15954) (MAKEDB 15956 . 17040)))))
(FILEMAP (NIL (1778 6803 (DBFILE 1788 . 3433) (DBFILE1 3435 . 4945) (DBFILE2 4947 . 6169) (LOAD 6171
. 6401) (LOADFROM 6403 . 6591) (MAKEFILE 6593 . 6801)) (6859 17017 (DUMPDB 6869 . 11052) (LOADDB
11054 . 15929) (MAKEDB 15931 . 17015)))))
STOP

Binary file not shown.