From 479de8701148070c237b3d774602e3a609e07502 Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Sat, 15 Jan 2022 15:59:36 -0800
Subject: [PATCH] set MAKESYSNAME to MEDLEY: (e.g., as used by LOOPS)

---
 sources/LOADUP-FULL      |  52 +++++++++++++++++++++------------------
 sources/LOADUP-FULL.LCOM | Bin 4194 -> 4158 bytes
 sources/LOADUP-LISP      |  31 ++++++++++++-----------
 sources/LOADUP-LISP.LCOM | Bin 3613 -> 3601 bytes
 4 files changed, 45 insertions(+), 38 deletions(-)

diff --git a/sources/LOADUP-FULL b/sources/LOADUP-FULL
index e512cf85..b9e62112 100644
--- a/sources/LOADUP-FULL
+++ b/sources/LOADUP-FULL
@@ -1,23 +1,26 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED "29-Apr-2021 22:31:24" {DSK}<Users>larry>medley>SOURCES>LOADUP-FULL.;2
 4691   
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-      changes to%:  (VARS LOADUP-FULLCOMS)
-                    (FNS LOADUP-FULL)
+
(FILECREATED "15-Jan-2022 15:49:06" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2
 4784   
 
-      previous date%: "26-Mar-2021 10:47:11" {DSK}<Users>larry>medley>SOURCES>LOADUP-FULL.;1)
+      :CHANGES-TO (FNS LOADUP-FULL)
+
+      :PREVIOUS-DATE "29-Apr-2021 22:31:24" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
 
 (RPAQQ LOADUP-FULLCOMS
 ((COMMANDS "cd" "pwd" "ls")
-                            (FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
-                            (P (FIXMETA))))
+                        (FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
+                        (P (FIXMETA))))
 
