From 88464efcd84ef6160bb0dedfd8be1d07a21d2d23 Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Sat, 5 Dec 2020 20:46:06 -0800
Subject: [PATCH] still not getting sync between loadup and after loadup

---
 greetfiles/SIMPLE-INIT         |   2 +-
 makesysout/MAKEFULLSYSOUT      |   2 +-
 makesysout/MAKEFULLSYSOUT.LCOM | Bin 5863 -> 5857 bytes
 makesysout/SYNCLISPFILES       |   2 +-
 makesysout/SYNCLISPFILES.LCOM  | Bin 9278 -> 9597 bytes
 5 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/greetfiles/SIMPLE-INIT b/greetfiles/SIMPLE-INIT
index 7313faec..d949602f 100644
--- a/greetfiles/SIMPLE-INIT
+++ b/greetfiles/SIMPLE-INIT
@@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED " 5-Dec-2020 14:04:33" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;4
 1102   

      changes to%:  (VARS SIMPLE-INITCOMS)

      previous date%: "27-Nov-2020 13:01:11" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;3
)


(PRETTYCOMPRINT SIMPLE-INITCOMS)

(RPAQQ SIMPLE-INITCOMS

       (

(* ;;; " Previous content moved into SYNCLISPFILES")


        (VARS)
        [VARS [LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                                (UNIX-GETENV "HOME"]
              (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
                                (,LOGINHOST/DIR "INIT"]
        (P (MEDLEY-INIT-VARS))))



(* ;;; " Previous content moved into SYNCLISPFILES")



(RPAQ LOGINHOST/DIR
 (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                           (UNIX-GETENV "HOME"))))

(RPAQ USERGREETFILES
 `((,LOGINHOST/DIR "INIT" COM)
                           (,LOGINHOST/DIR "INIT")))

(MEDLEY-INIT-VARS)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP
\ No newline at end of file
+(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED " 5-Dec-2020 20:01:16" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;5
 1047   

      changes to%:  (VARS SIMPLE-INITCOMS)

      previous date%: " 5-Dec-2020 14:04:33" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;4
)


(PRETTYCOMPRINT SIMPLE-INITCOMS)

(RPAQQ SIMPLE-INITCOMS

       (

(* ;;; " Previous content moved into SYNCLISPFILES")


        [VARS [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                           (UNIX-GETENV "HOME"]
              (USERGREETFILES `((,LOGINDIR "INIT" COM)
                                (,LOGINDIR "INIT"]
        (P (MEDLEY-INIT-VARS))))



(* ;;; " Previous content moved into SYNCLISPFILES")



(RPAQ LOGINDIR
 (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                      (UNIX-GETENV "HOME"))))

(RPAQ USERGREETFILES
 `((,LOGINDIR "INIT" COM)
                           (,LOGINDIR "INIT")))

(MEDLEY-INIT-VARS)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP
\ No newline at end of file
diff --git a/makesysout/MAKEFULLSYSOUT b/makesysout/MAKEFULLSYSOUT
index 3d27a25a..6ab0dac0 100644
--- a/makesysout/MAKEFULLSYSOUT
+++ b/makesysout/MAKEFULLSYSOUT
@@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED " 5-Dec-2020 16:15:10" {DSK}<home>larry>ilisp>medley>makesysout>MAKEFULLSYSOUT.;6
 8049   

      changes to%:  (FNS MAKEFULLSYSOUT)

      previous date%: " 5-Dec-2020 15:24:00" 
{DSK}<home>larry>ilisp>medley>makesysout>MAKEFULLSYSOUT.;5)


(PRETTYCOMPRINT MAKEFULLSYSOUTCOMS)

(RPAQQ MAKEFULLSYSOUTCOMS

       ((COMMANDS "cd" "pwd" "ls")
        (FNS LOADFULLFONTS MAKEFULLSYSOUT FIXMETA)
        (P (FIXMETA))
        (VARS (WRITEFULLSYSOUTFLAG T))
        (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS)
        (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (MAKEFULLSYSOUT)))
        (PROP FILETYPE MAKEFULLSYSOUT)))

(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))

(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))

(DEFCOMMAND "ls" (FIRST
 . REST) (DODIR (CONS FIRST REST)))
(DEFINEQ

(LOADFULLFONTS

  [LAMBDA (ROOTDIRECTORY)                                    (* ; 

                                                           "Edited 11-Aug-2020 17:53 by rmk:")


    (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")


    (PRINTOUT T "Loading FULL fonts..." T)
    (SETQ DISPLAYFONTDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/fonts/displayfonts")
                                       (PACK* ROOTDIRECTORY "/fonts/altofonts")))
                                                             (* (SETQ INTERPRESSFONTDIRECTORIES

                                                           (CONS (PACK* ROOTDIRECTORY 

                                                           "/fonts/ipfonts"))))

    (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE))
    (SETQ POSTSCRIPTFONTDIRECTORIES (CONS (PACK* ROOTDIRECTORY "/fonts/postscriptfonts")))
    (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
    (RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL)
                (MISSINGCHARSETDISPLAYFONTCOERCIONS NIL))    (* ; 

                  "Don't let the font loader substitute just because a server went catatonic on us")

               (for
 FAMILY in
 '(CLASSIC MODERN TERMINAL)
                  do
 (PRINTOUT T "  Loading " FAMILY " ")
                        [for
 SIZE in
 '(8 10 12)
                           do
 (PRINTOUT T SIZE " ")
                                 (for
 FACE in
 '(MRR BRR MIR)
                                    do
 

                                          (* ;; "No need for Interpress")

                                                             (* (NLSETQ (FONTCREATE FAMILY SIZE 

                                                           FACE NIL (QUOTE INTERPRESS) NIL 0)))

                                          (for
 CSET
                                             in
 '(0 33 34 35 238 239 241)
                                             do
 (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL
                                                                   'DISPLAY NIL CSET]
                        (PRINTOUT T T))
               (PRINTOUT T "  Loading postscript fonts" T)
               (for
 F in
 (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
                                                ">c0>*.*")) do
 (PSCFONT.READFONT F))
               (PRINTOUT T "FULL fonts loaded" T])

(MAKEFULLSYSOUT

  [LAMBDA NIL
                                          (* ; "Edited  5-Dec-2020 16:12 by larry")

                                                             (* ; 

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

                                                             (* ; 

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

                                                             (* ; "Edited 17-Apr-2018 08:41 by ")

                                                             (* ; 

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

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

    (CLRPROMPT)
    (CNDIR (UNIX-GETENV "LOADUPDIR"))
    (LET ((ROOTDIRECTORY (DIRECTORYNAME T)))
         (SETQ MAKESYSFILENAME (CONCAT (MEDLEYDIR "loadups")
                                      "xfull35.sysout"))
         (DRIBBLE (PACKFILENAME 'EXTENSION 'DRIBBLE 'BODY MAKESYSFILENAME))

         (* ;; "BKSYSBUF stops page holding ")


         (PRINTOUT T T "Full loadup started at " (DATE)
                " while connected to "
                (DIRECTORYNAME T)
                T T)
         (BKSYSBUF " ")
         (SETQ DEFAULTFILETYPE 'BINARY)                      (* ; 

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

         (DREMOVE (ASSOC NIL DEFAULTFILETYPELIST)
                DEFAULTFILETYPELIST)                         (* (SETQ *UPPER-CASE-FILE-NAMES* NIL))

         (SETQ MAKESYSNAME :MEDLEY3.5)
         (push
 DEFAULTFILETYPELIST '(TXT . TEXT)
                '(TEXT . TEXT)
                '(TEX . TEXT)
                '(HTML . TEXT)
                '(HTM . TEXT))
         (MEDLEY-INIT-VARS)
         (SETQ LOADUPDIRECTORIES DIRECTORIES)
         (LOADUP '(POSTSCRIPTSTREAM))                        (* ; " to get PSCFONT.READFONT")

         (LOADFULLFONTS
 (MEDLEYDIR))
         (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
         (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
         (LOADUP '(CHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES GRAPHER SPY
                        WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE ISO8859IO
                        HELPSYS DINFO CLIPBOARD MACINTERFACE))
         (FILESLOAD (SYSLOAD)
                PRETTYFILEINDEX WHO-LINE)
         (SETQ *WHO-LINE-ANCHOR* '(:CENTER :TOP))

         (* ;; "Turn off who-line until after the user has greeted")


         (CL:WHEN (WINDOWP *WHO-LINE*)
                (CLOSEW *WHO-LINE*))
         [SETQ POSTGREETFORMS (APPEND POSTGREETFORMS '((INSTALL-WHO-LINE-OPTIONS]
         (FILESLOAD (SYSLOAD)
                UNIXCOMM UNIXCHAT UNIXTELNET)
         (FILESLOAD (SYSLOAD)
                SETDEFAULTPRINTER)
         (FILESLOAD (SYSLOAD)
                LOADPATCHES)
         (\DAYTIME0 \LASTUSERACTION)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 20)
         (for
 TYPE in
 FILEPKTYPES do
 (FILEPKGCHANGES TYPE NIL))
         (SETTOPVAL 'INITIALS NIL)
         (PROMPTPRINT "About to end loadup")
         (PRINTOUT T "About to end loadup" T)

         (* ;; "From SYNCLISPFILES")


         (ENDLOADUP)
         (COND
            ((WINDOWP LOGOW)
             (CLOSEW LOGOW)))
         (DREMOVE (ASSOC 'LOGOW AFTERMAKESYSFORMS)
                AFTERMAKESYSFORMS)
         (push
 AFTERMAKESYSFORMS '(CLRPROMPT)
                '(MEDLEY-INIT-VARS))

         (* ;; "Set up for making the sysout, if we made it this far.")


         (CL:WHEN WRITEFULLSYSOUTFLAG
             (PRINTOUT T "Creating FULL sysout on " MAKESYSFILENAME T)
             (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley " (MEDLEYVERSION)
                              " Full Sysout%")")))
         (DRIBBLE])

(FIXMETA

  [LAMBDA NIL                                                (* ; 

                                                           "Edited 25-Jun-2017 17:12 by rmk:")

    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
           \CURRENTKEYACTION)
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)

(FIXMETA
)

(RPAQQ WRITEFULLSYSOUTFLAG
 T)
(DECLARE%: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS)
)
(DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY 

(MAKEFULLSYSOUT
)
)

(PUTPROPS MAKEFULLSYSOUT
 FILETYPE
 :TCOMPL)
(PUTPROPS MAKEFULLSYSOUT COPYRIGHT (NONE))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (885 7693 (LOADFULLFONTS 895 . 3399) (MAKEFULLSYSOUT 3401 . 7382) (FIXMETA 7384 . 7691))
)))
STOP
\ No newline at end of file
+(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED " 5-Dec-2020 20:07:31" {DSK}<home>larry>ilisp>medley>makesysout>MAKEFULLSYSOUT.;7
 8043   

      changes to%:  (FNS MAKEFULLSYSOUT)

      previous date%: " 5-Dec-2020 16:15:10" 
{DSK}<home>larry>ilisp>medley>makesysout>MAKEFULLSYSOUT.;6)


(PRETTYCOMPRINT MAKEFULLSYSOUTCOMS)

(RPAQQ MAKEFULLSYSOUTCOMS

       ((COMMANDS "cd" "pwd" "ls")
        (FNS LOADFULLFONTS MAKEFULLSYSOUT FIXMETA)
        (P (FIXMETA))
        (VARS (WRITEFULLSYSOUTFLAG T))
        (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS)
        (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (MAKEFULLSYSOUT)))
        (PROP FILETYPE MAKEFULLSYSOUT)))

(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))

(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))

(DEFCOMMAND "ls" (FIRST
 . REST) (DODIR (CONS FIRST REST)))
(DEFINEQ

(LOADFULLFONTS

  [LAMBDA (ROOTDIRECTORY)                                    (* ; 

                                                           "Edited 11-Aug-2020 17:53 by rmk:")


    (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")


    (PRINTOUT T "Loading FULL fonts..." T)
    (SETQ DISPLAYFONTDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/fonts/displayfonts")
                                       (PACK* ROOTDIRECTORY "/fonts/altofonts")))
                                                             (* (SETQ INTERPRESSFONTDIRECTORIES

                                                           (CONS (PACK* ROOTDIRECTORY 

                                                           "/fonts/ipfonts"))))

    (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE))
    (SETQ POSTSCRIPTFONTDIRECTORIES (CONS (PACK* ROOTDIRECTORY "/fonts/postscriptfonts")))
    (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
    (RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL)
                (MISSINGCHARSETDISPLAYFONTCOERCIONS NIL))    (* ; 

                  "Don't let the font loader substitute just because a server went catatonic on us")

               (for
 FAMILY in
 '(CLASSIC MODERN TERMINAL)
                  do
 (PRINTOUT T "  Loading " FAMILY " ")
                        [for
 SIZE in
 '(8 10 12)
                           do
 (PRINTOUT T SIZE " ")
                                 (for
 FACE in
 '(MRR BRR MIR)
                                    do
 

                                          (* ;; "No need for Interpress")

                                                             (* (NLSETQ (FONTCREATE FAMILY SIZE 

                                                           FACE NIL (QUOTE INTERPRESS) NIL 0)))

                                          (for
 CSET
                                             in
 '(0 33 34 35 238 239 241)
                                             do
 (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL
                                                                   'DISPLAY NIL CSET]
                        (PRINTOUT T T))
               (PRINTOUT T "  Loading postscript fonts" T)
               (for
 F in
 (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
                                                ">c0>*.*")) do
 (PSCFONT.READFONT F))
               (PRINTOUT T "FULL fonts loaded" T])

(MAKEFULLSYSOUT

  [LAMBDA NIL
                                          (* ; "Edited  5-Dec-2020 20:07 by larry")

                                                             (* ; 

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

                                                             (* ; 

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

                                                             (* ; "Edited 17-Apr-2018 08:41 by ")

                                                             (* ; 

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

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

    (CLRPROMPT)
    (CNDIR (UNIX-GETENV "LOADUPDIR"))
    (LET ((ROOTDIRECTORY (MEDLEYDIR)))
         (SETQ MAKESYSFILENAME (CONCAT (MEDLEYDIR "loadups")
                                      "xfull35.sysout"))
         (DRIBBLE (PACKFILENAME 'EXTENSION 'DRIBBLE 'BODY MAKESYSFILENAME))

         (* ;; "BKSYSBUF stops page holding ")


         (PRINTOUT T T "Full loadup started at " (DATE)
                " while connected to "
                (DIRECTORYNAME T)
                T T)
         (BKSYSBUF " ")
         (SETQ DEFAULTFILETYPE 'BINARY)                      (* ; 

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

         (DREMOVE (ASSOC NIL DEFAULTFILETYPELIST)
                DEFAULTFILETYPELIST)                         (* (SETQ *UPPER-CASE-FILE-NAMES* NIL))

         (SETQ MAKESYSNAME :MEDLEY3.5)
         (push
 DEFAULTFILETYPELIST '(TXT . TEXT)
                '(TEXT . TEXT)
                '(TEX . TEXT)
                '(HTML . TEXT)
                '(HTM . TEXT))
         (MEDLEY-INIT-VARS)
         (SETQ LOADUPDIRECTORIES DIRECTORIES)
         (LOADUP '(POSTSCRIPTSTREAM))                        (* ; " to get PSCFONT.READFONT")

         (LOADFULLFONTS
 (MEDLEYDIR))
         (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
         (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
         (LOADUP '(CHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES GRAPHER SPY
                        WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE ISO8859IO
                        HELPSYS DINFO CLIPBOARD MACINTERFACE))
         (FILESLOAD (SYSLOAD)
                PRETTYFILEINDEX WHO-LINE)
         (SETQ *WHO-LINE-ANCHOR* '(:CENTER :TOP))

         (* ;; "Turn off who-line until after the user has greeted")


         (CL:WHEN (WINDOWP *WHO-LINE*)
                (CLOSEW *WHO-LINE*))
         [SETQ POSTGREETFORMS (APPEND POSTGREETFORMS '((INSTALL-WHO-LINE-OPTIONS]
         (FILESLOAD (SYSLOAD)
                UNIXCOMM UNIXCHAT UNIXTELNET)
         (FILESLOAD (SYSLOAD)
                SETDEFAULTPRINTER)
         (FILESLOAD (SYSLOAD)
                LOADPATCHES)
         (\DAYTIME0 \LASTUSERACTION)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 20)
         (for
 TYPE in
 FILEPKTYPES do
 (FILEPKGCHANGES TYPE NIL))
         (SETTOPVAL 'INITIALS NIL)
         (PROMPTPRINT "About to end loadup")
         (PRINTOUT T "About to end loadup" T)

         (* ;; "From SYNCLISPFILES")


         (ENDLOADUP)
         (COND
            ((WINDOWP LOGOW)
             (CLOSEW LOGOW)))
         (DREMOVE (ASSOC 'LOGOW AFTERMAKESYSFORMS)
                AFTERMAKESYSFORMS)
         (push
 AFTERMAKESYSFORMS '(CLRPROMPT)
                '(MEDLEY-INIT-VARS))

         (* ;; "Set up for making the sysout, if we made it this far.")


         (CL:WHEN WRITEFULLSYSOUTFLAG
             (PRINTOUT T "Creating FULL sysout on " MAKESYSFILENAME T)
             (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley " (MEDLEYVERSION)
                              " Full Sysout%")")))
         (DRIBBLE])

(FIXMETA

  [LAMBDA NIL                                                (* ; 

                                                           "Edited 25-Jun-2017 17:12 by rmk:")

    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
           \CURRENTKEYACTION)
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)

(FIXMETA
)

(RPAQQ WRITEFULLSYSOUTFLAG
 T)
(DECLARE%: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS)
)
(DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY 

(MAKEFULLSYSOUT
)
)

(PUTPROPS MAKEFULLSYSOUT
 FILETYPE
 :TCOMPL)
(PUTPROPS MAKEFULLSYSOUT COPYRIGHT (NONE))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (885 7687 (LOADFULLFONTS 895 . 3399) (MAKEFULLSYSOUT 3401 . 7376) (FIXMETA 7378 . 7685))
)))
STOP
\ No newline at end of file
diff --git a/makesysout/MAKEFULLSYSOUT.LCOM b/makesysout/MAKEFULLSYSOUT.LCOM
index a282d1e333dbc42e5ec38b895ed3c5adb1424cb5..96e43e8e466e907a94c37684cc6d487740be33a7 100644
GIT binary patch
delta 1370
zcmZ8h+iv4j6jeH6RB5PCXXXKf5KERSB?AdQH#-hDIrd3w)v=9z(l)3sK?yKY)Szh!
z%mc~~@IbMI#4qr`OFskg3rO?CZ?K(fhZp<oeYV%WthN1b^HuYg;Xb!Jw%ZZ%b`;m#
z+dqdNa<7@pzHf4y+i0~~7RICbWDM)RpQ(<`I!fMt^4<o3l^3;-AG&DUQk1{fx(}TW
zMX~Z#?bDj`>w~9vV(;($+DB#W(c9(c`)}O6|LC2)g@Z7Uy4_eqDI49>VpwzsJt(OV
zq)Ff#C?V0;VXTK|IxnI$fnqL<&a*tCqYZi|49e!~lXN+O>VA5rAypeeoEG|=jyBGt
zBuvjUNGYI`FisbKI3QEBH-J*G4GeXk<!L`NRRRM^sS0gOnw|MEgeTF9Vx65H2Pb}V
ztP2R&LmU+*8yE=3!DZ+VP1M&mgmRX_MV$H}gxpyRGR4j$i%VSkSw_`y2*x+n3!81L
z=WTWmj=KyMF7?5c+*ZIPU%GpPIPRs1DZquh9%LBhWL5X8{yA%}Z<<jOndX_F7htZv
z9U~*)EjLWc&9oRnu9;wB!vv!iD1#16nhz7dufd406-&%k>yzgp^i84RiM5BiT4T9t
zs|qS2^MliB)JrJoZglZ_Hye#m;_~OW8VedkdYlsLwnWua<i{0592Fz!k|Bo6*e}eW
z(77L&N?5{n@$CF0ZN^cepMiVM>n7WoO+N`v(wu^nhi*VJiNPhwXa&CjYuo7ir<w%4
zngKP{S?O4`6j=3Hl=%4&4$U?Vhak^(7bNtB(Mcuu#zCESz=MU}&2)<5<@M}leq=Q)
zC{ErZ3rALeGM-LeQi$RLRy~Rropo-yv>>SwD|j&(&7WU=gGv#&Ucz8@MIXsFM}1Y=
zj{n91r0b#{#I$JD7BnEag5`fj=`o*Say7<uHX7f2M+oeHH*apQgkt4qhws){`Q@QS
z&z}xI*kfM#$043NsCNRL5b5a9S~b93r~K!zQFF@u$A2v-d6pKY2=XX1g~_$wrw|fQ
z{lxUqBC%XhQQWqdj(F=~9)-~5JqLwU(K}DO3fVahz+^RHi=@iv`NOx*r)B=+F?V4t
mr@m?w*YnYf>Q^|LS7YO_e*Bs^5vsKsr$y^~_uG>%9{dL=99vod

delta 1304
zcmZ8hOK;mo5C&x+NE;Z9@@Ufn4h94ah-oEoUwjDdVMVSi!Yh&`S9VnR64)vlz=#jA
zk>;dZ&vAL`z2{zh?k_0XbJ1H){TrRt(<vZ`JF~-ieBU>G-~G4yZhDsleIoF8{X#pz
z^>5R!Ky=gDX_xxchhDGe!r6<<*%`RE{rCor`ixzFz1RHXeB6BJ#CHOSd>%KyID<QQ
z%lm%w-ucE6Kkq!cVXZ&!I)3Bad(wLO(ajh4_FD50(kdGav;rXr3=ZpQJ(vtZ@Boq`
zPox3C1dLUx)$~YJbynmcNCZYzWtHKP06ud9!e^@!4;dy^<KjpG7cnHdsMRqZ2^?p6
zS{#?aIR}-ex|qv!f+maC2|1(dG}NXp#-*_Z3~($}D`SfCNNQlQfMKRpd3cbFWPYG(
zV37|xt4%pEz=9A?QaLr*Soy$2xCpLwAyZ&{Yt7MQTN5oR;6#=sc1M8`w(g$!bkjYJ
z=&f`#q+s*n98`!+2b8mgdpOa0SmdS#%AysJX;z_S@0asa60dH$S)Q5hk*sPUA=$u4
zF!6>P!o?abf+<%_5VmH5;0RbjC8nsRxg0AXNZ67k;s=|P52<`^6vTYx!m(D#!eAo{
z?4p#(p~ZTUi$`l=d^pbkYBoQ8;>{6_;-En4eF1i`OlqVF<zZ<l7Bo>f(Xuv^T2(SJ
zR$a`G;Mwu0=;|z2&w$3^hbG;cU707NqQaoShe3i`(LgzBX_<ZwBqA`DhYD4_1Of-^
zFU8Dy0*HMr%Vjl%00Ayid?G5Fg#d;4<W}?EZU=Y5$L$+lou5Pf_VvZp<-Y6THZt_?
zyRh$$XJ_ZLw{}4(2e*^y`~6jIymW!bVe|X_ryhgOvV$$x-Y)Pkf=;4wsjT8X;52BS
zwm;k9#6CaYqtNN#6jo^7LRY0U$w<{6%9%E%?K-r1)BdtW{pQy;JPM)HPgIU{LLWEA
z0~&_S-)+wco7RIroT&Nh!Kd>8IwLcN9<u%%OH!XK9D3s+F^1sfEeD3!=&dKRAzQ~T
z5Mg0*QFIjl-~90Md<Lf%uU^eg?dR+A0-aF=?(nKPefZ=t1NX=85mF|4uNR=YxR5vR
I9)7#?A3{Jx*Z=?k

diff --git a/makesysout/SYNCLISPFILES b/makesysout/SYNCLISPFILES
index 4af1283b..10f180e6 100644
--- a/makesysout/SYNCLISPFILES
+++ b/makesysout/SYNCLISPFILES
@@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED " 5-Dec-2020 13:15:25" {DSK}<home>larry>ilisp>medley>makesysout>SYNCLISPFILES.;65
 17268  

      changes to%:  (FNS MEDLEY-INIT-VARS SYNCLISPFILES ENDLOADUP NOPUPPATCH)

      previous date%: " 5-Dec-2020 12:39:07" {DSK}<home>larry>SYNCLISPFILES.;1)


(PRETTYCOMPRINT SYNCLISPFILESCOMS)

(RPAQQ SYNCLISPFILESCOMS
 [(FNS MEDLEYDIR INTERLISPMODE MEDLEY-INIT-VARS)
                              (COMMANDS cd pwd)
                              (FNS shell)
                              (VARS 
                                    (* ;; 

                                "MEDLEY-INIT-VARS is a list of variables that need initialization ")


                                    (MEDLEY-INIT-VARS '((LISPUSERSDIRECTORIES "lispusers" "library" 
                                                               "internal/library")
                                                        (LISPSOURCEDIRECTORIES "sources")
                                                        (LISPSOURCEDIRECTORY . "sources")
                                                        (IRM.HOST&DIR . "docs/dinfo")
                                                        (DIRECTORIES LISPUSERSDIRECTORIES 
                                                               LISPSOURCEDIRECTORIES)
                                                        [LOGINHOST/DIR (DIRECTORYNAME
                                                                        (OR (UNIX-GETENV "LOGINDIR")
                                                                            (UNIX-GETENV "HOME"]
                                                        [USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
                                                                          (,LOGINHOST/DIR "INIT"]
                                                        (DISPLAYFONTDIRECTORIES "fonts/displayfonts"
                                                               "fonts/altofonts"))
                                           (INTERPRESSFONTDIRECTORIES "fonts/ipfonts")
                                           POSTSCRIPTFONTDIRECTORIES "fonts/postscriptfonts"))
                              (FNS SYNCLISPFILES ENDLOADUP MEDLEYVERSION NOPUPPATCH)
                              (INITVARS (WRITELISPSYSOUTFLAG T))
                              (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY
                                     (P (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))
                                        (SYNCLISPFILES)))
                              (PROP FILETYPE SYNCLISPFILES)
                              (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                                     (ADDVARS (NLAMA shell)
                                            (NLAML)
                                            (LAMA])
(DEFINEQ

(MEDLEYDIR

  [LAMBDA (DIRNAME FILENAME OUTPUT)
                    (* ; "Edited  5-Dec-2020 09:56 by larry")

    (if
 (NULL DIRNAME)
        then
 [if
 (NOT MEDLEYDIR)
                     then
 (SETQ MEDLEYDIR (DIRECTORYNAME (OR (UNIX-GETENV "MEDLEYDIR")
                                                                 T]
              (if
 (STRPOS "/" MEDLEYDIR)
                  then
 (SETQ MEDLEYDIR (DIRECTORYNAME MEDLEYDIR)))
              MEDLEYDIR
      elseif
 FILENAME
        then
 (SETQ FILENAME (CONCAT (MEDLEYDIR
 DIRNAME)
                                       FILENAME))
              (if
 OUTPUT
                  then
 FILENAME
                else
 (OR (INFILEP FILENAME)
                             (ERROR "No such medley file" FILENAME)))
      else
 (OR (DIRECTORYNAME (CONCAT (MEDLEYDIR
)
                                         DIRNAME))
                   (ERROR "No such medley directory" DIRNAME])

(INTERLISPMODE

  [LAMBDA (OLD?)                                             (* N.H.Briggs " 2-Feb-88 14:26")

    (PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if
 OLD?
                                                      then
 "OLD-INTERLISP-T"
                                                    else
 "INTERLISP")))
    (XCL:SET-DEFAULT-EXEC-TYPE (if
 OLD?
                                   then
 "OLD-INTERLISP-T"
                                 else
 "INTERLISP"))
    (SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if
 OLD?
                                                              then
 "OLD-INTERLISP-FILE"
                                                            else
 "INTERLISP")
                                               :PACKAGE "INTERLISP"])

(MEDLEY-INIT-VARS

  [LAMBDA NIL
                                          (* ; "Edited  5-Dec-2020 13:01 by larry")


    (* ;; "MEDLEY-INIT-VARS are a compact structure for variables that might need to get reset. ")


    (AND (NOT (BOUNDP 'MEDLEYDIR))
         (SETQ MEDLEYDIR))
    [for
 X in
 MEDLEY-INIT-VARS
       do
 (SET (CAR X)
                   (COND
                      ((STRINGP (CDR X))
                       (MEDLEYDIR
 (CDR X)))
                      ((NLISTP (CDR X))
                       (EVAL (CDR X)))
                      ((NULL (CDDR X))
                       (EVAL (CADR X)))
                      (T (for
 Y in
 (CDR X) join
 (if
 (STRINGP Y)
                                                                then
 (LIST (MEDLEYDIR
 Y))
                                                              else
 (APPEND (EVAL Y]

    (* ;; "WHEREIS doesn't follow conventions")


    (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
        (XCL::ADD-WHERE-IS-DATABASE (CONCAT (MEDLEYDIR
 "loadups")
                                           "WHEREIS.HASH"))
        (XCL::ADD-WHERE-IS-DATABASE (CONCAT (MEDLEYDIR
 "loadups")
                                           "system.hash")))])
)

(DEFCOMMAND cd (DIR) (/CNDIR DIR))

(DEFCOMMAND pwd NIL (DIRECTORYNAME T))
(DEFINEQ

(shell

  [NLAMBDA LINE                                              (* ; 

                                                           "Edited  7-Sep-2020 13:28 by rmk:")

    [SETQ LINE (CONCATLIST (for
 X in
 LINE join
 (LIST X " "]
    (CL:WITH-OPEN-FILE (STREAM "{NODIRCORE}shell-dribble.txt" :DIRECTION :IO)
           (ShellCommand LINE STREAM)
           (SETFILEPTR STREAM 0)
           (until
 (EOFP STREAM) collect
 (CL:READ-LINE STREAM :EOF-ERROR-P NIL :EOF-VALUE NIL])
)

(RPAQQ MEDLEY-INIT-VARS
 ((LISPUSERSDIRECTORIES "lispusers" "library" "internal/library")
                             (LISPSOURCEDIRECTORIES "sources")
                             (LISPSOURCEDIRECTORY . "sources")
                             (IRM.HOST&DIR . "docs/dinfo")
                             (DIRECTORIES LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES)
                             [LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                                               (UNIX-GETENV "HOME"]
                             [USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
                                               (,LOGINHOST/DIR "INIT"]
                             (DISPLAYFONTDIRECTORIES "fonts/displayfonts" "fonts/altofonts")))
(DEFINEQ

(SYNCLISPFILES

  [LAMBDA (NODRIBBLE KEEPPUP)
                          (* ; "Edited  5-Dec-2020 12:34 by larry")

                                                             (* ; 

                                                           "Edited 23-Oct-2020 23:51 by rmk:")

                                                             (* ; 

                                                           "Edited 20-Apr-2018 18:28 by rmk:")


    (* ;; "This ensures that  files in the xlisp.sysout are as up-to-date as possible with respect to lispcore/sources. Reload (compiled, if possible) files that correspond to symbolic files whose filedates are later than the filedate in the system. If you want a new compilation of a file that has not been modified to be included, then you must make a trivial update of the symbolic file and recompile it, to give it a new, later date.  This is because it is unsafe as a general default to load compiled files with dates later than the sysout, and the sysout doesn't record the dates of loaded compiled files, just their symbolic versions.")


    (* ;; " Should be run while connected to MEDLEYDIR")


    (CLRPROMPT)
    (MEDLEY-INIT-VARS
)
    (if
 (WINDOWP LOGOW)
        then
 (CLOSEW LOGOW))
    (MOVD 'NILL 'LOGOW)
    (SETQ LISPMAKESYSDATE MAKESYSDATE)
    (LET (SKIPFILES (SOURCEDIR (MEDLEYDIR
 "sources")))
         (SETQ MAKESYSFILENAME (MEDLEYDIR
 "loadups" "xlisp.sysout" T))

         (* ;; 

      "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.")


         (CL:UNLESS NODRIBBLE
             (DRIBBLE (MEDLEYDIR
 "loadups" "xlisp.dribble" T)))
         (BKSYSBUF " ")
         (PRINTOUT T T "Synchronizing Lisp sysout at " (DATE)
                T)
         (PRINTOUT T 5 (CDAR (GETP 'SYNCLISPFILES 'FILEDATES))
                T 5 "created " (CAAR (GETP 'SYNCLISPFILES 'FILEDATES))
                T T)
         (push
 SKIPFILES 'FASLOAD)
         (LOAD (MEDLEYDIR
 "sources" "FASLOAD.DFASL")
               'SYSLOAD)
         (push
 SKIPFILES 'ATBL)                          (* ; 

                                                   "Whole file can't be reloaded--smashes readtabl")

         (LOADFNS '(\ATBLSET \MAPCHARTABLE RESETREADTABLE)
                (MEDLEYDIR
 "sources" "ATBL.LCOM")
                'SYSLOAD)
         (LOADVARS '\KEYNAMES (MEDLEYDIR
 "sources" "LLKEY")
                'SYSLOAD)                                    (* ; "Extended keynames for Mac/PC")

         (push
 SKIPFILES 'LLKEY)                         (* ; "Loading whole file freezes")

         (push
 SKIPFILES 'MAIKOLOADUPFNS)                (* ; 

                                                    "Can't reload even if compiled files are later")

         (push
 SKIPFILES 'SUNFONT)                       (* ; 

                                                           "Old font organization, not relevant")

         (for
 LF FF CFILE LOADEDDATE FILEDATE IFILEDATE NOCOMPILEDFILES CFILES (COUNT
 _ 0)
            in
 (LDIFFERENCE SYSFILES SKIPFILES)
            do
 [[SETQ LOADEDDATE (CAAR (GETP LF 'FILEDATES]
                                                             (* ; 

                                              "Date of symbolic file whose compile file was loaded")

                    (CL:UNLESS LOADEDDATE
                        (PRINTOUT T T LF 
                               " does not have a loaded filedate, probably not a Lisp file; skipped"
                               T)
                        (GO $$ITERATE))
                    (SETQ FF (PACKFILENAME.STRING 'NAME LF 'BODY SOURCEDIR))
                    (SETQ FILEDATE (FILEDATE FF))            (* ; "Date of current source file")

                    (CL:UNLESS FILEDATE
                        (PRINTOUT T LF " does not have a file-directory date, not updated" T)
                        (GO $$ITERATE))
                    (SETQ CFILES (for
 EXT in
 *COMPILED-EXTENSIONS*
                                    when
 (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT
                                                                         'BODY FF))) collect

                                                                                     CFILE))
                    (SETQ CFILE (COND
                                   [CFILES 

                                          (* ;; 

                                        "If more than one (LCOM, DFASL), pick the newest one.")


                                          (for
 CF in
 CFILES
                                             largest
 (IDATE (FILEDATE CF T]
                                   (T (PRINTOUT T "Note: No compiled file for " LF T)
                                      (push
 NOTCOMPILEDFILES LF)
                                      FF)))
                    (SETQ IFILEDATE (IDATE FILEDATE))
                    (CL:UNLESS (IGREATERP IFILEDATE 0)
                        (PRINTOUT T "Funny file date " FILEDATE " for " LF ", not updated" T)
                        (GO $$ITERATE))

                    (* ;; "Load the compiled file if the date of the symbolic file is later than the symbolic file-date in the sysout.  If an updated source and compiled file were copied from another directory, we update the FILEDATES property to point to the new location.  If the loaded and file dates are the same, then update the FILEDATES property to point to the possibly new path name and version even if we don't need to load.")


                    (SETQ LOADEDDATE (IDATE LOADEDDATE))
                    (if
 (IGREATERP IFILEDATE LOADEDDATE)
                        then
 (add
 COUNT 1)
                              (LOAD CFILE 'SYSLOAD)
                              (CL:WHEN [STREQUAL FILEDATE (CAAR (GETP LF 'FILEDATES]

                                  (* ;; "If copied, the compiled file may install the original location.  Not sure what happens with copied DFASLs")


                                  (RPLACD (CAR (GETP LF 'FILEDATES))
                                         (INFILEP FF)))
                      elseif
 (IEQP IFILEDATE LOADEDDATE)
                        then
 (RPLACD (CAR (GETP LF 'FILEDATES))
                                        (INFILEP FF]
            finally
 (PRINTOUT T T T COUNT " files loaded" T)
                  (CL:WHEN NOCOMPILEDFILES (PRINTOUT T "Symbolic files loaded:  " .PPVTL 
                                                  NOCOMPILEDFILES T T)))

         (* ;; "Load from patch directory")


         (for
 PF (COUNT
 _ 0) in
 (FILDIR (PACKFILENAME.STRING 'NAME "*.;" 'BODY
                                                           (MEDLEYDIR
 "/patches/")))
            do
 (for
 EXT CFILE in
 *COMPILED-EXTENSIONS*
                      when
 (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY PF)))
                      do
 (add
 COUNT 1)
                            (LOAD CFILE 'SYSLOAD)            (* ; "symbolic file date")

                            (RETURN) finally
 (PRINTOUT T "Note: No compiled file for " PF T)
                                           (add
 COUNT 1)
                                           (LOAD PF 'SYSLOAD))
            finally
 (PRINTOUT T T T COUNT " files loaded" T))
         (CL:UNLESS KEEPPUP (NOPUPPATCH
))
         (ENDLOADUP
)
         (CL:WHEN WRITELISPSYSOUTFLAG

             (* ;; "So we print out the new version number")


             (SETQ MAKESYSFILENAME (OUTFILEP MAKESYSFILENAME))
             (PRINTOUT T "Creating updated LISP sysout on " MAKESYSFILENAME T)
             (CLRPROMPT)
             (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley Lisp Sysout%")")))
         (CL:UNLESS NODRIBBLE (DRIBBLE])

(ENDLOADUP

  [LAMBDA NIL                                                (* ; "Edited 11-Oct-90 11:02 by jds")


    (* ;; "set up for NONET configuration;  sites with ethernet can load in init from other places")


    (* ;; "All records existing at this point in time have been loaded as part of the system.")


    [MAPC USERRECLST (FUNCTION (LAMBDA (R)
                                 (RECORDPRIORITY R 'SYSTEM]
    (MEDLEY-INIT-VARS
)
    (for
 X in
 SYSTEMINITVARS when
 (NOT (ASSOC X MEDLEY-INIT-VARS))
       do
 (SETTOPVAL (CAR X)
                     (COPY (CDR X])

(MEDLEYVERSION

  [LAMBDA NIL
                                           (* ; "Edited 25-Mar-2018 22:07 by rmk:")


                                                             (* ; "Edited 11-Nov-98 22:02 by rmk:")

    (SELECTQ (LISPVERSION)
        (39424 '|1.1|)
        (39539 '|1.15|)
        (40960 '|1.2|)
        (4928 '|2.0|)
        (21000 '|2.1|)
        (35000 '|3.5|)
        (35010 '|3.5|)
        (HELP "UNRECOGNIZED MEDLEY VERSION" (LISPVERSION])

(NOPUPPATCH

  [LAMBDA NIL                                                (* ; 

                                                           "Edited 14-May-2018 12:22 by rmk:")


    (* ;; "Fix it so pup stuff never gets run")


    (SETQ \PROCESSES (DREMOVE (FIND.PROCESS '\PUPGATELISTENER)
                            \PROCESSES))
    (SETQ \FILEDEVICES (for
 F in
 \FILEDEVICES unless
 (STRPOS "LEAF" F) collect
 F))
    (MOVD 'NILL '\CANONICALIZE.PUP.HOSTNAME])
)

(RPAQ? WRITELISPSYSOUTFLAG
 T)
(DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY 

(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))

(SYNCLISPFILES
)
)

(PUTPROPS SYNCLISPFILES FILETYPE
 :TCOMPL)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 shell)

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 )
)
(PUTPROPS SYNCLISPFILES COPYRIGHT (NONE))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (2888 5959 (MEDLEYDIR 2898 . 3879) (INTERLISPMODE 3881 . 4694) (MEDLEY-INIT-VARS 4696 . 
5957)) (6036 6552 (shell 6046 . 6550)) (7331 16868 (SYNCLISPFILES 7341 . 15291) (ENDLOADUP 15293 . 
15896) (MEDLEYVERSION 15898 . 16376) (NOPUPPATCH 16378 . 16866)))))
STOP
\ No newline at end of file
+(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED " 5-Dec-2020 20:24:34" {DSK}<home>larry>ilisp>medley>makesysout>SYNCLISPFILES.;52
 16920  

      changes to%:  (FNS MEDLEYDIR MEDLEY-INIT-VARS INTERLISPMODE shell SYNCLISPFILES ENDLOADUP 
                         MEDLEYVERSION NOPUPPATCH)
                    (VARS SYNCLISPFILESCOMS)

      previous date%: " 5-Dec-2020 13:15:25" 
{DSK}<home>larry>ilisp>medley>makesysout>SYNCLISPFILES.;49)


(PRETTYCOMPRINT SYNCLISPFILESCOMS)

(RPAQQ SYNCLISPFILESCOMS

       [(FNS MEDLEYDIR INTERLISPMODE MEDLEY-INIT-VARS)
        (COMMANDS cd pwd)
        (FNS shell)
        (VARS 
              (* ;; "MEDLEY-INIT-VARS is a list of variables that need initialization ")


              (MEDLEY-INIT-VARS '((LISPUSERSDIRECTORIES "lispusers" "library" "internal/library")
                                  (LISPSOURCEDIRECTORIES "sources")
                                  (LISPSOURCEDIRECTORY . "sources")
                                  (IRM.HOST&DIR . "docs/dinfo")
                                  (DIRECTORIES LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES)
                                  [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                                               (UNIX-GETENV "HOME"]
                                  [USERGREETFILES `((,LOGINDIR "INIT" COM)
                                                    (,LOGINDIR "INIT"]
                                  (DISPLAYFONTDIRECTORIES "fonts/displayfonts" "fonts/altofonts"))
                     (INTERPRESSFONTDIRECTORIES "fonts/ipfonts")
                     POSTSCRIPTFONTDIRECTORIES "fonts/postscriptfonts"))
        (FNS SYNCLISPFILES ENDLOADUP MEDLEYVERSION NOPUPPATCH)
        (INITVARS (WRITELISPSYSOUTFLAG T))
        (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))
                                                            (SYNCLISPFILES)))
        (PROP FILETYPE SYNCLISPFILES)
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA shell)
                                                                             (NLAML)
                                                                             (LAMA])
(DEFINEQ

(MEDLEYDIR

  [LAMBDA (DIRNAME FILENAME OUTPUT)
                    (* ; "Edited  5-Dec-2020 20:24 by larry")

    (if
 (NULL DIRNAME)
        then
 (if
 (NOT MEDLEYDIR)
                     then
 (OR (SETQ MEDLEYDIR (DIRECTORYNAME (OR (UNIX-GETENV "MEDLEYDIR")
                                                                     T)))
                                  (DIRECTORYNAME T))
                   elseif
 (STRPOS "/" MEDLEYDIR)
                     then
 (SETQ MEDLEYDIR (DIRECTORYNAME MEDLEYDIR))
                   else
 MEDLEYDIR)
      elseif
 FILENAME
        then
 (SETQ FILENAME (CONCAT (MEDLEYDIR
 DIRNAME)
                                       FILENAME))
              (if
 OUTPUT
                  then
 FILENAME
                else
 (OR (INFILEP FILENAME)
                             (ERROR "No such medley file" FILENAME)))
      else
 (OR (DIRECTORYNAME (CONCAT (MEDLEYDIR
)
                                         DIRNAME))
                   (ERROR "No such medley directory" DIRNAME])

(INTERLISPMODE

  [LAMBDA (OLD?)                                             (* N.H.Briggs " 2-Feb-88 14:26")

    (PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if
 OLD?
                                                      then
 "OLD-INTERLISP-T"
                                                    else
 "INTERLISP")))
    (XCL:SET-DEFAULT-EXEC-TYPE (if
 OLD?
                                   then
 "OLD-INTERLISP-T"
                                 else
 "INTERLISP"))
    (SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if
 OLD?
                                                              then
 "OLD-INTERLISP-FILE"
                                                            else
 "INTERLISP")
                                               :PACKAGE "INTERLISP"])

(MEDLEY-INIT-VARS

  [LAMBDA (WARN)
                                       (* ; "Edited  5-Dec-2020 20:13 by larry")


    (* ;; "MEDLEY-INIT-VARS are a compact structure for variables that might need to get reset. ")


    (if
 [OR (NOT (BOUNDP 'MEDLEYDIR))
                (AND (NULL MEDLEYDIR)
                     (NULL (MEDLEYDIR
]
        then
 (PRINTOUT T "WARNING: MEDLEYDIR not set correctly" 
                        " set it and call (MEDLEY-INIT-VARS) again" T)
      else
 [for
 X in
 MEDLEY-INIT-VARS
                  do
 (SET (CAR X)
                              (COND
                                 ((STRINGP (CDR X))
                                  (MEDLEYDIR
 (CDR X)))
                                 ((NLISTP (CDR X))
                                  (EVAL (CDR X)))
                                 ((NULL (CDDR X))
                                  (EVAL (CADR X)))
                                 (T (for
 Y in
 (CDR X)
                                       join
 (if
 (STRINGP Y)
                                                    then
 (LIST (MEDLEYDIR
 Y))
                                                  else
 (APPEND (EVAL Y] 

            (* ;; "WHEREIS doesn't follow conventions")


            (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
                (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
                (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR
 "loadups" "WHEREIS.HASH"))
                (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR
 "loadups" "system.hash")))])
)

(DEFCOMMAND cd (DIR) (/CNDIR DIR))

(DEFCOMMAND pwd NIL (DIRECTORYNAME T))
(DEFINEQ

(shell

  [NLAMBDA LINE                                              (* ; 

                                                           "Edited  7-Sep-2020 13:28 by rmk:")

    [SETQ LINE (CONCATLIST (for
 X in
 LINE join
 (LIST X " "]
    (CL:WITH-OPEN-FILE (STREAM "{NODIRCORE}shell-dribble.txt" :DIRECTION :IO)
           (ShellCommand LINE STREAM)
           (SETFILEPTR STREAM 0)
           (until
 (EOFP STREAM) collect
 (CL:READ-LINE STREAM :EOF-ERROR-P NIL :EOF-VALUE NIL])
)

(RPAQQ MEDLEY-INIT-VARS

       ((LISPUSERSDIRECTORIES "lispusers" "library" "internal/library")
        (LISPSOURCEDIRECTORIES "sources")
        (LISPSOURCEDIRECTORY . "sources")
        (IRM.HOST&DIR . "docs/dinfo")
        (DIRECTORIES LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES)
        [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                     (UNIX-GETENV "HOME"]
        [USERGREETFILES `((,LOGINDIR "INIT" COM)
                          (,LOGINDIR "INIT"]
        (DISPLAYFONTDIRECTORIES "fonts/displayfonts" "fonts/altofonts")))
(DEFINEQ

(SYNCLISPFILES

  [LAMBDA (NODRIBBLE KEEPPUP)
                          (* ; "Edited  5-Dec-2020 12:34 by larry")

                                                             (* ; 

                                                           "Edited 23-Oct-2020 23:51 by rmk:")

                                                             (* ; 

                                                           "Edited 20-Apr-2018 18:28 by rmk:")


    (* ;; "This ensures that  files in the xlisp.sysout are as up-to-date as possible with respect to lispcore/sources. Reload (compiled, if possible) files that correspond to symbolic files whose filedates are later than the filedate in the system. If you want a new compilation of a file that has not been modified to be included, then you must make a trivial update of the symbolic file and recompile it, to give it a new, later date.  This is because it is unsafe as a general default to load compiled files with dates later than the sysout, and the sysout doesn't record the dates of loaded compiled files, just their symbolic versions.")


    (* ;; " Should be run while connected to MEDLEYDIR")


    (CLRPROMPT)
    (MEDLEY-INIT-VARS
)
    (if
 (WINDOWP LOGOW)
        then
 (CLOSEW LOGOW))
    (MOVD 'NILL 'LOGOW)
    (SETQ LISPMAKESYSDATE MAKESYSDATE)
    (LET (SKIPFILES (SOURCEDIR (MEDLEYDIR
 "sources")))
         (SETQ MAKESYSFILENAME (MEDLEYDIR
 "loadups" "xlisp.sysout" T))

         (* ;; 

      "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.")


         (CL:UNLESS NODRIBBLE
             (DRIBBLE (MEDLEYDIR
 "loadups" "xlisp.dribble" T)))
         (BKSYSBUF " ")
         (PRINTOUT T T "Synchronizing Lisp sysout at " (DATE)
                T)
         (PRINTOUT T 5 (CDAR (GETP 'SYNCLISPFILES 'FILEDATES))
                T 5 "created " (CAAR (GETP 'SYNCLISPFILES 'FILEDATES))
                T T)
         (push
 SKIPFILES 'FASLOAD)
         (LOAD (MEDLEYDIR
 "sources" "FASLOAD.DFASL")
               'SYSLOAD)
         (push
 SKIPFILES 'ATBL)                          (* ; 

                                                   "Whole file can't be reloaded--smashes readtabl")

         (LOADFNS '(\ATBLSET \MAPCHARTABLE RESETREADTABLE)
                (MEDLEYDIR
 "sources" "ATBL.LCOM")
                'SYSLOAD)
         (LOADVARS '\KEYNAMES (MEDLEYDIR
 "sources" "LLKEY")
                'SYSLOAD)                                    (* ; "Extended keynames for Mac/PC")

         (push
 SKIPFILES 'LLKEY)                         (* ; "Loading whole file freezes")

         (push
 SKIPFILES 'MAIKOLOADUPFNS)                (* ; 

                                                    "Can't reload even if compiled files are later")

         (push
 SKIPFILES 'SUNFONT)                       (* ; 

                                                           "Old font organization, not relevant")

         (for
 LF FF CFILE LOADEDDATE FILEDATE IFILEDATE NOCOMPILEDFILES CFILES (COUNT
 _ 0)
            in
 (LDIFFERENCE SYSFILES SKIPFILES)
            do
 [[SETQ LOADEDDATE (CAAR (GETP LF 'FILEDATES]
                                                             (* ; 

                                              "Date of symbolic file whose compile file was loaded")

                    (CL:UNLESS LOADEDDATE
                        (PRINTOUT T T LF 
                               " does not have a loaded filedate, probably not a Lisp file; skipped"
                               T)
                        (GO $$ITERATE))
                    (SETQ FF (PACKFILENAME.STRING 'NAME LF 'BODY SOURCEDIR))
                    (SETQ FILEDATE (FILEDATE FF))            (* ; "Date of current source file")

                    (CL:UNLESS FILEDATE
                        (PRINTOUT T LF " does not have a file-directory date, not updated" T)
                        (GO $$ITERATE))
                    (SETQ CFILES (for
 EXT in
 *COMPILED-EXTENSIONS*
                                    when
 (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT
                                                                         'BODY FF))) collect

                                                                                     CFILE))
                    (SETQ CFILE (COND
                                   [CFILES 

                                          (* ;; 

                                        "If more than one (LCOM, DFASL), pick the newest one.")


                                          (for
 CF in
 CFILES
                                             largest
 (IDATE (FILEDATE CF T]
                                   (T (PRINTOUT T "Note: No compiled file for " LF T)
                                      (push
 NOTCOMPILEDFILES LF)
                                      FF)))
                    (SETQ IFILEDATE (IDATE FILEDATE))
                    (CL:UNLESS (IGREATERP IFILEDATE 0)
                        (PRINTOUT T "Funny file date " FILEDATE " for " LF ", not updated" T)
                        (GO $$ITERATE))

                    (* ;; "Load the compiled file if the date of the symbolic file is later than the symbolic file-date in the sysout.  If an updated source and compiled file were copied from another directory, we update the FILEDATES property to point to the new location.  If the loaded and file dates are the same, then update the FILEDATES property to point to the possibly new path name and version even if we don't need to load.")


                    (SETQ LOADEDDATE (IDATE LOADEDDATE))
                    (if
 (IGREATERP IFILEDATE LOADEDDATE)
                        then
 (add
 COUNT 1)
                              (LOAD CFILE 'SYSLOAD)
                              (CL:WHEN [STREQUAL FILEDATE (CAAR (GETP LF 'FILEDATES]

                                  (* ;; "If copied, the compiled file may install the original location.  Not sure what happens with copied DFASLs")


                                  (RPLACD (CAR (GETP LF 'FILEDATES))
                                         (INFILEP FF)))
                      elseif
 (IEQP IFILEDATE LOADEDDATE)
                        then
 (RPLACD (CAR (GETP LF 'FILEDATES))
                                        (INFILEP FF]
            finally
 (PRINTOUT T T T COUNT " files loaded" T)
                  (CL:WHEN NOCOMPILEDFILES (PRINTOUT T "Symbolic files loaded:  " .PPVTL 
                                                  NOCOMPILEDFILES T T)))

         (* ;; "Load from patch directory")


         (for
 PF (COUNT
 _ 0) in
 (FILDIR (PACKFILENAME.STRING 'NAME "*.;" 'BODY
                                                           (MEDLEYDIR
 "/patches/")))
            do
 (for
 EXT CFILE in
 *COMPILED-EXTENSIONS*
                      when
 (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY PF)))
                      do
 (add
 COUNT 1)
                            (LOAD CFILE 'SYSLOAD)            (* ; "symbolic file date")

                            (RETURN) finally
 (PRINTOUT T "Note: No compiled file for " PF T)
                                           (add
 COUNT 1)
                                           (LOAD PF 'SYSLOAD))
            finally
 (PRINTOUT T T T COUNT " files loaded" T))
         (CL:UNLESS KEEPPUP (NOPUPPATCH
))
         (ENDLOADUP
)
         (CL:WHEN WRITELISPSYSOUTFLAG

             (* ;; "So we print out the new version number")


             (SETQ MAKESYSFILENAME (OUTFILEP MAKESYSFILENAME))
             (PRINTOUT T "Creating updated LISP sysout on " MAKESYSFILENAME T)
             (CLRPROMPT)
             (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley Lisp Sysout%")")))
         (CL:UNLESS NODRIBBLE (DRIBBLE])

(ENDLOADUP

  [LAMBDA NIL                                                (* ; "Edited 11-Oct-90 11:02 by jds")


    (* ;; "set up for NONET configuration;  sites with ethernet can load in init from other places")


    (* ;; "All records existing at this point in time have been loaded as part of the system.")


    [MAPC USERRECLST (FUNCTION (LAMBDA (R)
                                 (RECORDPRIORITY R 'SYSTEM]
    (MEDLEY-INIT-VARS
)
    (for
 X in
 SYSTEMINITVARS when
 (NOT (ASSOC X MEDLEY-INIT-VARS))
       do
 (SETTOPVAL (CAR X)
                     (COPY (CDR X])

(MEDLEYVERSION

  [LAMBDA NIL                                                (* ; 

                                                           "Edited 25-Mar-2018 22:07 by rmk:")

                                                             (* ; "Edited 11-Nov-98 22:02 by rmk:")

    (SELECTQ (LISPVERSION)
        (39424 '|1.1|)
        (39539 '|1.15|)
        (40960 '|1.2|)
        (4928 '|2.0|)
        (21000 '|2.1|)
        (35000 '|3.5|)
        (35010 '|3.5|)
        (HELP "UNRECOGNIZED MEDLEY VERSION" (LISPVERSION])

(NOPUPPATCH

  [LAMBDA NIL                                                (* ; 

                                                           "Edited 14-May-2018 12:22 by rmk:")


    (* ;; "Fix it so pup stuff never gets run")


    (SETQ \PROCESSES (DREMOVE (FIND.PROCESS '\PUPGATELISTENER)
                            \PROCESSES))
    (SETQ \FILEDEVICES (for
 F in
 \FILEDEVICES unless
 (STRPOS "LEAF" F) collect
 F))
    (MOVD 'NILL '\CANONICALIZE.PUP.HOSTNAME])
)

(RPAQ? WRITELISPSYSOUTFLAG
 T)
(DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY 

(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))

(SYNCLISPFILES
)
)

(PUTPROPS SYNCLISPFILES
 FILETYPE
 :TCOMPL)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 shell)

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 )
)
(PUTPROPS SYNCLISPFILES COPYRIGHT (NONE))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (2280 5748 (MEDLEYDIR 2290 . 3359) (INTERLISPMODE 3361 . 4174) (MEDLEY-INIT-VARS 4176 . 
5746)) (5825 6341 (shell 5835 . 6339)) (6918 16516 (SYNCLISPFILES 6928 . 14878) (ENDLOADUP 14880 . 
15483) (MEDLEYVERSION 15485 . 16024) (NOPUPPATCH 16026 . 16514)))))
STOP
\ No newline at end of file
diff --git a/makesysout/SYNCLISPFILES.LCOM b/makesysout/SYNCLISPFILES.LCOM
index 12b998bc50f59a8193ea9a0851922fea6740d356..3c44cb57d291636d3f8adb895823e399619af836 100644
GIT binary patch
delta 1256
zcmZWpO^n+_6pj<^HrvJ9a%gD_%f3!jloUDgjO`>g9AX@2<KozsooySbQky2GiIiQp
z>tv;HS#d@}M04W6fja_;s27AdaNycIT<E>rxFRujHYE!_%zHEQ&HMS@d;Yog_nj}h
z7l^14S(E0E?5slO-zoIUF4}~67>>vE5AHg>1UmumxZZ*1=^dj5qa#4=a4-&MAe9wp
zPRC;iW^pu~08s@eIuVFSL@1Zb2nM}LH~_SMjulPBnj+6X+|8f4mg%RQmRAViib_QK
z6L+K7uzYBn4cqJrmSc5<ySg8M<#bHnwgRv1Hq3Jo@-`3uhFF4PiVwPuk-(dlZ3c$h
z4odL!I6N6e(>RUnmIeqEp%M0%A!A8n(Gg|-?1QYVQYUK`Kg)2LTz#Q>i@hkrzO7_=
zo*SjIpLrfGwaavoeRN7HVEVr61I7}t3{0cr`dvqFn}Ed{7_MXJ9j21A)RH9C)tj2c
z@=GH1ph{NQN@Weo2s&?6Rv_s3o*RIa_}gA{NI%b&7?*&Y2;ymf2#3px4MxXde-a(f
z5UBsZ{bV!_5lHId&)lzE-U1Qs>ApjM*eG<N301gn*qV0xUd!}N!3qRJ4_ZP>?(Gs}
zUTx$u+>_TNeRZ&SFQ4qrm>XS8HYtfqb;aDPjmMlr-Oau0!mz)S0@5YLr#wgWi_P6j
z-)D-1s9@_s2MCeqHy7S{li=DKK}1YXPqDgwimNqv&@h{pV>Ue2ViE)<tAdQ-f$n*x
z(_nokDPZ2!ZNRLA%eG5ugRz<rY&rYvohU9Lwdzt<<uxR$(+Vip6ku)Y`4-3om~b#i
z_)Iw$t_mNy2TsE)@kLxsB7gssu*O00ES`ji<zX)#A|R}B&^YQ1rcYx8SY`Jq|5i|L
zG5Xn2Z5<$0SWCy@1V$6+9Sxx0W7Apu?<AF=_oO#ELOc+K*<&?kIcm_pkxpEa`cX7V
z&Ge(=q+!N0x}ATR6XhB`%>SOskGG6OF6LWTuh6eifxdY6jT{tt`T}Wmr*QQx+ugSu
zW~&4!8DUgnUvghB)OVqn&a&s5LC|!a&Z@61GXS1`yLX4a<gRf%`}efyUvQZYVTbKb
pz@R?@Fzq*})3<Nl;`l}V=6x=4pJnfULHmj4i?2QN3#qWp{R1gLLahJ*

delta 1076
zcmaJ<K~ED=5N@|1P~4bk1VxF%Qj+%2vTxhhZWn?qy9-^|?ryqUq)GynHWmYxP%vo-
z;U5smOZ)>~h%sI&SGgDuo{U#x^yJC-158YOT}o*<xQCs2^L;bl%)Iw^{(a^}p$Ek!
zgeBo<)nJnN=q(OLbyIhvi*n8(G3K^qT6W&HWmn0-`ZM6N<<dsE4#s+I3!Hkby1N5_
zqiT6AD)0giu~>`)wp83Hmw@X8kRV|}5)wy~!@Vs@OkVq?-XsQ;5|SeM<sZ7FoxjkI
zz}9y8`FeG?2F>DQ60n!c$I}v@;$Tm87WOAA)y?wMMsa()KIIfl#n2slRyQ;!Hi5`D
zMuWP~?+Z*fklh%p`sml!{G9~WJ-g;RCG&yR10;f$%UL-<JO)+IX^Ly*3Z|UZXoLsF
zG8Nf{bON%PYG?(@0P#E}g+Vu)k~Sn0=Tt0qP!owuHRCC8+?;JWAjF#xndsseB#@P^
zyNoE1{jOVn)OgwT(ND@(xWNecK6f)d-;;LxuPST7Q}W}=<LSKq=;0|7IQg=0J=lbA
zQ2+3P_%3lVv*&pvZ}c;O?DY&E9Q(ookHC-}7f>3*l43}btg6um87-$pbtkIIt~?_<
zbQ|gRHjv17%!pF_fAi?&x3-8d?#xTX4`5l<W_43jZ9swujz-(yldvq?wq~k=cLmy_
zY(N@yWQvLA5_NNq?j3`NW8uuk(;d7xYV*=CW93cNj<8`A7ti}8Z+b`XBM}2vtJikQ
zo3To<R^jMdrIC$lv9!BYqo*VfoVO3%iDhIbLqnK`S_D$*TL~aRAfNiadiFS|G;QN|
zaNuTl#&X<o@^dtFl{2h4-K1B}MOZQrnruN^aHroRQ6vH^sfCOHgjw<(hR7e7_p@Z2
z86!_eChoDSWxCB_rwvP1p?y-UtWDn_`7okTb`J+6%uQ3T!i_Z!xg~$Qhf#(F(jS^@
RD-T>_y{6jwjqOms{~vph5BvZC