diff --git a/greetfiles/SIMPLE-INIT b/greetfiles/SIMPLE-INIT
index d949602f..4430e40b 100644
--- a/greetfiles/SIMPLE-INIT
+++ b/greetfiles/SIMPLE-INIT
@@ -1 +1 @@
-(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
+(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED " 6-Dec-2020 00:28:41" {DSK}<home>larry>ilisp>nmedley>greetfiles>SIMPLE-INIT.;6 1103   

      changes to%:  (VARS SIMPLE-INITCOMS)

      previous date%: " 5-Dec-2020 20:01:16" {DSK}<home>larry>ilisp>nmedley>greetfiles>SIMPLE-INIT.;5
)


(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 (SETQ MEDLEYDIR NIL)
           (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")))

(SETQ MEDLEYDIR NIL)

(MEDLEY-INIT-VARS)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP
\ No newline at end of file
diff --git a/loadups/xfull35.dribble b/loadups/xfull35.dribble
index 7da34cb6..5b8ef031 100644
--- a/loadups/xfull35.dribble
+++ b/loadups/xfull35.dribble
@@ -1 +1 @@
-
Full loadup started at  5-Dec-2020 16:15:53 while connected to 
{DSK}<home>larry>ilisp>medley>


{DSK}<home>larry>ilisp>medley>library>POSTSCRIPTSTREAM.LCOM;1
compiled on 14-May-2018 10:53:32
File created 14-May-2018 10:52:48
POSTSCRIPTSTREAMCOMS
Loading FULL fonts...
  Loading CLASSIC 8 10 12 
  Loading MODERN 8 10 12 
  Loading TERMINAL 8 10 12 
  Loading postscript fonts
FULL fonts loaded

{DSK}<home>larry>ilisp>medley>library>CHAT.LCOM;1
compiled on 25-Oct-93 12:23:25
File created 20-Jan-93 13:46:52
CHATCOMS

{DSK}<home>larry>ilisp>medley>library>DMCHAT.LCOM;1
compiled on 25-Feb-93 18:08:53
File created 20-Jan-93 13:49:09
DMCHATCOMS

{DSK}<home>larry>ilisp>medley>library>CHATTERMINAL.LCOM;1
compiled on 24-Feb-93 19:37:23
File created  4-Jul-90 02:21:01
CHATTERMINALCOMS

{DSK}<home>larry>ilisp>medley>library>TEDIT.LCOM;1
compiled on 18-May-2018 09:16:24
File created 19-Apr-2018 12:22:03
TEDITCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITDCL.LCOM;1
compiled on 18-May-2018 09:17:04
File created 25-Aug-94 10:53:00
TEDITDCLCOMS

{DSK}<home>larry>ilisp>medley>library>PCTREE.LCOM;1
compiled on 18-May-2018 09:19:35
File created 19-Apr-2018 12:19:49
PCTREECOMS

{DSK}<home>larry>ilisp>medley>library>TEXTOFD.LCOM;1
compiled on 11-Feb-2001 12:06:43
File created 11-Feb-2001 12:06:42
TEXTOFDCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITCOMMAND.LCOM;1
compiled on 18-May-2018 09:16:59
File created 20-Apr-2018 08:07:35
TEDITCOMMANDCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITSCREEN.LCOM;1
compiled on 18-May-2018 09:18:38
File created 25-Aug-94 13:26:23
TEDITSCREENCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITABBREV.LCOM;1
compiled on  6-Aug-2020 14:52:14
File created  6-Aug-2020 14:52:14
TEDITABBREVCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITLOOKS.LCOM;1
compiled on 18-May-2018 09:17:44
File created 29-Jan-99 17:33:35
TEDITLOOKSCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITFIND.LCOM;1
compiled on 18-May-2018 09:17:21
File created  6-May-2018 17:34:44
TEDITFINDCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITHISTORY.LCOM;1
compiled on 18-May-2018 09:17:41
File created 29-Jan-99 17:34:39
TEDITHISTORYCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITFILE.LCOM;1
compiled on 18-May-2018 09:17:06
File created 19-May-2001 11:45:53
TEDITFILECOMS

{DSK}<home>larry>ilisp>medley>library>TEDITWINDOW.LCOM;1
compiled on 18-May-2018 09:18:51
File created 21-Jun-99 20:00:42
TEDITWINDOWCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITSELECTION.LCOM;1
compiled on 18-May-2018 09:18:43
File created 25-Aug-94 10:56:07
TEDITSELECTIONCOMS

{DSK}<home>larry>ilisp>medley>library>IMAGEOBJ.LCOM;1
compiled on  8-Feb-97 11:26:32
File created  7-Dec-95 13:21:56
IMAGEOBJCOMS

{DSK}<home>larry>ilisp>medley>library>EDITBITMAP.LCOM;1
compiled on 25-Feb-93 18:10:27
File created 11-Jun-90 15:42:25
EDITBITMAPCOMS

{DSK}<home>larry>ilisp>medley>library>READNUMBER.LCOM;1
compiled on 16-Aug-95 11:18:52
File created 25-May-93 00:28:30
READNUMBERCOMS

{DSK}<home>larry>ilisp>medley>library>TFBRAVO.LCOM;1
compiled on 19-Apr-2018 12:19:55
File created 19-Apr-2018 12:19:55
TFBRAVOCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITHCPY.LCOM;1
compiled on 18-May-2018 09:17:32
File created 25-Aug-94 10:54:07
TEDITHCPYCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITPAGE.LCOM;1
compiled on 18-May-2018 09:18:32
File created 25-Aug-94 10:55:28
TEDITPAGECOMS

{DSK}<home>larry>ilisp>medley>library>TEDITMENU.LCOM;1
compiled on 18-May-2018 09:18:07
File created 24-Apr-95 12:05:29
TEDITMENUCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITFNKEYS.LCOM;1
compiled on 18-May-2018 09:17:25
File created  6-May-2018 17:15:13
TEDITFNKEYSCOMS

{DSK}<home>larry>ilisp>medley>library>HRULE.LCOM;1
compiled on 26-Feb-93 11:26:19
File created  8-Oct-92 16:50:21
HRULECOMS

{DSK}<home>larry>ilisp>medley>library>TEDITCHAT.LCOM;1
compiled on 18-May-2018 09:16:55
File created 28-Mar-94 16:05:24
IL:TEDITCHATCOMS

{DSK}<home>larry>ilisp>medley>library>FILEBROWSER.LCOM;1
compiled on 11-Sep-2001 09:26:17
File created 11-Sep-2001 09:26:14

{DSK}<home>larry>ilisp>medley>library>TABLEBROWSER.LCOM;1
compiled on  1-Dec-2018 17:25:13
File created  1-Dec-2018 17:25:13
TABLEBROWSERCOMS

{DSK}<home>larry>ilisp>medley>lispusers>THINFILES.LCOM;1
compiled on 26-Jun-99 00:47:00
File created  1-May-92 16:49:39
THINFILESCOMS

{DSK}<home>larry>ilisp>medley>library>GRAPHER.LCOM;1
compiled on 14-May-2018 10:24:43
File created 14-May-2018 10:24:38
GRAPHERCOMS

{DSK}<home>larry>ilisp>medley>library>SPY.LCOM;1
compiled on 23-Aug-94 16:33:38
File created 29-Apr-94 14:13:52
SPYCOMS

{DSK}<home>larry>ilisp>medley>library>WHERE-IS.DFASL;1
XCL Compiler output for source file {DSK}<python>lde>lispcore>library>WHERE-IS.;1
Source file created Wednesday, 13 June 1990, 1:16:15.
FASL file created Thursday, 21 January 1993, 18:52:55.


{DSK}<home>larry>ilisp>medley>library>HASH-FILE.dfasl;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>HASH-FILE.;2
Source file created Monday, 11 June 1990, 16:16:54.
FASL file created Friday, 26 February 1993, 11:23:40.


{DSK}<home>larry>ilisp>medley>library>CASH-FILE.DFASL;5
XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>library>CASH-FILE.;2
Source file created 11-Jun-90 14:33:44
FASL file created Saturday, 19 September 2020, 22:04:31


{DSK}<home>larry>ilisp>medley>library>COPYFILES.LCOM;1
compiled on  6-Apr-2018 21:14:29
File created  6-Apr-2018 21:14:29
COPYFILESCOMS

{DSK}<home>larry>ilisp>medley>library>MSANALYZE.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSANALYZE.;5
Source file created Wednesday, 15 August 1990, 13:11:23.
FASL file created Sunday, 28 February 1993, 23:16:46.


{DSK}<home>larry>ilisp>medley>library>MSPARSE.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSPARSE.;5
Source file created Wednesday, 15 August 1990, 13:00:12.
FASL file created Sunday, 28 February 1993, 23:24:50.


{DSK}<home>larry>ilisp>medley>library>MASTERSCOPE.DFASL;4
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>MASTERSCOPE.;4
Source file created Saturday, 19 September 2020, 9:54:51.
FASL file created Saturday, 19 September 2020, 9:54:51.


{DSK}<home>larry>ilisp>medley>library>MSCOMMON.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSCOMMON.;3
Source file created Monday, 4 May 1992, 13:19:40.
FASL file created Sunday, 28 February 1993, 23:23:14.


{DSK}<home>larry>ilisp>medley>library>UNIXPRINT.DFASL;1
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>UNIXPRINT.;8
Source file created Friday, 4 May 2018, 17:18:00.
FASL file created Friday, 4 May 2018, 17:18:00.


{DSK}<home>larry>ilisp>medley>library>UNIXCOMM.LCOM;1
compiled on 25-Apr-2018 07:31:56
File created 25-Apr-2018 07:31:56
UNIXCOMMCOMS

{DSK}<home>larry>ilisp>medley>library>UNICODE.LCOM;18
compiled on 29-Nov-2020 10:50:35
File created 29-Nov-2020 10:50:18
UNICODECOMS

{DSK}<home>larry>ilisp>medley>lispusers>ISO8859IO.LCOM;1
compiled on  9-Mar-99 18:20:33
File created  9-Mar-99 18:20:26
ISO8859IOCOMS

{DSK}<home>larry>ilisp>medley>lispusers>HELPSYS.LCOM;1
compiled on 27-Nov-2020 11:23:11
File created 27-Nov-2020 09:47:44
HELPSYSCOMS

{DSK}<home>larry>ilisp>medley>lispusers>DINFO.LCOM;1
compiled on 27-Nov-2020 09:16:14
File created 27-Nov-2020 09:14:02
DINFOCOMS

{DSK}<home>larry>ilisp>medley>library>HASH.LCOM;1
compiled on 26-Feb-93 11:22:10
File created 11-Jun-90 16:23:11
HASHCOMS

Reading IRM graph...OK.
{DSK}<home>larry>ilisp>medley>library>CLIPBOARD.LCOM;1
compiled on  8-Aug-2020 15:48:08
File created  8-Aug-2020 15:48:08
CLIPBOARDCOMS

{DSK}<home>larry>ilisp>medley>lispusers>MACINTERFACE.LCOM;47
compiled on  8-Aug-2020 15:48:17
File created  8-Aug-2020 15:48:17
MACINTERFACECOMS

{DSK}<home>larry>ilisp>medley>lispusers>PRETTYFILEINDEX.LCOM;3
compiled on 28-Jun-99 17:13:58
File created 28-Jun-99 17:13:51
PRETTYFILEINDEXCOMS

{DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.LCOM;1
compiled on 19-Feb-2001 11:57:34
File created 19-Feb-2001 11:53:32
WHO-LINECOMS

{DSK}<home>larry>ilisp>medley>library>UNIXCHAT.LCOM;1
compiled on 21-Jan-93 18:45:15
File created 15-Aug-90 11:05:53
UNIXCHATCOMS

{DSK}<home>larry>ilisp>medley>library>UNIXTELNET.LCOM;1
compiled on 18-Jul-94 23:29:48
File created 16-Feb-90 17:00:31
UNIXTELNETCOMS

{DSK}<home>larry>ilisp>medley>lispusers>SETDEFAULTPRINTER.LCOM;3
compiled on 12-Nov-98 17:41:28
File created  7-Jun-93 15:34:58
SETDEFAULTPRINTERCOMS

{DSK}<home>larry>ilisp>medley>lispusers>DEFAULTSUBITEMFN.LCOM;1
compiled on  8-Sep-94 20:23:23
File created  4-Mar-87 15:59:01
DEFAULTSUBITEMFNCOMS

{DSK}<home>larry>ilisp>medley>lispusers>LoadPatches.;1
File created 16-Nov-88 14:11:42
LOADPATCHESCOMS
About to end loadup
Creating FULL sysout on {DSK}<home>larry>ilisp>medley>loadups>xfull35.sysout
\ No newline at end of file
+
Full loadup started at  6-Dec-2020 00:08:39 while connected to 
{DSK}<home>larry>ilisp>medley>


{DSK}<home>larry>ilisp>medley>library>POSTSCRIPTSTREAM.LCOM;1
compiled on 14-May-2018 10:53:32
File created 14-May-2018 10:52:48
POSTSCRIPTSTREAMCOMS
Loading FULL fonts...
  Loading CLASSIC 8 10 12 
  Loading MODERN 8 10 12 
  Loading TERMINAL 8 10 12 
  Loading postscript fonts
FULL fonts loaded

{DSK}<home>larry>ilisp>medley>library>CHAT.LCOM;1
compiled on 25-Oct-93 12:23:25
File created 20-Jan-93 13:46:52
CHATCOMS

{DSK}<home>larry>ilisp>medley>library>DMCHAT.LCOM;1
compiled on 25-Feb-93 18:08:53
File created 20-Jan-93 13:49:09
DMCHATCOMS

{DSK}<home>larry>ilisp>medley>library>CHATTERMINAL.LCOM;1
compiled on 24-Feb-93 19:37:23
File created  4-Jul-90 02:21:01
CHATTERMINALCOMS

{DSK}<home>larry>ilisp>medley>library>TEDIT.LCOM;1
compiled on 18-May-2018 09:16:24
File created 19-Apr-2018 12:22:03
TEDITCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITDCL.LCOM;1
compiled on 18-May-2018 09:17:04
File created 25-Aug-94 10:53:00
TEDITDCLCOMS

{DSK}<home>larry>ilisp>medley>library>PCTREE.LCOM;1
compiled on 18-May-2018 09:19:35
File created 19-Apr-2018 12:19:49
PCTREECOMS

{DSK}<home>larry>ilisp>medley>library>TEXTOFD.LCOM;1
compiled on 11-Feb-2001 12:06:43
File created 11-Feb-2001 12:06:42
TEXTOFDCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITCOMMAND.LCOM;1
compiled on 18-May-2018 09:16:59
File created 20-Apr-2018 08:07:35
TEDITCOMMANDCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITSCREEN.LCOM;1
compiled on 18-May-2018 09:18:38
File created 25-Aug-94 13:26:23
TEDITSCREENCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITABBREV.LCOM;1
compiled on  6-Aug-2020 14:52:14
File created  6-Aug-2020 14:52:14
TEDITABBREVCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITLOOKS.LCOM;1
compiled on 18-May-2018 09:17:44
File created 29-Jan-99 17:33:35
TEDITLOOKSCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITFIND.LCOM;1
compiled on 18-May-2018 09:17:21
File created  6-May-2018 17:34:44
TEDITFINDCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITHISTORY.LCOM;1
compiled on 18-May-2018 09:17:41
File created 29-Jan-99 17:34:39
TEDITHISTORYCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITFILE.LCOM;1
compiled on 18-May-2018 09:17:06
File created 19-May-2001 11:45:53
TEDITFILECOMS

{DSK}<home>larry>ilisp>medley>library>TEDITWINDOW.LCOM;1
compiled on 18-May-2018 09:18:51
File created 21-Jun-99 20:00:42
TEDITWINDOWCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITSELECTION.LCOM;1
compiled on 18-May-2018 09:18:43
File created 25-Aug-94 10:56:07
TEDITSELECTIONCOMS

{DSK}<home>larry>ilisp>medley>library>IMAGEOBJ.LCOM;1
compiled on  8-Feb-97 11:26:32
File created  7-Dec-95 13:21:56
IMAGEOBJCOMS

{DSK}<home>larry>ilisp>medley>library>EDITBITMAP.LCOM;1
compiled on 25-Feb-93 18:10:27
File created 11-Jun-90 15:42:25
EDITBITMAPCOMS

{DSK}<home>larry>ilisp>medley>library>READNUMBER.LCOM;1
compiled on 16-Aug-95 11:18:52
File created 25-May-93 00:28:30
READNUMBERCOMS

{DSK}<home>larry>ilisp>medley>library>TFBRAVO.LCOM;1
compiled on 19-Apr-2018 12:19:55
File created 19-Apr-2018 12:19:55
TFBRAVOCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITHCPY.LCOM;1
compiled on 18-May-2018 09:17:32
File created 25-Aug-94 10:54:07
TEDITHCPYCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITPAGE.LCOM;1
compiled on 18-May-2018 09:18:32
File created 25-Aug-94 10:55:28
TEDITPAGECOMS

{DSK}<home>larry>ilisp>medley>library>TEDITMENU.LCOM;1
compiled on 18-May-2018 09:18:07
File created 24-Apr-95 12:05:29
TEDITMENUCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITFNKEYS.LCOM;1
compiled on 18-May-2018 09:17:25
File created  6-May-2018 17:15:13
TEDITFNKEYSCOMS

{DSK}<home>larry>ilisp>medley>library>HRULE.LCOM;1
compiled on 26-Feb-93 11:26:19
File created  8-Oct-92 16:50:21
HRULECOMS

{DSK}<home>larry>ilisp>medley>library>TEDITCHAT.LCOM;1
compiled on 18-May-2018 09:16:55
File created 28-Mar-94 16:05:24
IL:TEDITCHATCOMS

{DSK}<home>larry>ilisp>medley>library>FILEBROWSER.LCOM;1
compiled on 11-Sep-2001 09:26:17
File created 11-Sep-2001 09:26:14

{DSK}<home>larry>ilisp>medley>library>TABLEBROWSER.LCOM;1
compiled on  1-Dec-2018 17:25:13
File created  1-Dec-2018 17:25:13
TABLEBROWSERCOMS

{DSK}<home>larry>ilisp>medley>lispusers>THINFILES.LCOM;1
compiled on 26-Jun-99 00:47:00
File created  1-May-92 16:49:39
THINFILESCOMS

{DSK}<home>larry>ilisp>medley>library>GRAPHER.LCOM;1
compiled on 14-May-2018 10:24:43
File created 14-May-2018 10:24:38
GRAPHERCOMS

{DSK}<home>larry>ilisp>medley>library>SPY.LCOM;1
compiled on 23-Aug-94 16:33:38
File created 29-Apr-94 14:13:52
SPYCOMS

{DSK}<home>larry>ilisp>medley>library>WHERE-IS.DFASL;1
XCL Compiler output for source file {DSK}<python>lde>lispcore>library>WHERE-IS.;1
Source file created Wednesday, 13 June 1990, 1:16:15.
FASL file created Thursday, 21 January 1993, 18:52:55.


{DSK}<home>larry>ilisp>medley>library>HASH-FILE.dfasl;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>HASH-FILE.;2
Source file created Monday, 11 June 1990, 16:16:54.
FASL file created Friday, 26 February 1993, 11:23:40.


{DSK}<home>larry>ilisp>medley>library>CASH-FILE.DFASL;5
XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>library>CASH-FILE.;2
Source file created 11-Jun-90 14:33:44
FASL file created Saturday, 19 September 2020, 22:04:31


{DSK}<home>larry>ilisp>medley>library>COPYFILES.LCOM;1
compiled on  6-Apr-2018 21:14:29
File created  6-Apr-2018 21:14:29
COPYFILESCOMS

{DSK}<home>larry>ilisp>medley>library>MSANALYZE.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSANALYZE.;5
Source file created Wednesday, 15 August 1990, 13:11:23.
FASL file created Sunday, 28 February 1993, 23:16:46.


{DSK}<home>larry>ilisp>medley>library>MSPARSE.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSPARSE.;5
Source file created Wednesday, 15 August 1990, 13:00:12.
FASL file created Sunday, 28 February 1993, 23:24:50.


{DSK}<home>larry>ilisp>medley>library>MASTERSCOPE.DFASL;4
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>MASTERSCOPE.;4
Source file created Saturday, 19 September 2020, 9:54:51.
FASL file created Saturday, 19 September 2020, 9:54:51.


{DSK}<home>larry>ilisp>medley>library>MSCOMMON.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSCOMMON.;3
Source file created Monday, 4 May 1992, 13:19:40.
FASL file created Sunday, 28 February 1993, 23:23:14.


{DSK}<home>larry>ilisp>medley>library>UNIXPRINT.DFASL;1
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>UNIXPRINT.;8
Source file created Friday, 4 May 2018, 17:18:00.
FASL file created Friday, 4 May 2018, 17:18:00.


{DSK}<home>larry>ilisp>medley>library>UNIXCOMM.LCOM;1
compiled on 25-Apr-2018 07:31:56
File created 25-Apr-2018 07:31:56
UNIXCOMMCOMS

{DSK}<home>larry>ilisp>medley>library>UNICODE.LCOM;18
compiled on 29-Nov-2020 10:50:35
File created 29-Nov-2020 10:50:18
UNICODECOMS

{DSK}<home>larry>ilisp>medley>lispusers>ISO8859IO.LCOM;1
compiled on  9-Mar-99 18:20:33
File created  9-Mar-99 18:20:26
ISO8859IOCOMS

{DSK}<home>larry>ilisp>medley>lispusers>HELPSYS.LCOM;1
compiled on 27-Nov-2020 11:23:11
File created 27-Nov-2020 09:47:44
HELPSYSCOMS

{DSK}<home>larry>ilisp>medley>lispusers>DINFO.LCOM;1
compiled on 27-Nov-2020 09:16:14
File created 27-Nov-2020 09:14:02
DINFOCOMS

{DSK}<home>larry>ilisp>medley>library>HASH.LCOM;1
compiled on 26-Feb-93 11:22:10
File created 11-Jun-90 16:23:11
HASHCOMS

Reading IRM graph...OK.
{DSK}<home>larry>ilisp>medley>library>CLIPBOARD.LCOM;1
compiled on  8-Aug-2020 15:48:08
File created  8-Aug-2020 15:48:08
CLIPBOARDCOMS

{DSK}<home>larry>ilisp>medley>lispusers>MACINTERFACE.LCOM;47
compiled on  8-Aug-2020 15:48:17
File created  8-Aug-2020 15:48:17
MACINTERFACECOMS

{DSK}<home>larry>ilisp>medley>lispusers>PRETTYFILEINDEX.LCOM;3
compiled on 28-Jun-99 17:13:58
File created 28-Jun-99 17:13:51
PRETTYFILEINDEXCOMS

{DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.LCOM;1
compiled on 19-Feb-2001 11:57:34
File created 19-Feb-2001 11:53:32
WHO-LINECOMS

{DSK}<home>larry>ilisp>medley>library>UNIXCHAT.LCOM;1
compiled on 21-Jan-93 18:45:15
File created 15-Aug-90 11:05:53
UNIXCHATCOMS

{DSK}<home>larry>ilisp>medley>library>UNIXTELNET.LCOM;1
compiled on 18-Jul-94 23:29:48
File created 16-Feb-90 17:00:31
UNIXTELNETCOMS

{DSK}<home>larry>ilisp>medley>lispusers>SETDEFAULTPRINTER.LCOM;3
compiled on 12-Nov-98 17:41:28
File created  7-Jun-93 15:34:58
SETDEFAULTPRINTERCOMS

{DSK}<home>larry>ilisp>medley>lispusers>DEFAULTSUBITEMFN.LCOM;1
compiled on  8-Sep-94 20:23:23
File created  4-Mar-87 15:59:01
DEFAULTSUBITEMFNCOMS

{DSK}<home>larry>ilisp>medley>lispusers>LoadPatches.;1
File created 16-Nov-88 14:11:42
LOADPATCHESCOMS
About to end loadup
Creating FULL sysout on {DSK}<home>larry>ilisp>medley>loadups>xfull35.sysout
\ No newline at end of file
diff --git a/loadups/xfull35.sysout b/loadups/xfull35.sysout
index a17c32b8..150f729c 100644
Binary files a/loadups/xfull35.sysout and b/loadups/xfull35.sysout differ
diff --git a/loadups/xlisp.dribble b/loadups/xlisp.dribble
index 2ff3d9ff..4531eec9 100644
--- a/loadups/xlisp.dribble
+++ b/loadups/xlisp.dribble
@@ -1,7 +1,7 @@
 
-Synchronizing Lisp sysout at  5-Dec-2020 15:27:52
-     {DSK}<home>larry>ilisp>medley>makesysout>SYNCLISPFILES.;65
-     created  5-Dec-2020 13:15:25
+Synchronizing Lisp sysout at  6-Dec-2020 00:07:35
+     {DSK}<home>larry>ilisp>medley>makesysout>SYNCLISPFILES.;53
+     created  6-Dec-2020 00:06:51
 
 
 {DSK}<home>larry>ilisp>medley>sources>FASLOAD.DFASL;1
@@ -180,4 +180,4 @@ NOXNSPATCHCOMS
 
 3 files loaded
 Creating updated LISP sysout on 
-{DSK}<home>larry>ilisp>medley>loadups>xlisp.sysout;9
+{DSK}<home>larry>ilisp>medley>loadups>xlisp.sysout;10
diff --git a/loadups/xlisp.sysout b/loadups/xlisp.sysout
index 9b6c97b3..24059856 100644
Binary files a/loadups/xlisp.sysout and b/loadups/xlisp.sysout differ
diff --git a/makesysout/SYNCLISPFILES b/makesysout/SYNCLISPFILES
index 10f180e6..fc618be9 100644
--- a/makesysout/SYNCLISPFILES
+++ b/makesysout/SYNCLISPFILES
@@ -1 +1,126 @@
-(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
+(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
+(FILECREATED " 6-Dec-2020 00:06:51" {DSK}<home>larry>ilisp>medley>makesysout>SYNCLISPFILES.;53 17844  
+
+      changes to%:  (FNS MEDLEYDIR)
+
+      previous date%: " 5-Dec-2020 20:24:34" 
+{DSK}<home>larry>ilisp>medley>makesysout>SYNCLISPFILES.;52)
+
+
+(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 (OR (NOT (BOUNDP 'MEDLEYDIR))
+                             (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 (2966 6494 (MEDLEYDIR 2976 . 4105) (INTERLISPMODE 4107 . 4920) (MEDLEY-INIT-VARS 4922 . 
+6492)) (6571 7087 (shell 6581 . 7085)) (7846 17444 (SYNCLISPFILES 7856 . 15806) (ENDLOADUP 15808 . 
+16411) (MEDLEYVERSION 16413 . 16952) (NOPUPPATCH 16954 . 17442)))))
+STOP
diff --git a/makesysout/SYNCLISPFILES.LCOM b/makesysout/SYNCLISPFILES.LCOM
index 3c44cb57..895bed1e 100644
Binary files a/makesysout/SYNCLISPFILES.LCOM and b/makesysout/SYNCLISPFILES.LCOM differ
