From a2fdebbfa0310b0feb7eed2a952f789dc31778e9 Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Fri, 6 Aug 2021 07:41:06 -0700
Subject: [PATCH] Update SYSEDIT to load exports.all when running run-medley
 -new

---
 library/SYSEDIT      | 18 +++++++-----------
 library/SYSEDIT.LCOM | 21 ++++++++++++++++++++-
 2 files changed, 27 insertions(+), 12 deletions(-)

diff --git a/library/SYSEDIT b/library/SYSEDIT
index 0973fee7..edb7fe41 100644
--- a/library/SYSEDIT
+++ b/library/SYSEDIT
@@ -1,9 +1,9 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED " 6-May-2021 16:22:01" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;6
 1312   
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
+
(FILECREATED " 6-Aug-2021 07:35:16" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;2
 1183   
 
       changes to%:  (VARS SYSEDITCOMS)
 
-      previous date%: "12-Jun-90 15:31:15" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;1)
+      previous date%: " 6-May-2021 16:22:01" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;1)
 
 
 (* ; "
@@ -20,10 +20,8 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
               (GLOBALVARFLG T)
               (CLISPIFTRANFLG T)
               (CROSSCOMPILING 'ASK))
-        (P (RESETVARS ((CROSSCOMPILING T)
-                       (DIRECTORIES DIRECTORIES))
-                  (FILESLOAD (SOURCE)
-                         EXPORTS.ALL])
+        (P (RESETVARS ((CROSSCOMPILING T))
+                  (LOAD? 'EXPORTS.ALL])
 
 (RPAQQ CLISPIFYPRETTYFLG
 NIL)
 
@@ -39,10 +37,8 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
 
 (RPAQQ CROSSCOMPILING
 ASK)
 
-(RESETVARS ((CROSSCOMPILING T)
-            (DIRECTORIES DIRECTORIES))
-           (FILESLOAD (SOURCE)
-                  EXPORTS.ALL))
+(RESETVARS ((CROSSCOMPILING T))
+           (LOAD? 'EXPORTS.ALL))
 (PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990 2021))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL)))
diff --git a/library/SYSEDIT.LCOM b/library/SYSEDIT.LCOM
index e1961238..67bd977e 100644
--- a/library/SYSEDIT.LCOM
+++ b/library/SYSEDIT.LCOM
@@ -1 +1,20 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "21-Jan-93 17:16:24" ("compiled on " {DSK}<python>lde>lispcore>library>SYSEDIT.;1) 
" 7-Oct-92 12:15:13" bcompl'd in "Medley  7-Oct-92 ..." dated " 7-Oct-92 15:18:52")
(FILECREATED "12-Jun-90 15:31:15" {DSK}<usr>local>lde>lispcore>library>SYSEDIT.;2 1411 changes to%: (
VARS SYSEDITCOMS) previous date%: " 9-Mar-87 10:53:12" {DSK}<usr>local>lde>lispcore>library>SYSEDIT.;1
)
(PRETTYCOMPRINT SYSEDITCOMS)
(RPAQQ SYSEDITCOMS ((VARS (CLISPIFYPRETTYFLG) (MSRECORDTRANFLG T) (MSMACROPROPS COMPILERMACROPROPS) (
RECOMPILEDEFAULT (QUOTE CHANGES)) (CLEANUPOPTIONS (QUOTE (RC F))) (GLOBALVARFLG T) (CLISPIFTRANFLG T) 
(CROSSCOMPILING (QUOTE ASK))) (P (RESETVARS ((CROSSCOMPILING T) (DIRECTORIES DIRECTORIES)) (FILESLOAD 
(SOURCE) EXPORTS.ALL)))))
(RPAQQ CLISPIFYPRETTYFLG NIL)
(RPAQQ MSRECORDTRANFLG T)
(RPAQ MSMACROPROPS COMPILERMACROPROPS)
(RPAQQ RECOMPILEDEFAULT CHANGES)
(RPAQQ CLEANUPOPTIONS (RC F))
(RPAQQ GLOBALVARFLG T)
(RPAQQ CLISPIFTRANFLG T)
(RPAQQ CROSSCOMPILING ASK)
(RESETVARS ((CROSSCOMPILING T) (DIRECTORIES DIRECTORIES)) (FILESLOAD (SOURCE) EXPORTS.ALL))
(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990))
NIL
\ No newline at end of file
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
+(FILECREATED " 6-Aug-2021 07:36:12" ("compiled on " {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;2) 
+" 6-Aug-2021 07:14:33" bcompl'd in "FULL  5-Aug-2021 ..." dated " 5-Aug-2021 22:24:43")
+(FILECREATED " 6-Aug-2021 07:35:16" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;2 1183 changes to%:
+ (VARS SYSEDITCOMS) previous date%: " 6-May-2021 16:22:01" 
+{DSK}<home>larry>ilisp>medley>library>SYSEDIT.;1)
+(PRETTYCOMPRINT SYSEDITCOMS)
+(RPAQQ SYSEDITCOMS ((VARS (CLISPIFYPRETTYFLG) (MSRECORDTRANFLG T) (RECOMPILEDEFAULT (QUOTE CHANGES)) (
+CLEANUPOPTIONS (QUOTE (RC F))) (GLOBALVARFLG T) (CLISPIFTRANFLG T) (CROSSCOMPILING (QUOTE ASK))) (P (
+RESETVARS ((CROSSCOMPILING T)) (LOAD? (QUOTE EXPORTS.ALL))))))
+(RPAQQ CLISPIFYPRETTYFLG NIL)
+(RPAQQ MSRECORDTRANFLG T)
+(RPAQQ RECOMPILEDEFAULT CHANGES)
+(RPAQQ CLEANUPOPTIONS (RC F))
+(RPAQQ GLOBALVARFLG T)
+(RPAQQ CLISPIFTRANFLG T)
+(RPAQQ CROSSCOMPILING ASK)
+(RESETVARS ((CROSSCOMPILING T)) (LOAD? (QUOTE EXPORTS.ALL)))
+(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990 2021))
+NIL