-(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
+(DEFCOMMAND "cd"
 (DIR)
+   (/CNDIR DIR))
 
-(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
+(DEFCOMMAND "pwd"
 ()
+   (DIRECTORYNAME T))
 
-(DEFCOMMAND "ls" (FIRST
 . REST) (DODIR (CONS FIRST REST)))
+(DEFCOMMAND "ls"
 (FIRST
 . REST)
+   (DODIR (CONS FIRST REST)))
 (DEFINEQ
 
 (LOADFULLFONTS

@@ -47,16 +50,18 @@
                (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL

-  [LAMBDA (DOIT)
                                        (* ; "Edited 29-Apr-2021 22:27 by rmk:")


-                                                          (* ; "Edited 14-May-2018 15:01 by kaplan")


-                                                            (* ; "Edited 28-Sep-2020 12:35 by rmk:")


-                                                            (* ; "Edited 21-Apr-2018 07:27 by rmk:")


+  [LAMBDA (DOIT)                                             (* ; "Edited 15-Jan-2022 15:48 by larry")

+                                                             (* ; "Edited 29-Apr-2021 22:27 by rmk:")

+                                                             (* ; 
+
                                                             "Edited 14-May-2018 15:01 by kaplan")

+                                                             (* ; "Edited 28-Sep-2020 12:35 by rmk:")

+                                                             (* ; "Edited 21-Apr-2018 07:27 by rmk:")

                                                              (* ; "Edited 23-Feb-94 15:04 by bvm")

     (PROGN (SETQ MEDLEYDIR)
            (CNDIR (MEDLEYDIR)))
     (MEDLEY-INIT-VARS)
     (SETQ MAKESYSFILENAME (MEDLEYDIR "tmp" "full.sysout" T))
-    (SETQ MAKESYSNAME (CONCAT "Medley from Interlisp.org of " (DATE)))
+    (SETQ MAKESYSNAME :MEDLEY)
     (DRIBBLE (MEDLEYDIR "tmp" "full.dribble" T))
 
     (* ;; "BKSYSBUF stops page holding ")

@@ -67,16 +72,16 @@
            (DIRECTORYNAME T)
            T T)
     (SETQ DEFAULTFILETYPE 'BINARY)                           (* ; 
-
                                      "These prevent bits from being lost due to lack of knowledge")

+
                                        "These prevent bits from being lost due to lack of knowledge")

     (DREMOVE (ASSOC NIL DEFAULTFILETYPELIST)
            DEFAULTFILETYPELIST)
     (push
 DEFAULTFILETYPELIST '(DRIBBLE . TEXT)
-           '(SH . TEXT)
-           '(TXT . TEXT)
-           '(TEXT . TEXT)
-           '(TEX . TEXT)
-           '(HTML . TEXT)
-           '(HTM . TEXT))
+          '(SH . TEXT)
+          '(TXT . TEXT)
+          '(TEXT . TEXT)
+          '(TEX . TEXT)
+          '(HTML . TEXT)
+          '(HTM . TEXT))
     (LOADUP '(POSTSCRIPTSTREAM))                             (* ; " to get PSCFONT.READFONT")

     (LOADFULLFONTS
)
     (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
@@ -100,6 +105,5 @@
 
 (FIXMETA
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (685 4653 (LOADFULLFONTS 695 . 2283) (LOADUP-FULL 2285 . 4407) (FIXMETA 4409 . 4651))))
-)
+  (FILEMAP (NIL (659 4746 (LOADFULLFONTS 669 . 2257) (LOADUP-FULL 2259 . 4500) (FIXMETA 4502 . 4744)))))
 STOP
diff --git a/sources/LOADUP-FULL.LCOM b/sources/LOADUP-FULL.LCOM
index ba7cef6f0f460de4fc235e536460373ab41b54d4..65abc8417fa88e0420f4f12f94572a6ceeec92f6 100644
GIT binary patch
delta 418
zcma)&zfOZt6o=E5!Nkoj&B;wPka!7Du;pq<5H1x<fbhp1;aW&27^p*IOrN3gQQUnP
zpTog+vJNJl&pF@ke7`UFgbUuLj_XtGxE{r>?*uRkO>1t>C?MBQXymzZh_<K0%Ud(1
zAWH(r@%v>fqGm#EK(dDKvj!`YqJXRsRVUKbHapvt?UEUF)^%%R$%>k-jlO;9a@HGO
zVA^Sjoz(NhYefJK$;uywG$q;u!DGkrcKKY@tbn}Cng#362{i4hteOQ>4WK;&K>s}!
zMG--ftyr<yVGk#=P85xd$4EHhe*~{~Jb$}6)&bPXR0U$)nf{E%I0=9U&hcY7P!)iL
Z5q)rjG{*L>x_4<X8vYyb@jZAt`2h*!b~OM1

delta 459
zcma)&%}Rt&7>1dxi-8tFtKs87pbJgKrnC@jJc8uU;L-Lro=R{=Icg*ka}CiIbPesh
zj@DgC+9HgC+J3x0&-cE<JMg@X9XG(D<9b+h11E%8ge^O^&O8jr4PqR5E?J_-o!zOx
z@q=v93u0_PJx}(wJX)3ODlcdT<pvPk+vNP=G^r`8%_3#2GuJdLXlIfzi58fcUTE3L
zQgjl}lTK6tIHc;LRWVVORRv_-(2fmFMsUgKS2De;SiNt+$P0Pj=F?!v25{P<0MgZE
z+rT(Zk|YFK+Vph4^&D#G$4j&Azu`ff>k6!H(#<ukp(%Spj=!)XG6r3QJ`sR-f^Sy=
nDn@VfvaLVydM8rnqM!CN91J@svY{Orih_XqYtfgt$<_1&+(U&|

diff --git a/sources/LOADUP-LISP b/sources/LOADUP-LISP
index 59885445..ca92ee1c 100644
--- a/sources/LOADUP-LISP
+++ b/sources/LOADUP-LISP
@@ -1,27 +1,30 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
-
(FILECREATED "21-Aug-2021 18:03:35" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2|
 4983   
 
-      |changes| |to:|  (VARS LOADUP-LISPCOMS)
+
(FILECREATED "15-Jan-2022 15:47:28" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2|
 5105   
 
-      |previous| |date:| " 1-Aug-2021 13:16:06" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
+      :CHANGES-TO (FNS LOADUP-LISP)
+
+      :PREVIOUS-DATE "21-Aug-2021 18:03:35" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
 
 (RPAQQ LOADUP-LISPCOMS
 ((FNS LOADUP-LISP)
-                            (INITVARS (FILING.ENUMERATION.DEPTH 1))
-                            (FILES MEDLEYDIR)
-                            (GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR 
-                                   SYSTEMINITVARS USERRECLST)))
+                        (INITVARS (FILING.ENUMERATION.DEPTH 1))
+                        (FILES MEDLEYDIR)
+                        (GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR 
+                               SYSTEMINITVARS USERRECLST)))
 (DEFINEQ
 
 (LOADUP-LISP

-  (LAMBDA NIL
                                          (* \; "Edited 29-Apr-2021 22:30 by rmk:")

+  (LAMBDA NIL                                                (* \; 
+
                                                             "Edited 15-Jan-2022 15:47 by larry")

+                                                             (* \; "Edited 29-Apr-2021 22:30 by rmk:")

     (SETQQ COMPILE.EXT LCOM)                                 (* \; "should be set earlier")

-    (DRIBBLE (MEDLEYDIR
 "tmp" "lisp.dribble" T))
+    (DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
     (FOR
 X IN
 BOOTLOADEDFILES DO
 (CL:UNLESS (MEMB X SYSFILES)
-                                                 (PRINTOUT T X " bootloaded" T)
-                                                 (SETQ SYSFILES (CONS X SYSFILES))))
+                                     (PRINTOUT T X " bootloaded" T)
+                                     (SETQ SYSFILES (CONS X SYSFILES))))
     (SETQ BOOTLOADEDFILES NIL)
     (IF
 (NOT (BOUNDP 'DIRECTORIES))
         THEN
 (SETQ DIRECTORIES LOADUPDIRECTORIES))
@@ -87,7 +90,7 @@
     (LOADUP '(TIME))
     (LOADUP '(BRKDWN))
     (LOADUP '(XCL-EXTRAS))                                   (* 
-
                                                           "CMLPACKAGE pushes onto INSPECTMACROS")

+
                                                             "CMLPACKAGE pushes onto INSPECTMACROS")

     (LOADUP '(CMLPACKAGE))
 
     (* |;;| "Puts ARGNAME properties on CL and XCL functions that IL:SMARTARGLIST can't hack. Keep this last so everything will be defined when it runs")

@@ -101,7 +104,7 @@
     (LOADUP '(PUP 10MBDRIVER LEAF LLETHER DPUPFTP LOCALFILE DSKDISPLAY COURIER LLNS TRSERVER SPP 
                   NSPRINT AUTHENTICATION BSP CLEARINGHOUSE NSFILING MAIKOETHER))
     (DRIBBLE)
-    (SETQ MAKESYSNAME ':LISP)))
+    (SETQ MAKESYSNAME :MEDLEY)))
 )
 
 (RPAQ? FILING.ENUMERATION.DEPTH
 1)
@@ -112,5 +115,5 @@
 (GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (671 4761 (LOADUP-LISP 681 . 4759)))))
+  (FILEMAP (NIL (642 4883 (LOADUP-LISP 652 . 4881)))))
 STOP
diff --git a/sources/LOADUP-LISP.LCOM b/sources/LOADUP-LISP.LCOM
index aa1d1d5f5a8ac2922a1b94e46e7f780b0c1dca50..055a12c5bb72386c5a5577645debd30257fbb32a 100644
GIT binary patch
delta 222
zcmbO$Gf`%OlM<JPo2QSfbC9cJh^vc&lA)=tS7M&7k%5tsf}yFEiMf^0#AJ67Ln9Pn
z0}Crt^NITm!W1kK;(B^|N(wb8i6yBiH40ox$Wn%uRz{{)#>PsTgsrnsQkZ;}QP0$<
zM#0q3z*ND?*~8J#-8EP@#9slZ+b>wb$KTN<G(gwKGdMs~!73ogHO$jLG+5UK=!3~R
Mj1rsAFb47f0PgTNRsaA1

delta 252
zcmbOzGgoGUlcI*3r;n?1kgH>etBZn?k)f_*X}YeFfsvttp@o%!v6b<}6n7CL1B9@V
zp_MUE#$w`rgD_-qJv}`og_@MalGKzM1ui9IDTo$BV<k;4g4UTTDNH`ds25>WqhMlb
zVXRP-oROH9o>~kvv!*29szyO0%rPif!N=dxB{V?S$1^y<+21!<Q=z7yD77pzzZ9qt
Z><FMrB?V;P7+V>dSs9pZ-p3fs0{{peLlgi2