diff --git a/greetfiles/SIMPLE-INIT b/greetfiles/SIMPLE-INIT
index 113e4992..7313faec 100644
--- a/greetfiles/SIMPLE-INIT
+++ b/greetfiles/SIMPLE-INIT
@@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "27-Nov-2020 13:01:11" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;8 5349   

      changes to%:  (VARS SIMPLE-INITCOMS)

      previous date%: "26-Nov-2020 16:25:44" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;7
)


(PRETTYCOMPRINT SIMPLE-INITCOMS)

(RPAQQ SIMPLE-INITCOMS
       [(FNS MEDLEYDIR INTERLISPMODE)
        [VARS (MEDLEYDIR (DIRECTORYNAME (OR (UNIX-GETENV "MEDLEYDIR")
                                            (DIRECTORYNAME]
        (VARS (LISPUSERSDIRECTORIES (LIST (MEDLEYDIR "lispusers")
                                          (MEDLEYDIR "library")
                                          (MEDLEYDIR "internal/library")))
              (LISPSOURCEDIRECTORIES (LIST (MEDLEYDIR "sources")))
              (IRM.HOST&DIR (MEDLEYDIR "docs/dinfo/"))
              (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES)))
        [VARS [LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                                (UNIX-GETENV "HOME"]
              (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
                                (,LOGINHOST/DIR "INIT"]
        [VARS (DISPLAYFONTDIRECTORIES (LIST (MEDLEYDIR "fonts/displayfonts")
                                            (MEDLEYDIR "fonts/altofonts")))
              (INTERPRESSFONTDIRECTORIES (LIST (MEDLEYDIR "fonts/ipfonts")))
              (POSTSCRIPTFONTDIRECTORIES (LIST (MEDLEYDIR "/fonts/postscriptfonts/"]
        [P (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE]
        (COMMANDS cd pwd)
        (FNS shell)
        [P (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")))]
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA shell)
                                                                             (NLAML)
                                                                             (LAMA])
(DEFINEQ

(MEDLEYDIR
  [LAMBDA (STR)                                        (* ; "Edited 26-Nov-2020 15:58 by larry")
    (DIRECTORYNAME (CONCAT MEDLEYDIR STR])

(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"])
)

(RPAQ MEDLEYDIR (DIRECTORYNAME (OR (UNIX-GETENV "MEDLEYDIR")
                                       (DIRECTORYNAME))))

(RPAQ LISPUSERSDIRECTORIES (LIST (MEDLEYDIR "lispusers")
                                     (MEDLEYDIR "library")
                                     (MEDLEYDIR "internal/library")))

(RPAQ LISPSOURCEDIRECTORIES (LIST (MEDLEYDIR "sources")))

(RPAQ IRM.HOST&DIR (MEDLEYDIR "docs/dinfo/"))

(RPAQ DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))

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

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

(RPAQ DISPLAYFONTDIRECTORIES (LIST (MEDLEYDIR "fonts/displayfonts")
                                       (MEDLEYDIR "fonts/altofonts")))

(RPAQ INTERPRESSFONTDIRECTORIES (LIST (MEDLEYDIR "fonts/ipfonts")))

(RPAQ POSTSCRIPTFONTDIRECTORIES (LIST (MEDLEYDIR "/fonts/postscriptfonts/")))

(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))

(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])
)

(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")))
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA shell)

(ADDTOVAR NLAML )

(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (2225 3214 (MEDLEYDIR 2235 . 2397) (INTERLISPMODE 2399 . 3212)) (4383 4899 (shell 4393
 . 4897)))))
STOP
\ No newline at end of file
+(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
diff --git a/loadups/xfull35.dribble b/loadups/xfull35.dribble
index 274544f3..7da34cb6 100644
--- a/loadups/xfull35.dribble
+++ b/loadups/xfull35.dribble
@@ -1 +1 @@
-
Full loadup started at  5-Dec-2020 13:16:48 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  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
diff --git a/loadups/xfull35.sysout b/loadups/xfull35.sysout
index ec3fcd37..a17c32b8 100644
Binary files a/loadups/xfull35.sysout and b/loadups/xfull35.sysout differ
diff --git a/loadups/xlisp.dribble b/loadups/xlisp.dribble
index f41c15ee..2ff3d9ff 100644
--- a/loadups/xlisp.dribble
+++ b/loadups/xlisp.dribble
@@ -1,5 +1,5 @@
 
-Synchronizing Lisp sysout at  5-Dec-2020 13:15:54
+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
 
@@ -180,4 +180,4 @@ NOXNSPATCHCOMS
 
 3 files loaded
 Creating updated LISP sysout on 
-{DSK}<home>larry>ilisp>medley>loadups>xlisp.sysout;8
+{DSK}<home>larry>ilisp>medley>loadups>xlisp.sysout;9
diff --git a/loadups/xlisp.sysout b/loadups/xlisp.sysout
index 85256b77..9b6c97b3 100644
Binary files a/loadups/xlisp.sysout and b/loadups/xlisp.sysout differ
diff --git a/makesysout/MAKEFULLSYSOUT b/makesysout/MAKEFULLSYSOUT
new file mode 100644
index 00000000..3d27a25a
--- /dev/null
+++ b/makesysout/MAKEFULLSYSOUT
@@ -0,0 +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
diff --git a/makesysout/loadup-full.sh b/makesysout/loadup-full.sh
index 3e200f1b..6edafa6d 100644
--- a/makesysout/loadup-full.sh
+++ b/makesysout/loadup-full.sh
@@ -9,6 +9,6 @@ fi
 
 export LOADUPDIR=$MEDLEYDIR
 
-./run-medley -greet $MEDLEYDIR/makesysout/makefullsysout.LCOM $MEDLEYDIR/loadups/xlisp.sysout
+./run-medley -greet $MEDLEYDIR/makesysout/MAKEFULLSYSOUT.LCOM $MEDLEYDIR/loadups/xlisp.sysout
 
 
diff --git a/makesysout/makefullsysout b/makesysout/makefullsysout
deleted file mode 100644
index 0829a9b8..00000000
--- a/makesysout/makefullsysout
+++ /dev/null
@@ -1 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED " 5-Dec-2020 08:04:51" {DSK}<home>larry>ilisp>medley>makesysout>makefullsysout.;105 10984  

      changes to%:  (FNS MAKEFULLSYSOUT)

      previous date%: " 3-Dec-2020 18:23:14" 
{DSK}<home>larry>ilisp>medley>makesysout>makefullsysout.;104)


(PRETTYCOMPRINT MAKEFULLSYSOUTCOMS)

(RPAQQ MAKEFULLSYSOUTCOMS ((COMMANDS "cd" "pwd" "ls")
                               (FNS LOADFULLFONTS MAKEFULLSYSOUT FIXMETA)
                               (P (FIXMETA))
                               (FNS LoadPatches COLLECT-PATCH-FILES)
                               (INITVARS (WRITEFULLSYSOUTFLAG T))
                               (VARS (COPYRIGHTFLG NIL))
                               (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 07:32 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)))
         (push AFTERMAKESYSFORMS '(CLRPROMPT)
                '(\INITVARS))

         (* ;; "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)
(DEFINEQ

(LoadPatches
  [LAMBDA (DIRECTORY LDFLG AFTERDATE)                    (* ; "Edited  7-Feb-92 11:50 by bbb")

(* ;;; "Load all compiled files from the directory")

    (DECLARE (GLOBALVARS *COMPILED-EXTENSIONS*))
    (LET [(files (SORT (for EXT in *COMPILED-EXTENSIONS*
                          bind (AFTERIDATE _ (if AFTERDATE
                                                     then (OR (IDATE AFTERDATE)
                                                                  0)
                                                   else 0)) join (COLLECT-PATCH-FILES
                                                                          (DIRECTORYNAME DIRECTORY)
                                                                          EXT AFTERIDATE))
                       (FUNCTION (LAMBDA (X Y)
                                   (LESSP (CDR X)
                                          (CDR Y]            (* ; 
                                                           "files are sorted by increasing date")
         (for file in files do (SELECTQ LDFLG
                                               (HIDDEN       (* ; 
                                                       "Load the file, but don't put it on FILELST")
                                                       (LOAD? (CAR file)
                                                              T)
                                                       (SETQ FILELST (DREMOVE (FILENAMEFIELD
                                                                               (CAR file)
                                                                               'NAME)
                                                                            FILELST)))
                                               (LOAD? (CAR file)
                                                      LDFLG)))
         files])

(COLLECT-PATCH-FILES
  [LAMBDA (DIRECTORY EXT AFTERIDATE)                     (* ; "Edited  7-Feb-92 11:49 by bbb")

    (* ;; "Generate list of files in DIRECTORY with extension EXT more recent than idate AFTERIDATE.  Return list of pairs (file . date).  Omits subdirectories.")

    (RESETLST
        (LET ((FILING.ENUMERATION.DEPTH 1)
              (NAKED-DIR (UNPACKFILENAME.STRING DIRECTORY 'DIRECTORY))
              FILE DATE)
             (bind [GEN _ (\GENERATEFILES (CONCAT DIRECTORY "*." EXT ";")
                                     '(ICREATIONDATE)
                                     '(SORT RESETLST] while (SETQ FILE (\GENERATENEXTFILE GEN))
                when (AND (STRING-EQUAL (UNPACKFILENAME.STRING FILE 'DIRECTORY)
                                     NAKED-DIR)
                              (> (SETQ DATE (\GENERATEFILEINFO GEN 'ICREATIONDATE))
                                 AFTERIDATE)) collect (CONS FILE DATE))))])
)

(RPAQ? WRITEFULLSYSOUTFLAG T)

(RPAQQ COPYRIGHTFLG NIL)
(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 (1189 7662 (LOADFULLFONTS 1199 . 3703) (MAKEFULLSYSOUT 3705 . 7416) (FIXMETA 7418 . 7660
)) (7678 10617 (LoadPatches 7688 . 9636) (COLLECT-PATCH-FILES 9638 . 10615)))))
STOP
\ No newline at end of file
diff --git a/makesysout/makefullsysout.LCOM b/makesysout/makefullsysout.LCOM
deleted file mode 100644
index 213de792..00000000
Binary files a/makesysout/makefullsysout.LCOM and /dev/null differ
diff --git a/makesysout/makefullsysout.LCOM.~3~ b/makesysout/makefullsysout.LCOM.~3~
deleted file mode 100644
index fe3fcb38..00000000
Binary files a/makesysout/makefullsysout.LCOM.~3~ and /dev/null differ
diff --git a/makesysout/makefullsysout.~100~ b/makesysout/makefullsysout.~100~
deleted file mode 100644
index 7e3622ce..00000000
--- a/makesysout/makefullsysout.~100~
+++ /dev/null
@@ -1 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "24-Aug-2020 20:43:30" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;100 14111  

      changes to%:  (FNS LOADNFS MAKEFULLSYSOUT)

      previous date%: "11-Aug-2020 17:53:49" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;99)


(PRETTYCOMPRINT MAKEFULLSYSOUTCOMS)

(RPAQQ MAKEFULLSYSOUTCOMS
       ((COMMANDS "cd" "pwd" "ls")
        (FNS LOADFULLFONTS LOADNFS MAKEFULLSYSOUT PAGEHEIGHT FIXMETA)
        (P (FIXMETA))
        (FNS LoadPatches COLLECT-PATCH-FILES)
        (INITVARS (WRITEFULLSYSOUTFLAG T))
        (VARS (COPYRIGHTFLG NIL))
        (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])

(LOADNFS
  [LAMBDA NIL                                           (* ; "Edited 24-Aug-2020 20:38 by rmk:")
                                                             (* ; 
                                                           "Edited  8-Jun-94 14:20 by kaplan")
                                                             (* ; "Edited 16-Mar-90 14:07 by bbb")

(* ;;; "Function assumes that all directories are properly set")

(* ;;; "loads MINI-NFS and other related files")

    (* ;; "Moved UNIXCOMM, UNIXCHAT into the main MAKEFULLSYSOUT")

    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           MINI-NFS)
    [COND
       (T                                                    (* ; 
                                       "Load Bill's patch to allow Sun users to refer to server/n.")
          (FILESLOAD (SYSLOAD)
                 UFSNFS))
       (T 
          (* ;; "Pray...")

          (\DEFINEDEVICE 'nfs 'dsk]
    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           RPCOS)
    (FILESLOAD (SYSLOAD)
           RWALLSERVER NFSPROTECTION])

(MAKEFULLSYSOUT
  [LAMBDA NIL                                                (* ; 
                                                           "Edited 14-May-2018 15:01 by kaplan")
                                                             (* ; 
                                                           "Edited 24-Aug-2020 20:43 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")
                                                             (* ; "Edited  2-Apr-90 14:42 by bbb")

(* ;;; "This file makes xfull35.sysout based on Venue's Lisp.sysout 3.5.  Start LISP.SYSOUT, connect to MEDLEYDIR for Lisp, connect to MEDLEYDIR/lispcore for lispcore.  Then load makefullsysout/MAKEFULLSYSOUT.LCOM.")

(* ;;; "If sysout looks good, copy to release (basics?)")

(* ;;; "")

    (CLRPROMPT)
    (CNDIR (UNIX-GETENV "LOADUPDIR"))
    (LET ((ROOTDIRECTORY (DIRECTORYNAME T)))                 (* ; 
                                                        "E.g. medley3.5/lisp or medley3.5/lispcore")
         (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "xfull35.sysout"))
                                                             (* ; "Should bind MAKESYSFILENAME")
         (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))
         (SETQ LISPSOURCEDIRECTORIES (LIST (PACK* ROOTDIRECTORY "sources")))
         (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "library")
                                          (PACK* ROOTDIRECTORY "lispusers")))
         (SETQ DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES DIRECTORIES))
         (SETQ LOADUPDIRECTORIES DIRECTORIES)

         (* ;; "(FILESLOAD (SYSLOAD FROM VALUEOF (PACK* ROOTDIRECTORY %"patches%")) FINDFONTPATCH)")

         (LOADUP '(POSTSCRIPTSTREAM))                        (* ; " to get PSCFONT.READFONT")
         (LOADFULLFONTS ROOTDIRECTORY)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
         (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)           (* ; "Skip DOSPRINT, assume only UNIX")
         (LOADUP '(CHAT NSCHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES 
                        GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT 
                        UNICODE ISO8859IO CLIPBOARD MACINTERFACE))

         (* ;; "Useful SSL stuff ")

         (AND NIL (FILESLOAD (SYSLOAD)
                         NSMAINTAIN NSPROTECTION))
         (FILESLOAD (SYSLOAD)
                PRETTYFILEINDEX WHO-LINE NSCOPYFILE)

         (* ;; "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]
         (FILELOAD (SYSLOAD)
                UNIXCOMM UNIXCHAT UNIXTELNET)
         (CL:WHEN NIL
             (FILESLOAD (SYSLOAD)
                    ARCHIVETOOL)
             (SETQ CH.DEFAULT.DOMAIN "PARC")
             (SETQ CH.DEFAULT.ORGANIZATION "XEROX")
             (LOADNFS)

             (* ;; "Load in the newest Lafite")

             (FILESLOAD (SYSLOAD)
                    LAFITE MIME LAFITE-INDENT NSMAIL NEWNSMAIL UNIXMAIL)
             (FILESLOAD (SYSLOAD)
                    SYSTEM33))
         (FILESLOAD (SYSLOAD)
                SETDEFAULTPRINTER)

         (* ;; "Load the patches last")

         (FILESLOAD (SYSLOAD)
                LOADPATCHES)
         (LoadPatches (PACK* ROOTDIRECTORY "patches>")
                'SYSLOAD NIL)

         (* ;; "Turn on Meta key for Dorados:  (METASHIFT T)")

         (\DAYTIME0 \LASTUSERACTION)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 20)
         (FOR TYPE IN FILEPKTYPES DO (FILEPKGCHANGES TYPE NIL))
         (PACK* ROOTDIRECTORY "xfull35.sysout")
         (SETTOPVAL 'INITIALS NIL)
         (PROMPTPRINT "About to end loadup")
         (PRINTOUT T "About to end loadup" T)

         (* ;; "From SYNCLISPFILES")

         (ENDLOADUP)
         (CL:WHEN LOGOW (CLOSEW LOGOW))
         (LOGOW)
         (PUSH AFTERMAKESYSFORMS '(CLRPROMPT))

         (* ;; "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])

(PAGEHEIGHT
  [LAMBDA (N)                                          (* ; "Edited 20-Jul-88 10:13 by Burwell")

    (* ;; "sets the page height in lines of the screen.")

    (* ;; "20-Jul-88:  Took out the (SETQ \CURRENTDISPLAYLINE 0)")

    (PROG1 \#DISPLAYLINES
        (COND
           ((NUMBERP N)
            (SETQ \#DISPLAYLINES N))))])

(FIXMETA
  [LAMBDA NIL                                           (* ; "Edited 25-Jun-2017 17:12 by rmk:")
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
           \CURRENTKEYACTION)
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)

(FIXMETA)
(DEFINEQ

(LoadPatches
  [LAMBDA (DIRECTORY LDFLG AFTERDATE)                    (* ; "Edited  7-Feb-92 11:50 by bbb")

(* ;;; "Load all compiled files from the directory")

    (DECLARE (GLOBALVARS *COMPILED-EXTENSIONS*))
    (LET [(files (SORT (for EXT in *COMPILED-EXTENSIONS*
                          bind (AFTERIDATE _ (if AFTERDATE
                                                     then (OR (IDATE AFTERDATE)
                                                                  0)
                                                   else 0)) join (COLLECT-PATCH-FILES
                                                                          (DIRECTORYNAME DIRECTORY)
                                                                          EXT AFTERIDATE))
                       (FUNCTION (LAMBDA (X Y)
                                   (LESSP (CDR X)
                                          (CDR Y]            (* ; 
                                                           "files are sorted by increasing date")
         (for file in files do (SELECTQ LDFLG
                                               (HIDDEN       (* ; 
                                                       "Load the file, but don't put it on FILELST")
                                                       (LOAD? (CAR file)
                                                              T)
                                                       (SETQ FILELST (DREMOVE (FILENAMEFIELD
                                                                               (CAR file)
                                                                               'NAME)
                                                                            FILELST)))
                                               (LOAD? (CAR file)
                                                      LDFLG)))
         files])

(COLLECT-PATCH-FILES
  [LAMBDA (DIRECTORY EXT AFTERIDATE)                     (* ; "Edited  7-Feb-92 11:49 by bbb")

    (* ;; "Generate list of files in DIRECTORY with extension EXT more recent than idate AFTERIDATE.  Return list of pairs (file . date).  Omits subdirectories.")

    (RESETLST
        (LET ((FILING.ENUMERATION.DEPTH 1)
              (NAKED-DIR (UNPACKFILENAME.STRING DIRECTORY 'DIRECTORY))
              FILE DATE)
             (bind [GEN _ (\GENERATEFILES (CONCAT DIRECTORY "*." EXT ";")
                                     '(ICREATIONDATE)
                                     '(SORT RESETLST] while (SETQ FILE (\GENERATENEXTFILE GEN))
                when (AND (STRING-EQUAL (UNPACKFILENAME.STRING FILE 'DIRECTORY)
                                     NAKED-DIR)
                              (> (SETQ DATE (\GENERATEFILEINFO GEN 'ICREATIONDATE))
                                 AFTERIDATE)) collect (CONS FILE DATE))))])
)

(RPAQ? WRITEFULLSYSOUTFLAG T)

(RPAQQ COPYRIGHTFLG NIL)
(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 (1028 10785 (LOADFULLFONTS 1038 . 3477) (LOADNFS 3479 . 4613) (MAKEFULLSYSOUT 4615 . 
10176) (PAGEHEIGHT 10178 . 10539) (FIXMETA 10541 . 10783)) (10801 13740 (LoadPatches 10811 . 12759) (
COLLECT-PATCH-FILES 12761 . 13738)))))
STOP
\ No newline at end of file
diff --git a/makesysout/makefullsysout.~101~ b/makesysout/makefullsysout.~101~
deleted file mode 100644
index 1a4c1d83..00000000
--- a/makesysout/makefullsysout.~101~
+++ /dev/null
@@ -1 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED " 5-Sep-2020 17:07:26" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;101 14198  

      changes to%:  (COMMANDS "cd" "pwd" "ls")
                    (VARS MAKEFULLSYSOUTCOMS)
                    (FNS MAKEFULLSYSOUT)

      previous date%: "24-Aug-2020 20:43:30" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;100)


(PRETTYCOMPRINT MAKEFULLSYSOUTCOMS)

(RPAQQ MAKEFULLSYSOUTCOMS
       ((COMMANDS "cd" "pwd" "ls")
        (FNS LOADFULLFONTS LOADNFS MAKEFULLSYSOUT PAGEHEIGHT FIXMETA)
        (P (FIXMETA))
        (FNS LoadPatches COLLECT-PATCH-FILES)
        (INITVARS (WRITEFULLSYSOUTFLAG T))
        (VARS (COPYRIGHTFLG NIL))
        (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])

(LOADNFS
  [LAMBDA NIL                                           (* ; "Edited 24-Aug-2020 20:38 by rmk:")
                                                             (* ; 
                                                           "Edited  8-Jun-94 14:20 by kaplan")
                                                             (* ; "Edited 16-Mar-90 14:07 by bbb")

(* ;;; "Function assumes that all directories are properly set")

(* ;;; "loads MINI-NFS and other related files")

    (* ;; "Moved UNIXCOMM, UNIXCHAT into the main MAKEFULLSYSOUT")

    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           MINI-NFS)
    [COND
       (T                                                    (* ; 
                                       "Load Bill's patch to allow Sun users to refer to server/n.")
          (FILESLOAD (SYSLOAD)
                 UFSNFS))
       (T 
          (* ;; "Pray...")

          (\DEFINEDEVICE 'nfs 'dsk]
    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           RPCOS)
    (FILESLOAD (SYSLOAD)
           RWALLSERVER NFSPROTECTION])

(MAKEFULLSYSOUT
  [LAMBDA NIL                                                (* ; 
                                                           "Edited 14-May-2018 15:01 by kaplan")
                                                             (* ; 
                                                           "Edited  5-Sep-2020 17:06 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")
                                                             (* ; "Edited  2-Apr-90 14:42 by bbb")

(* ;;; "This file makes xfull35.sysout based on Venue's Lisp.sysout 3.5.  Start LISP.SYSOUT, connect to MEDLEYDIR for Lisp, connect to MEDLEYDIR/lispcore for lispcore.  Then load makefullsysout/MAKEFULLSYSOUT.LCOM.")

(* ;;; "If sysout looks good, copy to release (basics?)")

(* ;;; "")

    (CLRPROMPT)
    (CNDIR (UNIX-GETENV "LOADUPDIR"))
    (LET ((ROOTDIRECTORY (DIRECTORYNAME T)))                 (* ; 
                                                        "E.g. medley3.5/lisp or medley3.5/lispcore")
         (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "xfull35.sysout"))
                                                             (* ; "Should bind MAKESYSFILENAME")
         (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))
         (SETQ LISPSOURCEDIRECTORIES (LIST (PACK* ROOTDIRECTORY "sources")))
         (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "library")
                                          (PACK* ROOTDIRECTORY "lispusers")))
         (SETQ DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES DIRECTORIES))
         (SETQ LOADUPDIRECTORIES DIRECTORIES)

         (* ;; "(FILESLOAD (SYSLOAD FROM VALUEOF (PACK* ROOTDIRECTORY %"patches%")) FINDFONTPATCH)")

         (LOADUP '(POSTSCRIPTSTREAM))                        (* ; " to get PSCFONT.READFONT")
         (LOADFULLFONTS ROOTDIRECTORY)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
         (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)           (* ; "Skip DOSPRINT, assume only UNIX")
         (LOADUP '(CHAT NSCHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES 
                        GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT 
                        UNICODE ISO8859IO CLIPBOARD MACINTERFACE))

         (* ;; "Useful SSL stuff ")

         (AND NIL (FILESLOAD (SYSLOAD)
                         NSMAINTAIN NSPROTECTION))
         (FILESLOAD (SYSLOAD)
                PRETTYFILEINDEX WHO-LINE NSCOPYFILE)

         (* ;; "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)
         (CL:WHEN NIL
             (FILESLOAD (SYSLOAD)
                    ARCHIVETOOL)
             (SETQ CH.DEFAULT.DOMAIN "PARC")
             (SETQ CH.DEFAULT.ORGANIZATION "XEROX")
             (LOADNFS)

             (* ;; "Load in the newest Lafite")

             (FILESLOAD (SYSLOAD)
                    LAFITE MIME LAFITE-INDENT NSMAIL NEWNSMAIL UNIXMAIL)
             (FILESLOAD (SYSLOAD)
                    SYSTEM33))
         (FILESLOAD (SYSLOAD)
                SETDEFAULTPRINTER)

         (* ;; "Load the patches last")

         (FILESLOAD (SYSLOAD)
                LOADPATCHES)
         (LoadPatches (PACK* ROOTDIRECTORY "patches>")
                'SYSLOAD NIL)

         (* ;; "Turn on Meta key for Dorados:  (METASHIFT T)")

         (\DAYTIME0 \LASTUSERACTION)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 20)
         (FOR TYPE IN FILEPKTYPES DO (FILEPKGCHANGES TYPE NIL))
         (PACK* ROOTDIRECTORY "xfull35.sysout")
         (SETTOPVAL 'INITIALS NIL)
         (PROMPTPRINT "About to end loadup")
         (PRINTOUT T "About to end loadup" T)

         (* ;; "From SYNCLISPFILES")

         (ENDLOADUP)
         (CL:WHEN LOGOW (CLOSEW LOGOW))
         (LOGOW)
         (PUSH AFTERMAKESYSFORMS '(CLRPROMPT))

         (* ;; "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])

(PAGEHEIGHT
  [LAMBDA (N)                                          (* ; "Edited 20-Jul-88 10:13 by Burwell")

    (* ;; "sets the page height in lines of the screen.")

    (* ;; "20-Jul-88:  Took out the (SETQ \CURRENTDISPLAYLINE 0)")

    (PROG1 \#DISPLAYLINES
        (COND
           ((NUMBERP N)
            (SETQ \#DISPLAYLINES N))))])

(FIXMETA
  [LAMBDA NIL                                           (* ; "Edited 25-Jun-2017 17:12 by rmk:")
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
           \CURRENTKEYACTION)
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)

(FIXMETA)
(DEFINEQ

(LoadPatches
  [LAMBDA (DIRECTORY LDFLG AFTERDATE)                    (* ; "Edited  7-Feb-92 11:50 by bbb")

(* ;;; "Load all compiled files from the directory")

    (DECLARE (GLOBALVARS *COMPILED-EXTENSIONS*))
    (LET [(files (SORT (for EXT in *COMPILED-EXTENSIONS*
                          bind (AFTERIDATE _ (if AFTERDATE
                                                     then (OR (IDATE AFTERDATE)
                                                                  0)
                                                   else 0)) join (COLLECT-PATCH-FILES
                                                                          (DIRECTORYNAME DIRECTORY)
                                                                          EXT AFTERIDATE))
                       (FUNCTION (LAMBDA (X Y)
                                   (LESSP (CDR X)
                                          (CDR Y]            (* ; 
                                                           "files are sorted by increasing date")
         (for file in files do (SELECTQ LDFLG
                                               (HIDDEN       (* ; 
                                                       "Load the file, but don't put it on FILELST")
                                                       (LOAD? (CAR file)
                                                              T)
                                                       (SETQ FILELST (DREMOVE (FILENAMEFIELD
                                                                               (CAR file)
                                                                               'NAME)
                                                                            FILELST)))
                                               (LOAD? (CAR file)
                                                      LDFLG)))
         files])

(COLLECT-PATCH-FILES
  [LAMBDA (DIRECTORY EXT AFTERIDATE)                     (* ; "Edited  7-Feb-92 11:49 by bbb")

    (* ;; "Generate list of files in DIRECTORY with extension EXT more recent than idate AFTERIDATE.  Return list of pairs (file . date).  Omits subdirectories.")

    (RESETLST
        (LET ((FILING.ENUMERATION.DEPTH 1)
              (NAKED-DIR (UNPACKFILENAME.STRING DIRECTORY 'DIRECTORY))
              FILE DATE)
             (bind [GEN _ (\GENERATEFILES (CONCAT DIRECTORY "*." EXT ";")
                                     '(ICREATIONDATE)
                                     '(SORT RESETLST] while (SETQ FILE (\GENERATENEXTFILE GEN))
                when (AND (STRING-EQUAL (UNPACKFILENAME.STRING FILE 'DIRECTORY)
                                     NAKED-DIR)
                              (> (SETQ DATE (\GENERATEFILEINFO GEN 'ICREATIONDATE))
                                 AFTERIDATE)) collect (CONS FILE DATE))))])
)

(RPAQ? WRITEFULLSYSOUTFLAG T)

(RPAQQ COPYRIGHTFLG NIL)
(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 (1114 10872 (LOADFULLFONTS 1124 . 3563) (LOADNFS 3565 . 4699) (MAKEFULLSYSOUT 4701 . 
10263) (PAGEHEIGHT 10265 . 10626) (FIXMETA 10628 . 10870)) (10888 13827 (LoadPatches 10898 . 12846) (
COLLECT-PATCH-FILES 12848 . 13825)))))
STOP
\ No newline at end of file
diff --git a/makesysout/makefullsysout.~102~ b/makesysout/makefullsysout.~102~
deleted file mode 100644
index 2420f565..00000000
--- a/makesysout/makefullsysout.~102~
+++ /dev/null
@@ -1 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "28-Sep-2020 12:35:06" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;102 14114  

      changes to%:  (FNS MAKEFULLSYSOUT)

      previous date%: " 5-Sep-2020 17:07:26" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;101)


(PRETTYCOMPRINT MAKEFULLSYSOUTCOMS)

(RPAQQ MAKEFULLSYSOUTCOMS
       ((COMMANDS "cd" "pwd" "ls")
        (FNS LOADFULLFONTS LOADNFS MAKEFULLSYSOUT PAGEHEIGHT FIXMETA)
        (P (FIXMETA))
        (FNS LoadPatches COLLECT-PATCH-FILES)
        (INITVARS (WRITEFULLSYSOUTFLAG T))
        (VARS (COPYRIGHTFLG NIL))
        (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])

(LOADNFS
  [LAMBDA NIL                                           (* ; "Edited 24-Aug-2020 20:38 by rmk:")
                                                             (* ; 
                                                           "Edited  8-Jun-94 14:20 by kaplan")
                                                             (* ; "Edited 16-Mar-90 14:07 by bbb")

(* ;;; "Function assumes that all directories are properly set")

(* ;;; "loads MINI-NFS and other related files")

    (* ;; "Moved UNIXCOMM, UNIXCHAT into the main MAKEFULLSYSOUT")

    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           MINI-NFS)
    [COND
       (T                                                    (* ; 
                                       "Load Bill's patch to allow Sun users to refer to server/n.")
          (FILESLOAD (SYSLOAD)
                 UFSNFS))
       (T 
          (* ;; "Pray...")

          (\DEFINEDEVICE 'nfs 'dsk]
    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           RPCOS)
    (FILESLOAD (SYSLOAD)
           RWALLSERVER NFSPROTECTION])

(MAKEFULLSYSOUT
  [LAMBDA NIL                                                (* ; 
                                                           "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")
                                                             (* ; "Edited  2-Apr-90 14:42 by bbb")

(* ;;; "This file makes xfull35.sysout based on Venue's Lisp.sysout 3.5.  Start LISP.SYSOUT, connect to MEDLEYDIR for Lisp, connect to MEDLEYDIR/lispcore for lispcore.  Then load makefullsysout/MAKEFULLSYSOUT.LCOM.")

(* ;;; "If sysout looks good, copy to release (basics?)")

(* ;;; "")

    (CLRPROMPT)
    (CNDIR (UNIX-GETENV "LOADUPDIR"))
    (LET ((ROOTDIRECTORY (DIRECTORYNAME T)))                 (* ; 
                                                        "E.g. medley3.5/lisp or medley3.5/lispcore")
         (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "/loadups/xfull35.sysout"))
                                                             (* ; "Should bind MAKESYSFILENAME")
         (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))
         (SETQ LISPSOURCEDIRECTORIES (LIST (PACK* ROOTDIRECTORY "sources")))
         (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "library")
                                          (PACK* ROOTDIRECTORY "lispusers")))
         (SETQ DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES DIRECTORIES))
         (SETQ LOADUPDIRECTORIES DIRECTORIES)

         (* ;; "(FILESLOAD (SYSLOAD FROM VALUEOF (PACK* ROOTDIRECTORY %"patches%")) FINDFONTPATCH)")

         (LOADUP '(POSTSCRIPTSTREAM))                        (* ; " to get PSCFONT.READFONT")
         (LOADFULLFONTS ROOTDIRECTORY)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
         (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)           (* ; "Skip DOSPRINT, assume only UNIX")
         (LOADUP '(CHAT NSCHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES 
                        GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT 
                        UNICODE ISO8859IO CLIPBOARD MACINTERFACE))

         (* ;; "Useful SSL stuff ")

         (AND NIL (FILESLOAD (SYSLOAD)
                         NSMAINTAIN NSPROTECTION))
         (FILESLOAD (SYSLOAD)
                PRETTYFILEINDEX WHO-LINE NSCOPYFILE)

         (* ;; "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)
         (CL:WHEN NIL
             (FILESLOAD (SYSLOAD)
                    ARCHIVETOOL)
             (SETQ CH.DEFAULT.DOMAIN "PARC")
             (SETQ CH.DEFAULT.ORGANIZATION "XEROX")
             (LOADNFS)

             (* ;; "Load in the newest Lafite")

             (FILESLOAD (SYSLOAD)
                    LAFITE MIME LAFITE-INDENT NSMAIL NEWNSMAIL UNIXMAIL)
             (FILESLOAD (SYSLOAD)
                    SYSTEM33))
         (FILESLOAD (SYSLOAD)
                SETDEFAULTPRINTER)

         (* ;; "Load the patches last")

         (FILESLOAD (SYSLOAD)
                LOADPATCHES)
         (LoadPatches (PACK* ROOTDIRECTORY "patches>")
                'SYSLOAD NIL)

         (* ;; "Turn on Meta key for Dorados:  (METASHIFT T)")

         (\DAYTIME0 \LASTUSERACTION)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 20)
         (FOR TYPE IN FILEPKTYPES DO (FILEPKGCHANGES TYPE NIL))
         (PACK* ROOTDIRECTORY "xfull35.sysout")
         (SETTOPVAL 'INITIALS NIL)
         (PROMPTPRINT "About to end loadup")
         (PRINTOUT T "About to end loadup" T)

         (* ;; "From SYNCLISPFILES")

         (ENDLOADUP)
         (CL:WHEN LOGOW (CLOSEW LOGOW))
         (LOGOW)
         (PUSH AFTERMAKESYSFORMS '(CLRPROMPT))

         (* ;; "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])

(PAGEHEIGHT
  [LAMBDA (N)                                          (* ; "Edited 20-Jul-88 10:13 by Burwell")

    (* ;; "sets the page height in lines of the screen.")

    (* ;; "20-Jul-88:  Took out the (SETQ \CURRENTDISPLAYLINE 0)")

    (PROG1 \#DISPLAYLINES
        (COND
           ((NUMBERP N)
            (SETQ \#DISPLAYLINES N))))])

(FIXMETA
  [LAMBDA NIL                                           (* ; "Edited 25-Jun-2017 17:12 by rmk:")
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
           \CURRENTKEYACTION)
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)

(FIXMETA)
(DEFINEQ

(LoadPatches
  [LAMBDA (DIRECTORY LDFLG AFTERDATE)                    (* ; "Edited  7-Feb-92 11:50 by bbb")

(* ;;; "Load all compiled files from the directory")

    (DECLARE (GLOBALVARS *COMPILED-EXTENSIONS*))
    (LET [(files (SORT (for EXT in *COMPILED-EXTENSIONS*
                          bind (AFTERIDATE _ (if AFTERDATE
                                                     then (OR (IDATE AFTERDATE)
                                                                  0)
                                                   else 0)) join (COLLECT-PATCH-FILES
                                                                          (DIRECTORYNAME DIRECTORY)
                                                                          EXT AFTERIDATE))
                       (FUNCTION (LAMBDA (X Y)
                                   (LESSP (CDR X)
                                          (CDR Y]            (* ; 
                                                           "files are sorted by increasing date")
         (for file in files do (SELECTQ LDFLG
                                               (HIDDEN       (* ; 
                                                       "Load the file, but don't put it on FILELST")
                                                       (LOAD? (CAR file)
                                                              T)
                                                       (SETQ FILELST (DREMOVE (FILENAMEFIELD
                                                                               (CAR file)
                                                                               'NAME)
                                                                            FILELST)))
                                               (LOAD? (CAR file)
                                                      LDFLG)))
         files])

(COLLECT-PATCH-FILES
  [LAMBDA (DIRECTORY EXT AFTERIDATE)                     (* ; "Edited  7-Feb-92 11:49 by bbb")

    (* ;; "Generate list of files in DIRECTORY with extension EXT more recent than idate AFTERIDATE.  Return list of pairs (file . date).  Omits subdirectories.")

    (RESETLST
        (LET ((FILING.ENUMERATION.DEPTH 1)
              (NAKED-DIR (UNPACKFILENAME.STRING DIRECTORY 'DIRECTORY))
              FILE DATE)
             (bind [GEN _ (\GENERATEFILES (CONCAT DIRECTORY "*." EXT ";")
                                     '(ICREATIONDATE)
                                     '(SORT RESETLST] while (SETQ FILE (\GENERATENEXTFILE GEN))
                when (AND (STRING-EQUAL (UNPACKFILENAME.STRING FILE 'DIRECTORY)
                                     NAKED-DIR)
                              (> (SETQ DATE (\GENERATEFILEINFO GEN 'ICREATIONDATE))
                                 AFTERIDATE)) collect (CONS FILE DATE))))])
)

(RPAQ? WRITEFULLSYSOUTFLAG T)

(RPAQQ COPYRIGHTFLG NIL)
(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 (1021 10788 (LOADFULLFONTS 1031 . 3470) (LOADNFS 3472 . 4606) (MAKEFULLSYSOUT 4608 . 
10179) (PAGEHEIGHT 10181 . 10542) (FIXMETA 10544 . 10786)) (10804 13743 (LoadPatches 10814 . 12762) (
COLLECT-PATCH-FILES 12764 . 13741)))))
STOP
\ No newline at end of file
diff --git a/makesysout/makefullsysout.~15~ b/makesysout/makefullsysout.~15~
deleted file mode 100644
index f173e190..00000000
--- a/makesysout/makefullsysout.~15~
+++ /dev/null
@@ -1,161 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-(FILECREATED " 1-Jun-2000 15:49:13" {DSK}<project>medley3.5>makesysout>makefullsysout.;14 9535   
-
-      changes to%:  (FNS MAKEFULLSYSOUT)
-
-      previous date%: " 1-Jun-2000 15:44:41" {DSK}<project>medley3.5>makesysout>makefullsysout.;13)
-
-
-(* ; "
-Copyright (c) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 1920, 2000 by Xerox Corporation.  All rights reserved.
-")
-
-(PRETTYCOMPRINT MAKEFULLSYSOUTCOMS)
-
-(RPAQQ MAKEFULLSYSOUTCOMS [(COMMANDS "cd")
-                               (FNS LOADNFS MAKEFULLSYSOUT MEDLEYVERSION PAGEHEIGHT)
-                               (INITVARS (WRITEFULLSYSOUTFLAG T))
-                               (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS 
-                                      MISSINGCHARSETDISPLAYFONTCOERCIONS)
-                               (DECLARE%: DONTEVAL@LOAD (P (MAKEFULLSYSOUT])
-
-(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
-(DEFINEQ
-
-(LOADNFS
  [LAMBDA NIL                                                (* ; "Edited 11-Nov-98 22:01 by rmk:")
                                                             (* ; 
                                                           "Edited  8-Jun-94 14:20 by kaplan")
                                                             (* ; "Edited 16-Mar-90 14:07 by bbb")

(* ;;; "Function assumes that all directories are properly set")

(* ;;; "loads MINI-NFS and other related files")

    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           MINI-NFS)
    [COND
       (T                                                    (* ; 
                                       "Load Bill's patch to allow Sun users to refer to server/n.")
          (FILESLOAD (SYSLOAD)
                 UFSNFS))
       (T 
          (* ;; "Pray...")

          (\DEFINEDEVICE 'nfs 'dsk]
    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           RPCOS)
    (FILESLOAD (SYSLOAD)
           UNIXCOMM UNIXCHAT RWALLSERVER NFSPROTECTION])
-
-(MAKEFULLSYSOUT
-  [LAMBDA NIL                                           (* ; "Edited 28-May-2000 21:46 by rmk:")
-                                                             (* ; "Edited 23-Feb-94 15:04 by bvm")
-                                                             (* ; "Edited  2-Apr-90 14:42 by bbb")
-
-(* ;;; "This file makes a PARC sysout based on Venue's Lisp.sysout 3.5.  ")
-
-(* ;;; "Explicitly load the font patch")
-                                                             (* ; "To stop page holding")
-    (LET ((MEDVERSION (MEDLEYVERSION)))
-
-         (* ;; "BKSYSBUF stops page holding while also stuffing MAKESYS command")
-
-         (CL:WHEN WRITEFULLSYSOUTFLAG
-             (BKSYSBUF (CONCAT "(IL:MAKESYS " "%"{dsk}/project/medley" MEDVERSION 
-                              "/basics/full.sysout%"" " %"Medley " MEDVERSION " PARC Full Sysout%")")
-                    ))
-         (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)
-         (CLOSEW LOGOW)
-         (LOGOW)
-
-         (* ;; "Keep MCOM and MFASL so can transfer 2.0 files properly in 2.1 and 3.5")
-
-         (PUSH DEFAULTFILETYPELIST '(MCOM . BINARY)
-                '(MFASL . BINARY))
-         (PUSH DEFAULTFILETYPELIST '(TXT . TEXT)
-                '(TEXT . TEXT)
-                '(TEX . TEXT)
-                '(HTML . TEXT)
-                '(HTM . TEXT))
-         (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>patches>")
-                FINDFONTPATCH)
-         (PUSH LISPUSERSDIRECTORIES "{dsk}/project/medley3.5/library/" 
-                "{dsk}/project/medley3.5/lispusers/")
-         (PUSH DIRECTORIES "{dsk}/project/medley3.5/library/" 
-                "{dsk}/project/medley3.5/lispusers/")
-         (SETQ LOADUPDIRECTORIES DIRECTORIES)
-         (SETQ DISPLAYFONTDIRECTORIES '("{dsk}<import>Lisp>DisplayFonts>" "{dsk}<import>AltoFonts>"))
-         (SETQ INTERPRESSFONTDIRECTORIES '("{dsk}<import>Lisp>IPFonts>"))
-         (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE))
-         (SETQ POSTSCRIPTFONTDIRECTORIES '("{dsk}<import>Lisp>PostscriptFonts>"))
-         (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
-         (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
-         (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
-         (LOADUP '(CHAT NSCHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES 
-                        GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE POSTSCRIPTSTREAM
-                        UNIXPRINT DOSPRINT ISO8859IO))
-
-         (* ;; "Useful SSL stuff ")
-
-         (FILESLOAD (SYSLOAD)
-                NSMAINTAIN NSPROTECTION PRETTYFILEINDEX WHO-LINE NSCOPYFILE)
-
-         (* ;; "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]
-         (AND NIL (FILESLOAD (SYSLOAD)
-                         ARCHIVETOOL))
-         (SETQ CH.DEFAULT.DOMAIN "PARC")
-         (SETQ CH.DEFAULT.ORGANIZATION "XEROX")
-         (LOADNFS)
-
-         (* ;; "Load in the newest Lafite")
-
-         (FILESLOAD (SYSLOAD)
-                LAFITE MIME LAFITE-INDENT NSMAIL NEWNSMAIL UNIXMAIL UNIXTELNET)
-         (FILESLOAD (SYSLOAD)
-                SETDEFAULTPRINTER)
-         (AND NIL (FILESLOAD (SYSLOAD)
-                         SYSTEM33))
-
-         (* ;; "Load the patches last")
-
-         (FILESLOAD (SYSLOAD)
-                LOADPATCHES)
-         (LoadPatches '{dsk}<project>medley3.5>patches> 'SYSLOAD NIL)
-
-         (* ;; "Create font descriptors for the Interpress fonts first.  Do character set 0 and 357Q (octal) for each")
-
-         (PRINTOUT T "Interpress fonts..." T)
-         (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 (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'INTERPRESS
-                                                               NIL 0))
-                                               (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL
-                                                              0))
-                                               (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL
-                                                              239]
-                             (PRINTOUT T T))
-                    (SETQ DEFAULTPRINTERTYPE 'POSTSCRIPT)
-                    (FOR F IN (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
-                                                     "c0>*.*")) DO (PSCFONT.READFONT F)))
-
-         (* ;; "Turn on Meta key for Dorados:  (METASHIFT T)")
-
-         (\DAYTIME0 \LASTUSERACTION)
-         (LISTPUT IDLE.PROFILE 'TIMEOUT 20)
-         (FOR TYPE IN FILEPKTYPES DO (FILEPKGCHANGES TYPE NIL))
-         (ENDLOADUP)
-         (SETTOPVAL 'INITIALS NIL)
-         (SETTOPVAL 'LISPXHISTORY '(NIL 0 100 100])
-
-(MEDLEYVERSION
  [LAMBDA NIL                                                (* ; 
                                                           "Edited  6-Feb-2000 11:52 by rmk:")
                                                             (* ; 
                                                           "Edited  6-Feb-2000 11:50 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 35010) 
                       (* ;; "Perhaps we should separate 3.501 from 3.5, to keep track of patches, sysouts, etc. But that would require a new project directory, and that doesn't seem necessary, given that there aren't that many (perhaps none) legacy users of 3.5.  We can secretly update the 3.5 directories.")

             '|3.5|)
        (HELP "UNRECOGNIZED MEDLEY VERSION" (LISPVERSION])
-
-(PAGEHEIGHT
  [LAMBDA (N)                                          (* ; "Edited 20-Jul-88 10:13 by Burwell")

    (* ;; "sets the page height in lines of the screen.")

    (* ;; "20-Jul-88:  Took out the (SETQ \CURRENTDISPLAYLINE 0)")

    (PROG1 \#DISPLAYLINES
        (COND
           ((NUMBERP N)
            (SETQ \#DISPLAYLINES N))))])
-)
-
-(RPAQ? WRITEFULLSYSOUTFLAG T)
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS)
-)
-(DECLARE%: DONTEVAL@LOAD 
-
-(MAKEFULLSYSOUT)
-)
-(PUTPROPS MAKEFULLSYSOUT COPYRIGHT ("Xerox Corporation" 1992 1993 1994 1995 1996 1997 1998 1999 1920 
-2000))
-(DECLARE%: DONTCOPY
-  (FILEMAP (NIL (936 9204 (LOADNFS 946 . 2025) (MAKEFULLSYSOUT 2027 . 7813) (MEDLEYVERSION 7815 . 8839) 
-(PAGEHEIGHT 8841 . 9202)))))
-STOP
diff --git a/makesysout/makefullsysout.~96~ b/makesysout/makefullsysout.~96~
deleted file mode 100644
index 409290e9..00000000
--- a/makesysout/makefullsysout.~96~
+++ /dev/null
@@ -1 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "30-Jun-2020 01:21:18" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;96 13605  

      changes to%:  (FNS MAKEFULLSYSOUT)

      previous date%: "22-Dec-2018 17:29:14" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;95)


(PRETTYCOMPRINT MAKEFULLSYSOUTCOMS)

(RPAQQ MAKEFULLSYSOUTCOMS
       ((COMMANDS "cd" "pwd" "ls")
        (FNS LOADFULLFONTS LOADNFS MAKEFULLSYSOUT PAGEHEIGHT FIXMETA)
        (P (FIXMETA))
        (FNS LoadPatches COLLECT-PATCH-FILES)
        (INITVARS (WRITEFULLSYSOUTFLAG T))
        (VARS (COPYRIGHTFLG NIL))
        (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  3-Apr-2018 18:02 by rmk:")

    (* ;; "Create font descriptors for the Interpress fonts first.  Do character set 0 and 357Q (octal) for each")

    (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 (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'INTERPRESS NIL 0
                                                          ))
                                          (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL 0))
                                          (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL 239]
                        (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])

(LOADNFS
  [LAMBDA NIL                                                (* ; "Edited 11-Nov-98 22:01 by rmk:")
                                                             (* ; 
                                                           "Edited  8-Jun-94 14:20 by kaplan")
                                                             (* ; "Edited 16-Mar-90 14:07 by bbb")

(* ;;; "Function assumes that all directories are properly set")

(* ;;; "loads MINI-NFS and other related files")

    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           MINI-NFS)
    [COND
       (T                                                    (* ; 
                                       "Load Bill's patch to allow Sun users to refer to server/n.")
          (FILESLOAD (SYSLOAD)
                 UFSNFS))
       (T 
          (* ;; "Pray...")

          (\DEFINEDEVICE 'nfs 'dsk]
    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           RPCOS)
    (FILESLOAD (SYSLOAD)
           UNIXCOMM UNIXCHAT RWALLSERVER NFSPROTECTION])

(MAKEFULLSYSOUT
  [LAMBDA NIL                                                (* ; 
                                                           "Edited 14-May-2018 15:01 by kaplan")
                                                             (* ; 
                                                           "Edited 30-Jun-2020 01:21 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")
                                                             (* ; "Edited  2-Apr-90 14:42 by bbb")

(* ;;; "This file makes xfull35.sysout based on Venue's Lisp.sysout 3.5.  Start LISP.SYSOUT, connect to MEDLEYDIR for Lisp, connect to MEDLEYDIR/lispcore for lispcore.  Then load makefullsysout/MAKEFULLSYSOUT.LCOM.")

(* ;;; "If sysout looks good, copy to release (basics?)")

(* ;;; "")

    (CLRPROMPT)
    (CNDIR (UNIX-GETENV "LOADUPDIR"))
    (LET ((ROOTDIRECTORY (DIRECTORYNAME T)))                 (* ; 
                                                        "E.g. medley3.5/lisp or medley3.5/lispcore")
         (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "xfull35.sysout"))
                                                             (* ; "Should bind MAKESYSFILENAME")
         (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))
         (SETQ LISPSOURCEDIRECTORIES (LIST (PACK* ROOTDIRECTORY "sources")))
         (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "library")
                                          (PACK* ROOTDIRECTORY "lispusers")
                                          x))
         (SETQ DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES DIRECTORIES))
         (SETQ LOADUPDIRECTORIES DIRECTORIES)

         (* ;; "(FILESLOAD (SYSLOAD FROM VALUEOF (PACK* ROOTDIRECTORY %"patches%")) FINDFONTPATCH)")

         (LOADUP '(POSTSCRIPTSTREAM))                        (* ; " to get PSCFONT.READFONT")
         (LOADFULLFONTS ROOTDIRECTORY)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
         (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)           (* ; "Skip DOSPRINT, assume only UNIX")
         (LOADUP '(CHAT NSCHAT TEDIT CLIPBOARD HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER 
                        THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE 
                        UNIXPRINT ISO8859IO MACINTERFACE))

         (* ;; "Useful SSL stuff ")

         (AND NIL (FILESLOAD (SYSLOAD)
                         NSMAINTAIN NSPROTECTION))
         (FILESLOAD (SYSLOAD)
                PRETTYFILEINDEX WHO-LINE NSCOPYFILE)

         (* ;; "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]
         (AND NIL (FILESLOAD (SYSLOAD)
                         ARCHIVETOOL))
         (AND NIL (PROGN (SETQ CH.DEFAULT.DOMAIN "PARC")
                         (SETQ CH.DEFAULT.ORGANIZATION "XEROX")
                         (LOADNFS)

                         (* ;; "Load in the newest Lafite")

                         (FILESLOAD (SYSLOAD)
                                LAFITE MIME LAFITE-INDENT NSMAIL NEWNSMAIL UNIXMAIL UNIXTELNET)
                         (FILESLOAD (SYSLOAD)
                                SYSTEM33)))
         (FILESLOAD (SYSLOAD)
                SETDEFAULTPRINTER)

         (* ;; "Load the patches last")

         (FILESLOAD (SYSLOAD)
                LOADPATCHES)
         (LoadPatches (PACK* ROOTDIRECTORY "patches>")
                'SYSLOAD NIL)

         (* ;; "Turn on Meta key for Dorados:  (METASHIFT T)")

         (\DAYTIME0 \LASTUSERACTION)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 20)
         (FOR TYPE IN FILEPKTYPES DO (FILEPKGCHANGES TYPE NIL))
         (PACK* ROOTDIRECTORY "xfull35.sysout")
         (SETTOPVAL 'INITIALS NIL)
         (PROMPTPRINT "About to end loadup")
         (PRINTOUT T "About to end loadup" T)

         (* ;; "From SYNCLISPFILES")

         (ENDLOADUP)
         (CL:WHEN LOGOW (CLOSEW LOGOW))
         (LOGOW)
         (PUSH AFTERMAKESYSFORMS '(CLRPROMPT))

         (* ;; "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])

(PAGEHEIGHT
  [LAMBDA (N)                                          (* ; "Edited 20-Jul-88 10:13 by Burwell")

    (* ;; "sets the page height in lines of the screen.")

    (* ;; "20-Jul-88:  Took out the (SETQ \CURRENTDISPLAYLINE 0)")

    (PROG1 \#DISPLAYLINES
        (COND
           ((NUMBERP N)
            (SETQ \#DISPLAYLINES N))))])

(FIXMETA
  [LAMBDA NIL                                           (* ; "Edited 25-Jun-2017 17:12 by rmk:")
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
           \CURRENTKEYACTION)
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)

(FIXMETA)
(DEFINEQ

(LoadPatches
  [LAMBDA (DIRECTORY LDFLG AFTERDATE)                    (* ; "Edited  7-Feb-92 11:50 by bbb")

(* ;;; "Load all compiled files from the directory")

    (DECLARE (GLOBALVARS *COMPILED-EXTENSIONS*))
    (LET [(files (SORT (for EXT in *COMPILED-EXTENSIONS*
                          bind (AFTERIDATE _ (if AFTERDATE
                                                     then (OR (IDATE AFTERDATE)
                                                                  0)
                                                   else 0)) join (COLLECT-PATCH-FILES
                                                                          (DIRECTORYNAME DIRECTORY)
                                                                          EXT AFTERIDATE))
                       (FUNCTION (LAMBDA (X Y)
                                   (LESSP (CDR X)
                                          (CDR Y]            (* ; 
                                                           "files are sorted by increasing date")
         (for file in files do (SELECTQ LDFLG
                                               (HIDDEN       (* ; 
                                                       "Load the file, but don't put it on FILELST")
                                                       (LOAD? (CAR file)
                                                              T)
                                                       (SETQ FILELST (DREMOVE (FILENAMEFIELD
                                                                               (CAR file)
                                                                               'NAME)
                                                                            FILELST)))
                                               (LOAD? (CAR file)
                                                      LDFLG)))
         files])

(COLLECT-PATCH-FILES
  [LAMBDA (DIRECTORY EXT AFTERIDATE)                     (* ; "Edited  7-Feb-92 11:49 by bbb")

    (* ;; "Generate list of files in DIRECTORY with extension EXT more recent than idate AFTERIDATE.  Return list of pairs (file . date).  Omits subdirectories.")

    (RESETLST
        (LET ((FILING.ENUMERATION.DEPTH 1)
              (NAKED-DIR (UNPACKFILENAME.STRING DIRECTORY 'DIRECTORY))
              FILE DATE)
             (bind [GEN _ (\GENERATEFILES (CONCAT DIRECTORY "*." EXT ";")
                                     '(ICREATIONDATE)
                                     '(SORT RESETLST] while (SETQ FILE (\GENERATENEXTFILE GEN))
                when (AND (STRING-EQUAL (UNPACKFILENAME.STRING FILE 'DIRECTORY)
                                     NAKED-DIR)
                              (> (SETQ DATE (\GENERATEFILEINFO GEN 'ICREATIONDATE))
                                 AFTERIDATE)) collect (CONS FILE DATE))))])
)

(RPAQ? WRITEFULLSYSOUTFLAG T)

(RPAQQ COPYRIGHTFLG NIL)
(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 (1019 10279 (LOADFULLFONTS 1029 . 2968) (LOADNFS 2970 . 4049) (MAKEFULLSYSOUT 4051 . 
9670) (PAGEHEIGHT 9672 . 10033) (FIXMETA 10035 . 10277)) (10295 13234 (LoadPatches 10305 . 12253) (
COLLECT-PATCH-FILES 12255 . 13232)))))
STOP
\ No newline at end of file
diff --git a/makesysout/makefullsysout.~98~ b/makesysout/makefullsysout.~98~
deleted file mode 100644
index e73650c5..00000000
--- a/makesysout/makefullsysout.~98~
+++ /dev/null
@@ -1 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED " 1-Aug-2020 20:50:28" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;98 13569  

      changes to%:  (FNS MAKEFULLSYSOUT)

      previous date%: "30-Jun-2020 01:21:18" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;96)


(PRETTYCOMPRINT MAKEFULLSYSOUTCOMS)

(RPAQQ MAKEFULLSYSOUTCOMS
       ((COMMANDS "cd" "pwd" "ls")
        (FNS LOADFULLFONTS LOADNFS MAKEFULLSYSOUT PAGEHEIGHT FIXMETA)
        (P (FIXMETA))
        (FNS LoadPatches COLLECT-PATCH-FILES)
        (INITVARS (WRITEFULLSYSOUTFLAG T))
        (VARS (COPYRIGHTFLG NIL))
        (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  3-Apr-2018 18:02 by rmk:")

    (* ;; "Create font descriptors for the Interpress fonts first.  Do character set 0 and 357Q (octal) for each")

    (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 (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'INTERPRESS NIL 0
                                                          ))
                                          (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL 0))
                                          (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL 239]
                        (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])

(LOADNFS
  [LAMBDA NIL                                                (* ; "Edited 11-Nov-98 22:01 by rmk:")
                                                             (* ; 
                                                           "Edited  8-Jun-94 14:20 by kaplan")
                                                             (* ; "Edited 16-Mar-90 14:07 by bbb")

(* ;;; "Function assumes that all directories are properly set")

(* ;;; "loads MINI-NFS and other related files")

    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           MINI-NFS)
    [COND
       (T                                                    (* ; 
                                       "Load Bill's patch to allow Sun users to refer to server/n.")
          (FILESLOAD (SYSLOAD)
                 UFSNFS))
       (T 
          (* ;; "Pray...")

          (\DEFINEDEVICE 'nfs 'dsk]
    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           RPCOS)
    (FILESLOAD (SYSLOAD)
           UNIXCOMM UNIXCHAT RWALLSERVER NFSPROTECTION])

(MAKEFULLSYSOUT
  [LAMBDA NIL                                                (* ; 
                                                           "Edited 14-May-2018 15:01 by kaplan")
                                                             (* ; 
                                                           "Edited  1-Aug-2020 20:50 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")
                                                             (* ; "Edited  2-Apr-90 14:42 by bbb")

(* ;;; "This file makes xfull35.sysout based on Venue's Lisp.sysout 3.5.  Start LISP.SYSOUT, connect to MEDLEYDIR for Lisp, connect to MEDLEYDIR/lispcore for lispcore.  Then load makefullsysout/MAKEFULLSYSOUT.LCOM.")

(* ;;; "If sysout looks good, copy to release (basics?)")

(* ;;; "")

    (CLRPROMPT)
    (CNDIR (UNIX-GETENV "LOADUPDIR"))
    (LET ((ROOTDIRECTORY (DIRECTORYNAME T)))                 (* ; 
                                                        "E.g. medley3.5/lisp or medley3.5/lispcore")
         (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "xfull35.sysout"))
                                                             (* ; "Should bind MAKESYSFILENAME")
         (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))
         (SETQ LISPSOURCEDIRECTORIES (LIST (PACK* ROOTDIRECTORY "sources")))
         (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "library")
                                          (PACK* ROOTDIRECTORY "lispusers")))
         (SETQ DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES DIRECTORIES))
         (SETQ LOADUPDIRECTORIES DIRECTORIES)

         (* ;; "(FILESLOAD (SYSLOAD FROM VALUEOF (PACK* ROOTDIRECTORY %"patches%")) FINDFONTPATCH)")

         (LOADUP '(POSTSCRIPTSTREAM))                        (* ; " to get PSCFONT.READFONT")
         (LOADFULLFONTS ROOTDIRECTORY)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
         (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)           (* ; "Skip DOSPRINT, assume only UNIX")
         (LOADUP '(CHAT NSCHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES 
                        GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT 
                        UNICODE ISO8859IO CLIPBOARD MACINTERFACE))

         (* ;; "Useful SSL stuff ")

         (AND NIL (FILESLOAD (SYSLOAD)
                         NSMAINTAIN NSPROTECTION))
         (FILESLOAD (SYSLOAD)
                PRETTYFILEINDEX WHO-LINE NSCOPYFILE)

         (* ;; "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]
         (AND NIL (FILESLOAD (SYSLOAD)
                         ARCHIVETOOL))
         (AND NIL (PROGN (SETQ CH.DEFAULT.DOMAIN "PARC")
                         (SETQ CH.DEFAULT.ORGANIZATION "XEROX")
                         (LOADNFS)

                         (* ;; "Load in the newest Lafite")

                         (FILESLOAD (SYSLOAD)
                                LAFITE MIME LAFITE-INDENT NSMAIL NEWNSMAIL UNIXMAIL UNIXTELNET)
                         (FILESLOAD (SYSLOAD)
                                SYSTEM33)))
         (FILESLOAD (SYSLOAD)
                SETDEFAULTPRINTER)

         (* ;; "Load the patches last")

         (FILESLOAD (SYSLOAD)
                LOADPATCHES)
         (LoadPatches (PACK* ROOTDIRECTORY "patches>")
                'SYSLOAD NIL)

         (* ;; "Turn on Meta key for Dorados:  (METASHIFT T)")

         (\DAYTIME0 \LASTUSERACTION)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 20)
         (FOR TYPE IN FILEPKTYPES DO (FILEPKGCHANGES TYPE NIL))
         (PACK* ROOTDIRECTORY "xfull35.sysout")
         (SETTOPVAL 'INITIALS NIL)
         (PROMPTPRINT "About to end loadup")
         (PRINTOUT T "About to end loadup" T)

         (* ;; "From SYNCLISPFILES")

         (ENDLOADUP)
         (CL:WHEN LOGOW (CLOSEW LOGOW))
         (LOGOW)
         (PUSH AFTERMAKESYSFORMS '(CLRPROMPT))

         (* ;; "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])

(PAGEHEIGHT
  [LAMBDA (N)                                          (* ; "Edited 20-Jul-88 10:13 by Burwell")

    (* ;; "sets the page height in lines of the screen.")

    (* ;; "20-Jul-88:  Took out the (SETQ \CURRENTDISPLAYLINE 0)")

    (PROG1 \#DISPLAYLINES
        (COND
           ((NUMBERP N)
            (SETQ \#DISPLAYLINES N))))])

(FIXMETA
  [LAMBDA NIL                                           (* ; "Edited 25-Jun-2017 17:12 by rmk:")
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
           \CURRENTKEYACTION)
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)

(FIXMETA)
(DEFINEQ

(LoadPatches
  [LAMBDA (DIRECTORY LDFLG AFTERDATE)                    (* ; "Edited  7-Feb-92 11:50 by bbb")

(* ;;; "Load all compiled files from the directory")

    (DECLARE (GLOBALVARS *COMPILED-EXTENSIONS*))
    (LET [(files (SORT (for EXT in *COMPILED-EXTENSIONS*
                          bind (AFTERIDATE _ (if AFTERDATE
                                                     then (OR (IDATE AFTERDATE)
                                                                  0)
                                                   else 0)) join (COLLECT-PATCH-FILES
                                                                          (DIRECTORYNAME DIRECTORY)
                                                                          EXT AFTERIDATE))
                       (FUNCTION (LAMBDA (X Y)
                                   (LESSP (CDR X)
                                          (CDR Y]            (* ; 
                                                           "files are sorted by increasing date")
         (for file in files do (SELECTQ LDFLG
                                               (HIDDEN       (* ; 
                                                       "Load the file, but don't put it on FILELST")
                                                       (LOAD? (CAR file)
                                                              T)
                                                       (SETQ FILELST (DREMOVE (FILENAMEFIELD
                                                                               (CAR file)
                                                                               'NAME)
                                                                            FILELST)))
                                               (LOAD? (CAR file)
                                                      LDFLG)))
         files])

(COLLECT-PATCH-FILES
  [LAMBDA (DIRECTORY EXT AFTERIDATE)                     (* ; "Edited  7-Feb-92 11:49 by bbb")

    (* ;; "Generate list of files in DIRECTORY with extension EXT more recent than idate AFTERIDATE.  Return list of pairs (file . date).  Omits subdirectories.")

    (RESETLST
        (LET ((FILING.ENUMERATION.DEPTH 1)
              (NAKED-DIR (UNPACKFILENAME.STRING DIRECTORY 'DIRECTORY))
              FILE DATE)
             (bind [GEN _ (\GENERATEFILES (CONCAT DIRECTORY "*." EXT ";")
                                     '(ICREATIONDATE)
                                     '(SORT RESETLST] while (SETQ FILE (\GENERATENEXTFILE GEN))
                when (AND (STRING-EQUAL (UNPACKFILENAME.STRING FILE 'DIRECTORY)
                                     NAKED-DIR)
                              (> (SETQ DATE (\GENERATEFILEINFO GEN 'ICREATIONDATE))
                                 AFTERIDATE)) collect (CONS FILE DATE))))])
)

(RPAQ? WRITEFULLSYSOUTFLAG T)

(RPAQQ COPYRIGHTFLG NIL)
(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 (1019 10243 (LOADFULLFONTS 1029 . 2968) (LOADNFS 2970 . 4049) (MAKEFULLSYSOUT 4051 . 
9634) (PAGEHEIGHT 9636 . 9997) (FIXMETA 9999 . 10241)) (10259 13198 (LoadPatches 10269 . 12217) (
COLLECT-PATCH-FILES 12219 . 13196)))))
STOP
\ No newline at end of file
diff --git a/makesysout/makefullsysout.~99~ b/makesysout/makefullsysout.~99~
deleted file mode 100644
index 4c14c959..00000000
--- a/makesysout/makefullsysout.~99~
+++ /dev/null
@@ -1 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "11-Aug-2020 17:53:49" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;99 14068  

      changes to%:  (FNS LOADFULLFONTS)

      previous date%: " 1-Aug-2020 20:50:28" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;98)


(PRETTYCOMPRINT MAKEFULLSYSOUTCOMS)

(RPAQQ MAKEFULLSYSOUTCOMS
       ((COMMANDS "cd" "pwd" "ls")
        (FNS LOADFULLFONTS LOADNFS MAKEFULLSYSOUT PAGEHEIGHT FIXMETA)
        (P (FIXMETA))
        (FNS LoadPatches COLLECT-PATCH-FILES)
        (INITVARS (WRITEFULLSYSOUTFLAG T))
        (VARS (COPYRIGHTFLG NIL))
        (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])

(LOADNFS
  [LAMBDA NIL                                                (* ; "Edited 11-Nov-98 22:01 by rmk:")
                                                             (* ; 
                                                           "Edited  8-Jun-94 14:20 by kaplan")
                                                             (* ; "Edited 16-Mar-90 14:07 by bbb")

(* ;;; "Function assumes that all directories are properly set")

(* ;;; "loads MINI-NFS and other related files")

    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           MINI-NFS)
    [COND
       (T                                                    (* ; 
                                       "Load Bill's patch to allow Sun users to refer to server/n.")
          (FILESLOAD (SYSLOAD)
                 UFSNFS))
       (T 
          (* ;; "Pray...")

          (\DEFINEDEVICE 'nfs 'dsk]
    (FILESLOAD (SYSLOAD FROM "{dsk}<project>medley3.5>nfs>")
           RPCOS)
    (FILESLOAD (SYSLOAD)
           UNIXCOMM UNIXCHAT RWALLSERVER NFSPROTECTION])

(MAKEFULLSYSOUT
  [LAMBDA NIL                                                (* ; 
                                                           "Edited 14-May-2018 15:01 by kaplan")
                                                             (* ; 
                                                           "Edited  1-Aug-2020 20:50 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")
                                                             (* ; "Edited  2-Apr-90 14:42 by bbb")

(* ;;; "This file makes xfull35.sysout based on Venue's Lisp.sysout 3.5.  Start LISP.SYSOUT, connect to MEDLEYDIR for Lisp, connect to MEDLEYDIR/lispcore for lispcore.  Then load makefullsysout/MAKEFULLSYSOUT.LCOM.")

(* ;;; "If sysout looks good, copy to release (basics?)")

(* ;;; "")

    (CLRPROMPT)
    (CNDIR (UNIX-GETENV "LOADUPDIR"))
    (LET ((ROOTDIRECTORY (DIRECTORYNAME T)))                 (* ; 
                                                        "E.g. medley3.5/lisp or medley3.5/lispcore")
         (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "xfull35.sysout"))
                                                             (* ; "Should bind MAKESYSFILENAME")
         (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))
         (SETQ LISPSOURCEDIRECTORIES (LIST (PACK* ROOTDIRECTORY "sources")))
         (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "library")
                                          (PACK* ROOTDIRECTORY "lispusers")))
         (SETQ DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES DIRECTORIES))
         (SETQ LOADUPDIRECTORIES DIRECTORIES)

         (* ;; "(FILESLOAD (SYSLOAD FROM VALUEOF (PACK* ROOTDIRECTORY %"patches%")) FINDFONTPATCH)")

         (LOADUP '(POSTSCRIPTSTREAM))                        (* ; " to get PSCFONT.READFONT")
         (LOADFULLFONTS ROOTDIRECTORY)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
         (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)           (* ; "Skip DOSPRINT, assume only UNIX")
         (LOADUP '(CHAT NSCHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES 
                        GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT 
                        UNICODE ISO8859IO CLIPBOARD MACINTERFACE))

         (* ;; "Useful SSL stuff ")

         (AND NIL (FILESLOAD (SYSLOAD)
                         NSMAINTAIN NSPROTECTION))
         (FILESLOAD (SYSLOAD)
                PRETTYFILEINDEX WHO-LINE NSCOPYFILE)

         (* ;; "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]
         (AND NIL (FILESLOAD (SYSLOAD)
                         ARCHIVETOOL))
         (AND NIL (PROGN (SETQ CH.DEFAULT.DOMAIN "PARC")
                         (SETQ CH.DEFAULT.ORGANIZATION "XEROX")
                         (LOADNFS)

                         (* ;; "Load in the newest Lafite")

                         (FILESLOAD (SYSLOAD)
                                LAFITE MIME LAFITE-INDENT NSMAIL NEWNSMAIL UNIXMAIL UNIXTELNET)
                         (FILESLOAD (SYSLOAD)
                                SYSTEM33)))
         (FILESLOAD (SYSLOAD)
                SETDEFAULTPRINTER)

         (* ;; "Load the patches last")

         (FILESLOAD (SYSLOAD)
                LOADPATCHES)
         (LoadPatches (PACK* ROOTDIRECTORY "patches>")
                'SYSLOAD NIL)

         (* ;; "Turn on Meta key for Dorados:  (METASHIFT T)")

         (\DAYTIME0 \LASTUSERACTION)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 20)
         (FOR TYPE IN FILEPKTYPES DO (FILEPKGCHANGES TYPE NIL))
         (PACK* ROOTDIRECTORY "xfull35.sysout")
         (SETTOPVAL 'INITIALS NIL)
         (PROMPTPRINT "About to end loadup")
         (PRINTOUT T "About to end loadup" T)

         (* ;; "From SYNCLISPFILES")

         (ENDLOADUP)
         (CL:WHEN LOGOW (CLOSEW LOGOW))
         (LOGOW)
         (PUSH AFTERMAKESYSFORMS '(CLRPROMPT))

         (* ;; "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])

(PAGEHEIGHT
  [LAMBDA (N)                                          (* ; "Edited 20-Jul-88 10:13 by Burwell")

    (* ;; "sets the page height in lines of the screen.")

    (* ;; "20-Jul-88:  Took out the (SETQ \CURRENTDISPLAYLINE 0)")

    (PROG1 \#DISPLAYLINES
        (COND
           ((NUMBERP N)
            (SETQ \#DISPLAYLINES N))))])

(FIXMETA
  [LAMBDA NIL                                           (* ; "Edited 25-Jun-2017 17:12 by rmk:")
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
           \CURRENTKEYACTION)
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)

(FIXMETA)
(DEFINEQ

(LoadPatches
  [LAMBDA (DIRECTORY LDFLG AFTERDATE)                    (* ; "Edited  7-Feb-92 11:50 by bbb")

(* ;;; "Load all compiled files from the directory")

    (DECLARE (GLOBALVARS *COMPILED-EXTENSIONS*))
    (LET [(files (SORT (for EXT in *COMPILED-EXTENSIONS*
                          bind (AFTERIDATE _ (if AFTERDATE
                                                     then (OR (IDATE AFTERDATE)
                                                                  0)
                                                   else 0)) join (COLLECT-PATCH-FILES
                                                                          (DIRECTORYNAME DIRECTORY)
                                                                          EXT AFTERIDATE))
                       (FUNCTION (LAMBDA (X Y)
                                   (LESSP (CDR X)
                                          (CDR Y]            (* ; 
                                                           "files are sorted by increasing date")
         (for file in files do (SELECTQ LDFLG
                                               (HIDDEN       (* ; 
                                                       "Load the file, but don't put it on FILELST")
                                                       (LOAD? (CAR file)
                                                              T)
                                                       (SETQ FILELST (DREMOVE (FILENAMEFIELD
                                                                               (CAR file)
                                                                               'NAME)
                                                                            FILELST)))
                                               (LOAD? (CAR file)
                                                      LDFLG)))
         files])

(COLLECT-PATCH-FILES
  [LAMBDA (DIRECTORY EXT AFTERIDATE)                     (* ; "Edited  7-Feb-92 11:49 by bbb")

    (* ;; "Generate list of files in DIRECTORY with extension EXT more recent than idate AFTERIDATE.  Return list of pairs (file . date).  Omits subdirectories.")

    (RESETLST
        (LET ((FILING.ENUMERATION.DEPTH 1)
              (NAKED-DIR (UNPACKFILENAME.STRING DIRECTORY 'DIRECTORY))
              FILE DATE)
             (bind [GEN _ (\GENERATEFILES (CONCAT DIRECTORY "*." EXT ";")
                                     '(ICREATIONDATE)
                                     '(SORT RESETLST] while (SETQ FILE (\GENERATENEXTFILE GEN))
                when (AND (STRING-EQUAL (UNPACKFILENAME.STRING FILE 'DIRECTORY)
                                     NAKED-DIR)
                              (> (SETQ DATE (\GENERATEFILEINFO GEN 'ICREATIONDATE))
                                 AFTERIDATE)) collect (CONS FILE DATE))))])
)

(RPAQ? WRITEFULLSYSOUTFLAG T)

(RPAQQ COPYRIGHTFLG NIL)
(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 (1018 10742 (LOADFULLFONTS 1028 . 3467) (LOADNFS 3469 . 4548) (MAKEFULLSYSOUT 4550 . 
10133) (PAGEHEIGHT 10135 . 10496) (FIXMETA 10498 . 10740)) (10758 13697 (LoadPatches 10768 . 12716) (
COLLECT-PATCH-FILES 12718 . 13695)))))
STOP
\ No newline at end of file
