github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-14 10:57:52 +00:00
Code Issues Projects Releases Wiki Activity

Bug in DUMPDB: Used FL in a PROG before it was bound

Browse Source
This commit is contained in:
rmkaplan
2026-05-12 12:46:54 -07:00
parent 26bba9e432
commit 683ee45f57
2 changed files with 11 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
library/DATABASEFNS
View File

@@ -1,19 +1,14 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "11-May-2026 14:41:08" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;3 19373
(FILECREATED "12-May-2026 12:45:18" {MEDLEY}<library>DATABASEFNS.;13 19361
:EDIT-BY "mth"
:EDIT-BY rmk
:CHANGES-TO (FNS DUMPDB DBFILE LOADDB MAKEDB)
:CHANGES-TO (FNS DUMPDB MAKEDB)
:PREVIOUS-DATE " 2-May-2026 17:38:46" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;1
)
:PREVIOUS-DATE "11-May-2026 14:41:08" {MEDLEY}<library>DATABASEFNS.;11)
(* ; "
Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
")
(PRETTYCOMPRINT DATABASEFNSCOMS)
(RPAQQ DATABASEFNSCOMS
@@ -166,7 +161,8 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
(DEFINEQ
(DUMPDB
[LAMBDA (FILE PROPFLG) (* ; "Edited 11-May-2026 14:41 by mth")
[LAMBDA (FILE PROPFLG) (* ; "Edited 12-May-2026 12:45 by rmk")
(* ; "Edited 11-May-2026 14:41 by mth")
(* ; "Edited 8-May-2026 16:18 by mth")
(* ; "Edited 2-May-2026 17:32 by mth")
(* ; "Edited 29-Apr-2026 17:42 by mth")
@@ -191,7 +187,7 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
(SAVEDDEFAULTCOPYRIGHTOWNER DEFAULTCOPYRIGHTOWNER))
(CL:UNWIND-PROTECT
(PROG (DBFILE DBFN DBROOTFN FLCPR (FL (ROOTFILENAME FILE))
(FNS (FILEFNSLST FL)))
(FNS (FILEFNSLST FILE)))
(SETQ DBFN (PACKFILENAME 'EXTENSION 'DATABASE 'VERSION NIL 'BODY FILE))
(SETQ DBROOTFN (ROOTFILENAME DBFN))
(CL:UNLESS (OR (EQ COPYRIGHTFLG 'NEVER)
@@ -337,6 +333,7 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
(MAKEDB
[LAMBDA (F) (* DECLARATIONS%: UNDOABLE)
(* ; "Edited 12-May-2026 12:37 by rmk")
(* ; "Edited 11-May-2026 14:38 by mth")
(* rmk%: " 9-NOV-83 02:56")
(DECLARE (GLOBALVARS SAVEDBFLG MSFILETABLE DWIMWAIT))
@@ -388,9 +385,8 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
(RESETSAVE DWIMIFYCOMPFLG T)
)
(PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024 2026))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1804 6952 (DBFILE 1814 . 3582) (DBFILE1 3584 . 5094) (DBFILE2 5096 . 6318) (LOAD 6320
. 6550) (LOADFROM 6552 . 6740) (MAKEFILE 6742 . 6950)) (7008 18761 (DUMPDB 7018 . 12505) (LOADDB
12507 . 17578) (MAKEDB 17580 . 18759)))))
(FILEMAP (NIL (1666 6814 (DBFILE 1676 . 3444) (DBFILE1 3446 . 4956) (DBFILE2 4958 . 6180) (LOAD 6182
. 6412) (LOADFROM 6414 . 6602) (MAKEFILE 6604 . 6812)) (6870 18839 (DUMPDB 6880 . 12478) (LOADDB
12480 . 17551) (MAKEDB 17553 . 18837)))))
STOP

BIN
library/DATABASEFNS.LCOM
View File

Binary file not shown.