diff --git a/greetfiles/SIMPLE-INIT b/greetfiles/SIMPLE-INIT index 669e3b738..3f29108c4 100644 --- a/greetfiles/SIMPLE-INIT +++ b/greetfiles/SIMPLE-INIT @@ -1 +1 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Jan-2021 21:50:10" {DSK}larry>ilisp>medley>greetfiles>SIMPLE-INIT.;4 1186 changes to%: (VARS SIMPLE-INITCOMS) previous date%: " 6-Dec-2020 00:28:41" {DSK}larry>ilisp>medley>greetfiles>SIMPLE-INIT.;3 ) (PRETTYCOMPRINT SIMPLE-INITCOMS) (RPAQQ SIMPLE-INITCOMS ( (* ;;; " Previous content moved into SYNCLISPFILES ") [VARS (FILING.ENUMERATION.DEPTH 1) [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"] (USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT"] (P (SETQ MEDLEYDIR NIL) (MEDLEY-INIT-VARS)))) (* ;;; " Previous content moved into SYNCLISPFILES ") (RPAQQ FILING.ENUMERATION.DEPTH 1) (RPAQ LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME")))) (RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT"))) (SETQ MEDLEYDIR NIL) (MEDLEY-INIT-VARS) (DECLARE%: DONTCOPY (FILEMAP (NIL))) STOP \ No newline at end of file +(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 6-Feb-2021 16:44:35" {DSK}larry>ilisp>medley>greetfiles>SIMPLE-INIT.;4 2208 changes to%: (VARS SIMPLE-INITCOMS) previous date%: " 5-Feb-2021 12:57:29" {DSK}larry>ilisp>medley>greetfiles>SIMPLE-INIT.;3 ) (PRETTYCOMPRINT SIMPLE-INITCOMS) (RPAQQ SIMPLE-INITCOMS ( (* ;;; " Previous content moved into SYNCLISPFILES ") (VARS (FILING.ENUMERATION.DEPTH 1) [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"] [USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT"] (COPYRIGHTSRESERVED NIL)) [P (SETQ MEDLEYDIR NIL) (MEDLEY-INIT-VARS) (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE] (FNS INTERLISPMODE))) (* ;;; " Previous content moved into SYNCLISPFILES ") (RPAQQ FILING.ENUMERATION.DEPTH 1) (RPAQ LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME")))) (RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT"))) (RPAQQ COPYRIGHTSRESERVED NIL) (SETQ MEDLEYDIR NIL) (MEDLEY-INIT-VARS) (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE)) (DEFINEQ (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"]) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (1360 2185 (INTERLISPMODE 1370 . 2183))))) STOP \ No newline at end of file diff --git a/loadups/xfull35.dribble b/loadups/xfull35.dribble index ee1765bc2..d4bcd9a11 100644 --- a/loadups/xfull35.dribble +++ b/loadups/xfull35.dribble @@ -1 +1 @@ - Full loadup started at 1-Feb-2021 22:38:05 while connected to {DSK}kaplan>Local>medley3.5>git-medley> {DSK}kaplan>Local>medley3.5>git-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}kaplan>Local>medley3.5>git-medley>library>CHAT.LCOM;1 compiled on 25-Oct-93 12:23:25 File created 20-Jan-93 13:46:52 CHATCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>DMCHAT.LCOM;1 compiled on 25-Feb-93 18:08:53 File created 20-Jan-93 13:49:09 DMCHATCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>CHATTERMINAL.LCOM;1 compiled on 24-Feb-93 19:37:23 File created 4-Jul-90 02:21:01 CHATTERMINALCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDIT.LCOM;1 compiled on 18-May-2018 09:16:24 File created 19-Apr-2018 12:22:03 TEDITCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITDCL.LCOM;1 compiled on 18-May-2018 09:17:04 File created 25-Aug-94 10:53:00 TEDITDCLCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>PCTREE.LCOM;1 compiled on 18-May-2018 09:19:35 File created 19-Apr-2018 12:19:49 PCTREECOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEXTOFD.LCOM;1 compiled on 11-Feb-2001 12:06:43 File created 11-Feb-2001 12:06:42 TEXTOFDCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.LCOM;1 compiled on 18-May-2018 09:16:59 File created 20-Apr-2018 08:07:35 TEDITCOMMANDCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.LCOM;1 compiled on 18-May-2018 09:18:38 File created 25-Aug-94 13:26:23 TEDITSCREENCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.LCOM;1 compiled on 6-Aug-2020 14:52:14 File created 6-Aug-2020 14:52:14 TEDITABBREVCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITLOOKS.LCOM;1 compiled on 18-May-2018 09:17:44 File created 29-Jan-99 17:33:35 TEDITLOOKSCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITFIND.LCOM;1 compiled on 18-May-2018 09:17:21 File created 6-May-2018 17:34:44 TEDITFINDCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITHISTORY.LCOM;1 compiled on 18-May-2018 09:17:41 File created 29-Jan-99 17:34:39 TEDITHISTORYCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITFILE.LCOM;1 compiled on 18-May-2018 09:17:06 File created 19-May-2001 11:45:53 TEDITFILECOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.LCOM;1 compiled on 18-May-2018 09:18:51 File created 21-Jun-99 20:00:42 TEDITWINDOWCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITSELECTION.LCOM;1 compiled on 18-May-2018 09:18:43 File created 25-Aug-94 10:56:07 TEDITSELECTIONCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.LCOM;1 compiled on 8-Feb-97 11:26:32 File created 7-Dec-95 13:21:56 IMAGEOBJCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>EDITBITMAP.LCOM;1 compiled on 25-Feb-93 18:10:27 File created 11-Jun-90 15:42:25 EDITBITMAPCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>READNUMBER.LCOM;1 compiled on 16-Aug-95 11:18:52 File created 25-May-93 00:28:30 READNUMBERCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TFBRAVO.LCOM;1 compiled on 19-Apr-2018 12:19:55 File created 19-Apr-2018 12:19:55 TFBRAVOCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.LCOM;1 compiled on 18-May-2018 09:17:32 File created 25-Aug-94 10:54:07 TEDITHCPYCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITPAGE.LCOM;1 compiled on 18-May-2018 09:18:32 File created 25-Aug-94 10:55:28 TEDITPAGECOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITMENU.LCOM;1 compiled on 4-Jan-2021 13:48:55 File created 4-Jan-2021 13:48:43 TEDITMENUCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.LCOM;1 compiled on 18-May-2018 09:17:25 File created 6-May-2018 17:15:13 TEDITFNKEYSCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>HRULE.LCOM;1 compiled on 26-Feb-93 11:26:19 File created 8-Oct-92 16:50:21 HRULECOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITCHAT.LCOM;1 compiled on 18-May-2018 09:16:55 File created 28-Mar-94 16:05:24 IL:TEDITCHATCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.LCOM;1 compiled on 11-Sep-2001 09:26:17 File created 11-Sep-2001 09:26:14 {DSK}kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.LCOM;1 compiled on 1-Dec-2018 17:25:13 File created 1-Dec-2018 17:25:13 TABLEBROWSERCOMS {DSK}kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.LCOM;1 compiled on 26-Jun-99 00:47:00 File created 1-May-92 16:49:39 THINFILESCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>GRAPHER.LCOM;1 compiled on 14-May-2018 10:24:43 File created 14-May-2018 10:24:38 GRAPHERCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>SPY.LCOM;1 compiled on 23-Aug-94 16:33:38 File created 29-Apr-94 14:13:52 SPYCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>WHERE-IS.DFASL;1 XCL Compiler output for source file {DSK}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}kaplan>Local>medley3.5>git-medley>library>HASH-FILE.dfasl;1 XCL Compiler output for source file {PELE:MV:ENVOS}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}kaplan>Local>medley3.5>git-medley>library>CASH-FILE.DFASL;4 XCL Compiler output for source file {DSK}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}kaplan>Local>medley3.5>git-medley>library>COPYFILES.LCOM;1 compiled on 6-Apr-2018 21:14:29 File created 6-Apr-2018 21:14:29 COPYFILESCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>MSANALYZE.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSANALYZE.;5 Source file created Wednesday, 15 August 1990, 13:11:23. FASL file created Sunday, 28 February 1993, 23:16:46. {DSK}kaplan>Local>medley3.5>git-medley>library>MSPARSE.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSPARSE.;5 Source file created Wednesday, 15 August 1990, 13:00:12. FASL file created Sunday, 28 February 1993, 23:24:50. {DSK}kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.DFASL;3 XCL Compiler output for source file {DSK}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}kaplan>Local>medley3.5>git-medley>library>MSCOMMON.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSCOMMON.;3 Source file created Monday, 4 May 1992, 13:19:40. FASL file created Sunday, 28 February 1993, 23:23:14. {DSK}kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.DFASL;1 XCL Compiler output for source file {DSK}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}kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.LCOM;1 compiled on 25-Apr-2018 07:31:56 File created 25-Apr-2018 07:31:56 UNIXCOMMCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.LCOM;20 compiled on 1-Feb-2021 18:00:30 File created 1-Feb-2021 18:00:30 UNICODECOMS {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.LCOM;1 compiled on 9-Mar-99 18:20:33 File created 9-Mar-99 18:20:26 ISO8859IOCOMS {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HELPSYS.LCOM;1 compiled on 27-Nov-2020 11:23:11 File created 27-Nov-2020 09:47:44 HELPSYSCOMS {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DINFO.LCOM;1 compiled on 27-Nov-2020 09:16:14 File created 27-Nov-2020 09:14:02 DINFOCOMS {DSK}kaplan>Local>medley3.5>git-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}kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.LCOM;1 compiled on 8-Aug-2020 15:48:08 File created 8-Aug-2020 15:48:08 CLIPBOARDCOMS {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MACINTERFACE.LCOM;49 compiled on 30-Dec-2020 20:18:08 File created 30-Dec-2020 20:18:08 MACINTERFACECOMS {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.LCOM;2 compiled on 28-Jun-99 17:13:58 File created 28-Jun-99 17:13:51 PRETTYFILEINDEXCOMS {DSK}kaplan>Local>medley3.5>git-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}kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.LCOM;1 compiled on 21-Jan-93 18:45:15 File created 15-Aug-90 11:05:53 UNIXCHATCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>UNIXTELNET.LCOM;1 compiled on 18-Jul-94 23:29:48 File created 16-Feb-90 17:00:31 UNIXTELNETCOMS {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SETDEFAULTPRINTER.LCOM;2 compiled on 12-Nov-98 17:41:28 File created 7-Jun-93 15:34:58 SETDEFAULTPRINTERCOMS {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEFAULTSUBITEMFN.LCOM;1 compiled on 8-Sep-94 20:23:23 File created 4-Mar-87 15:59:01 DEFAULTSUBITEMFNCOMS {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LoadPatches.;1 File created 16-Nov-88 14:11:42 LOADPATCHESCOMS About to end loadup Creating FULL sysout on {DSK}kaplan>Local>medley3.5>git-medley>loadups>xfull35.sysout \ No newline at end of file + Full loadup started at 6-Feb-2021 16:55:14 while connected to {DSK}larry>ilisp>medley> {DSK}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}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}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}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}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}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}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}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}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}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}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}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}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}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}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}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}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}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}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}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}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}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}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}larry>ilisp>medley>library>TEDITMENU.LCOM;1 compiled on 4-Jan-2021 13:48:55 File created 4-Jan-2021 13:48:43 TEDITMENUCOMS {DSK}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}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}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}larry>ilisp>medley>library>FILEBROWSER.LCOM;1 compiled on 11-Sep-2001 09:26:17 File created 11-Sep-2001 09:26:14 {DSK}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}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}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}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}larry>ilisp>medley>library>WHERE-IS.DFASL;1 XCL Compiler output for source file {DSK}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}larry>ilisp>medley>library>HASH-FILE.dfasl;1 XCL Compiler output for source file {PELE:MV:ENVOS}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}larry>ilisp>medley>library>CASH-FILE.DFASL;4 XCL Compiler output for source file {DSK}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}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}larry>ilisp>medley>library>MSANALYZE.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSANALYZE.;5 Source file created Wednesday, 15 August 1990, 13:11:23. FASL file created Sunday, 28 February 1993, 23:16:46. {DSK}larry>ilisp>medley>library>MSPARSE.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSPARSE.;5 Source file created Wednesday, 15 August 1990, 13:00:12. FASL file created Sunday, 28 February 1993, 23:24:50. {DSK}larry>ilisp>medley>library>MASTERSCOPE.DFASL;3 XCL Compiler output for source file {DSK}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}larry>ilisp>medley>library>MSCOMMON.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSCOMMON.;3 Source file created Monday, 4 May 1992, 13:19:40. FASL file created Sunday, 28 February 1993, 23:23:14. {DSK}larry>ilisp>medley>library>UNIXPRINT.DFASL;1 XCL Compiler output for source file {DSK}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}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}larry>ilisp>medley>library>UNICODE.LCOM;18 compiled on 1-Feb-2021 18:00:30 File created 1-Feb-2021 18:00:30 UNICODECOMS {DSK}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}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}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}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}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}larry>ilisp>medley>lispusers>MACINTERFACE.LCOM;47 compiled on 27-Dec-2020 12:06:19 File created 27-Dec-2020 12:06:04 MACINTERFACECOMS {DSK}larry>ilisp>medley>lispusers>PRETTYFILEINDEX.LCOM;2 compiled on 28-Jun-99 17:13:58 File created 28-Jun-99 17:13:51 PRETTYFILEINDEXCOMS {DSK}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}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}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}larry>ilisp>medley>lispusers>SETDEFAULTPRINTER.LCOM;2 compiled on 12-Nov-98 17:41:28 File created 7-Jun-93 15:34:58 SETDEFAULTPRINTERCOMS {DSK}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}larry>ilisp>medley>lispusers>LoadPatches.;1 File created 16-Nov-88 14:11:42 LOADPATCHESCOMS About to end loadup Creating FULL sysout on {DSK}larry>ilisp>medley>loadups>xfull35.sysout \ No newline at end of file diff --git a/loadups/xfull35.sysout b/loadups/xfull35.sysout index 8d8a99531..5304413d7 100644 Binary files a/loadups/xfull35.sysout and b/loadups/xfull35.sysout differ diff --git a/loadups/xlisp.dribble b/loadups/xlisp.dribble index 56ebf5b61..c742fd8bd 100644 --- a/loadups/xlisp.dribble +++ b/loadups/xlisp.dribble @@ -1,7 +1,7 @@ -Synchronizing Lisp sysout at 17-Jan-2021 14:31:56 - {DSK}larry>ilisp>medley>makesysout>SYNCLISPFILES.;2 - created 17-Jan-2021 14:30:13 +Synchronizing Lisp sysout at 6-Feb-2021 16:54:14 + {DSK}larry>ilisp>medley>sources>SYNCLISPFILES.;2 + created 6-Feb-2021 15:19:48 {DSK}larry>ilisp>medley>sources>FASLOAD.DFASL;1 @@ -61,11 +61,21 @@ File created 28-Jun-99 16:57:50 compiled on 11-Nov-2018 13:08:05 File created 11-Nov-2018 13:08:04 +{DSK}larry>ilisp>medley>sources>LLREAD.LCOM;2 +compiled on 4-Feb-2021 17:09:29 +File created 4-Feb-2021 17:06:41 +LLREADCOMS + {DSK}larry>ilisp>medley>sources>FILEIO.LCOM;12 compiled on 13-Aug-2020 11:43:08 File created 13-Aug-2020 11:43:08 FILEIOCOMS +{DSK}larry>ilisp>medley>sources>MACHINEINDEPENDENT.LCOM;2 +compiled on 4-Feb-2021 19:09:30 +File created 4-Feb-2021 19:07:44 +MACHINEINDEPENDENTCOMS + {DSK}larry>ilisp>medley>sources>PRETTY.LCOM;6 compiled on 16-Apr-2018 21:37:10 File created 16-Apr-2018 21:37:09 @@ -160,24 +170,4 @@ compiled on 16-Apr-2018 23:05:17 File created 16-Apr-2018 23:05:10 -30 files loaded - -{DSK}larry>ilisp>medley>patches>LLREADPATCH.LCOM;5 -compiled on 1-Aug-2020 18:52:48 -File created 1-Aug-2020 18:52:48 -LLREADPATCHCOMS - -{DSK}larry>ilisp>medley>patches>MACHINEINDEPENDENTPATCH.LCOM;2 -compiled on 19-Sep-2020 21:18:45 -File created 19-Sep-2020 20:56:09 -MACHINEINDEPENDENTPATCHCOMS - -{DSK}larry>ilisp>medley>patches>NOXNSPATCH.LCOM;1 -compiled on 31-Mar-99 17:08:42 -File created 31-Mar-99 17:08:40 -NOXNSPATCHCOMS - - -3 files loaded -Creating updated LISP sysout on -{DSK}larry>ilisp>medley>loadups>xlisp.sysout;2 +32 files loaded diff --git a/loadups/xlisp.sysout b/loadups/xlisp.sysout index 8612dc435..cb85ef643 100644 Binary files a/loadups/xlisp.sysout and b/loadups/xlisp.sysout differ diff --git a/makesysout/MAKEFULLSYSOUT b/makesysout/MAKEFULLSYSOUT deleted file mode 100644 index 6ab0dac07..000000000 --- a/makesysout/MAKEFULLSYSOUT +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 5-Dec-2020 20:07:31" {DSK}larry>ilisp>medley>makesysout>MAKEFULLSYSOUT.;7 8043 changes to%: (FNS MAKEFULLSYSOUT) previous date%: " 5-Dec-2020 16:15:10" {DSK}larry>ilisp>medley>makesysout>MAKEFULLSYSOUT.;6) (PRETTYCOMPRINT MAKEFULLSYSOUTCOMS) (RPAQQ MAKEFULLSYSOUTCOMS ((COMMANDS "cd" "pwd" "ls") (FNS LOADFULLFONTS MAKEFULLSYSOUT FIXMETA) (P (FIXMETA)) (VARS (WRITEFULLSYSOUTFLAG T)) (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (MAKEFULLSYSOUT))) (PROP FILETYPE MAKEFULLSYSOUT))) (DEFCOMMAND "cd" (DIR) (/CNDIR DIR)) (DEFCOMMAND "pwd" NIL (DIRECTORYNAME T)) (DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST))) (DEFINEQ (LOADFULLFONTS [LAMBDA (ROOTDIRECTORY) (* ;  "Edited 11-Aug-2020 17:53 by rmk:") (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q") (PRINTOUT T "Loading FULL fonts..." T) (SETQ DISPLAYFONTDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/fonts/displayfonts") (PACK* ROOTDIRECTORY "/fonts/altofonts"))) (* (SETQ INTERPRESSFONTDIRECTORIES  (CONS (PACK* ROOTDIRECTORY  "/fonts/ipfonts")))) (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE)) (SETQ POSTSCRIPTFONTDIRECTORIES (CONS (PACK* ROOTDIRECTORY "/fonts/postscriptfonts"))) (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT) (RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL) (MISSINGCHARSETDISPLAYFONTCOERCIONS NIL)) (* ;  "Don't let the font loader substitute just because a server went catatonic on us") (for FAMILY in '(CLASSIC MODERN TERMINAL) do (PRINTOUT T " Loading " FAMILY " ") [for SIZE in '(8 10 12) do (PRINTOUT T SIZE " ") (for FACE in '(MRR BRR MIR) do (* ;; "No need for Interpress") (* (NLSETQ (FONTCREATE FAMILY SIZE  FACE NIL (QUOTE INTERPRESS) NIL 0))) (for CSET in '(0 33 34 35 238 239 241) do (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL CSET] (PRINTOUT T T)) (PRINTOUT T " Loading postscript fonts" T) (for F in (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES) ">c0>*.*")) do (PSCFONT.READFONT F)) (PRINTOUT T "FULL fonts loaded" T]) (MAKEFULLSYSOUT [LAMBDA NIL (* ; "Edited 5-Dec-2020 20:07 by larry") (* ;  "Edited 14-May-2018 15:01 by kaplan") (* ;  "Edited 28-Sep-2020 12:35 by rmk:") (* ; "Edited 17-Apr-2018 08:41 by ") (* ;  "Edited 21-Apr-2018 07:27 by rmk:") (* ; "Edited 23-Feb-94 15:04 by bvm") (CLRPROMPT) (CNDIR (UNIX-GETENV "LOADUPDIR")) (LET ((ROOTDIRECTORY (MEDLEYDIR))) (SETQ MAKESYSFILENAME (CONCAT (MEDLEYDIR "loadups") "xfull35.sysout")) (DRIBBLE (PACKFILENAME 'EXTENSION 'DRIBBLE 'BODY MAKESYSFILENAME)) (* ;; "BKSYSBUF stops page holding ") (PRINTOUT T T "Full loadup started at " (DATE) " while connected to " (DIRECTORYNAME T) T T) (BKSYSBUF " ") (SETQ DEFAULTFILETYPE 'BINARY) (* ;  "These prevent bits from being lost due to lack of knowledge") (DREMOVE (ASSOC NIL DEFAULTFILETYPELIST) DEFAULTFILETYPELIST) (* (SETQ *UPPER-CASE-FILE-NAMES* NIL)) (SETQ MAKESYSNAME :MEDLEY3.5) (push DEFAULTFILETYPELIST '(TXT . TEXT) '(TEXT . TEXT) '(TEX . TEXT) '(HTML . TEXT) '(HTM . TEXT)) (MEDLEY-INIT-VARS) (SETQ LOADUPDIRECTORIES DIRECTORIES) (LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT") (LOADFULLFONTS (MEDLEYDIR)) (LISTPUT IDLE.PROFILE 'TIMEOUT 0) (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL) (LOADUP '(CHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE ISO8859IO HELPSYS DINFO CLIPBOARD MACINTERFACE)) (FILESLOAD (SYSLOAD) PRETTYFILEINDEX WHO-LINE) (SETQ *WHO-LINE-ANCHOR* '(:CENTER :TOP)) (* ;; "Turn off who-line until after the user has greeted") (CL:WHEN (WINDOWP *WHO-LINE*) (CLOSEW *WHO-LINE*)) [SETQ POSTGREETFORMS (APPEND POSTGREETFORMS '((INSTALL-WHO-LINE-OPTIONS] (FILESLOAD (SYSLOAD) UNIXCOMM UNIXCHAT UNIXTELNET) (FILESLOAD (SYSLOAD) SETDEFAULTPRINTER) (FILESLOAD (SYSLOAD) LOADPATCHES) (\DAYTIME0 \LASTUSERACTION) (LISTPUT IDLE.PROFILE 'TIMEOUT 20) (for TYPE in FILEPKTYPES do (FILEPKGCHANGES TYPE NIL)) (SETTOPVAL 'INITIALS NIL) (PROMPTPRINT "About to end loadup") (PRINTOUT T "About to end loadup" T) (* ;; "From SYNCLISPFILES") (ENDLOADUP) (COND ((WINDOWP LOGOW) (CLOSEW LOGOW))) (DREMOVE (ASSOC 'LOGOW AFTERMAKESYSFORMS) AFTERMAKESYSFORMS) (push AFTERMAKESYSFORMS '(CLRPROMPT) '(MEDLEY-INIT-VARS)) (* ;; "Set up for making the sysout, if we made it this far.") (CL:WHEN WRITEFULLSYSOUTFLAG (PRINTOUT T "Creating FULL sysout on " MAKESYSFILENAME T) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley " (MEDLEYVERSION) " Full Sysout%")"))) (DRIBBLE]) (FIXMETA [LAMBDA NIL (* ;  "Edited 25-Jun-2017 17:12 by rmk:") (KEYACTION 'BLANK-TOP '(METADOWN . METAUP) \CURRENTKEYACTION) (KEYACTION 'BLANK-TOP '(METADOWN . METAUP]) ) (FIXMETA) (RPAQQ WRITEFULLSYSOUTFLAG T) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS) ) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (MAKEFULLSYSOUT) ) (PUTPROPS MAKEFULLSYSOUT FILETYPE :TCOMPL) (PUTPROPS MAKEFULLSYSOUT COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (885 7687 (LOADFULLFONTS 895 . 3399) (MAKEFULLSYSOUT 3401 . 7376) (FIXMETA 7378 . 7685)) ))) STOP \ No newline at end of file diff --git a/makesysout/SYNCLISPFILES b/makesysout/SYNCLISPFILES deleted file mode 100644 index 11d7a6155..000000000 --- a/makesysout/SYNCLISPFILES +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "17-Jan-2021 14:30:13" {DSK}larry>ilisp>medley>makesysout>SYNCLISPFILES.;2 15844 changes to%: (FNS MEDLEY-INIT-VARS) previous date%: "16-Jan-2021 23:12:02" {DSK}larry>ilisp>medley>makesysout>SYNCLISPFILES.;1 ) (PRETTYCOMPRINT SYNCLISPFILESCOMS) (RPAQQ SYNCLISPFILESCOMS [(FNS MEDLEYDIR INTERLISPMODE MEDLEY-INIT-VARS) (COMMANDS cd pwd) (FNS shell) (VARS MEDLEY-INIT-VARS) (FNS SYNCLISPFILES ENDLOADUP MEDLEYVERSION NOPUPPATCH) (INITVARS (WRITELISPSYSOUTFLAG T)) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE)) (SYNCLISPFILES))) (PROP FILETYPE SYNCLISPFILES) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA shell) (NLAML) (LAMA]) (DEFINEQ (MEDLEYDIR [LAMBDA (DIRNAME FILENAME OUTPUT) (* ; "Edited 14-Dec-2020 17:12 by larry") (if (NULL DIRNAME) then (if (OR (NOT (BOUNDP 'MEDLEYDIR)) (NOT MEDLEYDIR)) then (OR (SETQ MEDLEYDIR (DIRECTORYNAME (OR (UNIX-GETENV "MEDLEYDIR") T))) (DIRECTORYNAME T)) elseif (STRPOS "/" MEDLEYDIR) then (SETQ MEDLEYDIR (DIRECTORYNAME MEDLEYDIR)) else MEDLEYDIR) elseif (LISTP DIRNAME) then (for X in DIRNAME collect (MEDLEYDIR X)) elseif FILENAME then (SETQ FILENAME (CONCAT (MEDLEYDIR DIRNAME) FILENAME)) (if OUTPUT then FILENAME else (OR (INFILEP FILENAME) (ERROR "No such medley file" FILENAME))) else (OR (DIRECTORYNAME (CONCAT (MEDLEYDIR) DIRNAME)) (ERROR "No such medley directory" DIRNAME]) (INTERLISPMODE [LAMBDA (OLD?) (* N.H.Briggs " 2-Feb-88 14:26") (PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if OLD? then "OLD-INTERLISP-T" else "INTERLISP"))) (XCL:SET-DEFAULT-EXEC-TYPE (if OLD? then "OLD-INTERLISP-T" else "INTERLISP")) (SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if OLD? then "OLD-INTERLISP-FILE" else "INTERLISP") :PACKAGE "INTERLISP"]) (MEDLEY-INIT-VARS [LAMBDA (CLEAR) (* ; "Edited 17-Jan-2021 14:29 by larry") (* ;; "MEDLEY-INIT-VARS has variables that might need to get reset. ") (if CLEAR then (SETQ MEDLEYDIR NIL) (SETQ XCL::*WHERE-IS-CASH-FILES* NIL) (for X in MEDLEY-INIT-VARS do (SET (CAR X))) elseif [OR (NOT (BOUNDP 'MEDLEYDIR)) (AND (NULL MEDLEYDIR) (NULL (MEDLEYDIR] then (PRINTOUT T "WARNING: MEDLEYDIR not set correctly" " set it and call (MEDLEY-INIT-VARS) again" T) else [for X in MEDLEY-INIT-VARS do (SET (CAR X) (EVAL (CADR X] (* ;; "WHEREIS doesn't follow conventions") (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE) (SETQ XCL::*WHERE-IS-CASH-FILES* NIL) (NLSETQ (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR "loadups" "WHEREIS.HASH")))) NIL]) ) (DEFCOMMAND cd (DIR) (/CNDIR DIR)) (DEFCOMMAND pwd NIL (DIRECTORYNAME T)) (DEFINEQ (shell [NLAMBDA LINE (* ;  "Edited 7-Sep-2020 13:28 by rmk:") [SETQ LINE (CONCATLIST (for X in LINE join (LIST X " "] (CL:WITH-OPEN-FILE (STREAM "{NODIRCORE}shell-dribble.txt" :DIRECTION :IO) (ShellCommand LINE STREAM) (SETFILEPTR STREAM 0) (until (EOFP STREAM) collect (CL:READ-LINE STREAM :EOF-ERROR-P NIL :EOF-VALUE NIL]) ) (RPAQQ MEDLEY-INIT-VARS ([LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal/library"] [LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources"] (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES)) (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo")) (IRM.DINFOGRAPH) (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES)) [LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"] [USERGREETFILES `((,LOGINHOST/DIR "INIT" COM) (,LOGINHOST/DIR "INIT"] [DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" "fonts/altofonts"] [POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts"] [INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts"] (XCL::*WHERE-IS-CASH-FILES*))) (DEFINEQ (SYNCLISPFILES [LAMBDA (NODRIBBLE KEEPPUP) (* ; "Edited 5-Dec-2020 12:34 by larry") (* ;  "Edited 23-Oct-2020 23:51 by rmk:") (* ;  "Edited 20-Apr-2018 18:28 by rmk:") (* ;; "This ensures that files in the xlisp.sysout are as up-to-date as possible with respect to lispcore/sources. Reload (compiled, if possible) files that correspond to symbolic files whose filedates are later than the filedate in the system. If you want a new compilation of a file that has not been modified to be included, then you must make a trivial update of the symbolic file and recompile it, to give it a new, later date. This is because it is unsafe as a general default to load compiled files with dates later than the sysout, and the sysout doesn't record the dates of loaded compiled files, just their symbolic versions.") (* ;; " Should be run while connected to MEDLEYDIR") (CLRPROMPT) (MEDLEY-INIT-VARS) (if (WINDOWP LOGOW) then (CLOSEW LOGOW)) (MOVD 'NILL 'LOGOW) (SETQ LISPMAKESYSDATE MAKESYSDATE) (LET (SKIPFILES (SOURCEDIR (MEDLEYDIR "sources"))) (SETQ MAKESYSFILENAME (MEDLEYDIR "loadups" "xlisp.sysout" T)) (* ;;  "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.") (CL:UNLESS NODRIBBLE (DRIBBLE (MEDLEYDIR "loadups" "xlisp.dribble" T))) (BKSYSBUF " ") (PRINTOUT T T "Synchronizing Lisp sysout at " (DATE) T) (PRINTOUT T 5 (CDAR (GETP 'SYNCLISPFILES 'FILEDATES)) T 5 "created " (CAAR (GETP 'SYNCLISPFILES 'FILEDATES)) T T) (push SKIPFILES 'FASLOAD) (LOAD (MEDLEYDIR "sources" "FASLOAD.DFASL") 'SYSLOAD) (push SKIPFILES 'ATBL) (* ;  "Whole file can't be reloaded--smashes readtabl") (LOADFNS '(\ATBLSET \MAPCHARTABLE RESETREADTABLE) (MEDLEYDIR "sources" "ATBL.LCOM") 'SYSLOAD) (LOADVARS '\KEYNAMES (MEDLEYDIR "sources" "LLKEY") 'SYSLOAD) (* ; "Extended keynames for Mac/PC") (push SKIPFILES 'LLKEY) (* ; "Loading whole file freezes") (push SKIPFILES 'MAIKOLOADUPFNS) (* ;  "Can't reload even if compiled files are later") (push SKIPFILES 'SUNFONT) (* ;  "Old font organization, not relevant") (for LF FF CFILE LOADEDDATE FILEDATE IFILEDATE NOCOMPILEDFILES CFILES (COUNT _ 0) in (LDIFFERENCE SYSFILES SKIPFILES) do [[SETQ LOADEDDATE (CAAR (GETP LF 'FILEDATES] (* ;  "Date of symbolic file whose compile file was loaded") (CL:UNLESS LOADEDDATE (PRINTOUT T T LF " does not have a loaded filedate, probably not a Lisp file; skipped" T) (GO $$ITERATE)) (SETQ FF (PACKFILENAME.STRING 'NAME LF 'BODY SOURCEDIR)) (SETQ FILEDATE (FILEDATE FF)) (* ; "Date of current source file") (CL:UNLESS FILEDATE (PRINTOUT T LF " does not have a file-directory date, not updated" T) (GO $$ITERATE)) (SETQ CFILES (for EXT in *COMPILED-EXTENSIONS* when (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY FF))) collect CFILE)) (SETQ CFILE (COND [CFILES (* ;;  "If more than one (LCOM, DFASL), pick the newest one.") (for CF in CFILES largest (IDATE (FILEDATE CF T] (T (PRINTOUT T "Note: No compiled file for " LF T) (push NOTCOMPILEDFILES LF) FF))) (SETQ IFILEDATE (IDATE FILEDATE)) (CL:UNLESS (IGREATERP IFILEDATE 0) (PRINTOUT T "Funny file date " FILEDATE " for " LF ", not updated" T) (GO $$ITERATE)) (* ;; "Load the compiled file if the date of the symbolic file is later than the symbolic file-date in the sysout. If an updated source and compiled file were copied from another directory, we update the FILEDATES property to point to the new location. If the loaded and file dates are the same, then update the FILEDATES property to point to the possibly new path name and version even if we don't need to load.") (SETQ LOADEDDATE (IDATE LOADEDDATE)) (if (IGREATERP IFILEDATE LOADEDDATE) then (add COUNT 1) (LOAD CFILE 'SYSLOAD) (CL:WHEN [STREQUAL FILEDATE (CAAR (GETP LF 'FILEDATES] (* ;; "If copied, the compiled file may install the original location. Not sure what happens with copied DFASLs") (RPLACD (CAR (GETP LF 'FILEDATES)) (INFILEP FF))) elseif (IEQP IFILEDATE LOADEDDATE) then (RPLACD (CAR (GETP LF 'FILEDATES)) (INFILEP FF] finally (PRINTOUT T T T COUNT " files loaded" T) (CL:WHEN NOCOMPILEDFILES (PRINTOUT T "Symbolic files loaded: " .PPVTL NOCOMPILEDFILES T T))) (* ;; "Load from patch directory") (for PF (COUNT _ 0) in (FILDIR (PACKFILENAME.STRING 'NAME "*.;" 'BODY (MEDLEYDIR "/patches/"))) do (for EXT CFILE in *COMPILED-EXTENSIONS* when (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY PF))) do (add COUNT 1) (LOAD CFILE 'SYSLOAD) (* ; "symbolic file date") (RETURN) finally (PRINTOUT T "Note: No compiled file for " PF T) (add COUNT 1) (LOAD PF 'SYSLOAD)) finally (PRINTOUT T T T COUNT " files loaded" T)) (CL:UNLESS KEEPPUP (NOPUPPATCH)) (ENDLOADUP) (CL:WHEN WRITELISPSYSOUTFLAG (* ;; "So we print out the new version number") (SETQ MAKESYSFILENAME (OUTFILEP MAKESYSFILENAME)) (PRINTOUT T "Creating updated LISP sysout on " MAKESYSFILENAME T) (CLRPROMPT) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley Lisp Sysout%")"))) (CL:UNLESS NODRIBBLE (DRIBBLE]) (ENDLOADUP [LAMBDA NIL (* ; "Edited 10-Dec-2020 21:49 by larry") (* ; "Edited 11-Oct-90 11:02 by jds") (* ;; "set up for NONET configuration; sites with ethernet can load in init from other places") (* ;; "All records existing at this point in time have been loaded as part of the system.") [MAPC USERRECLST (FUNCTION (LAMBDA (R) (RECORDPRIORITY R 'SYSTEM] (MEDLEY-INIT-VARS T) (for X in SYSTEMINITVARS when (NOT (ASSOC X MEDLEY-INIT-VARS)) do (SETTOPVAL (CAR X) (COPY (CDR X]) (MEDLEYVERSION [LAMBDA NIL (* ;  "Edited 25-Mar-2018 22:07 by rmk:") (* ; "Edited 11-Nov-98 22:02 by rmk:") (SELECTQ (LISPVERSION) (39424 '|1.1|) (39539 '|1.15|) (40960 '|1.2|) (4928 '|2.0|) (21000 '|2.1|) (35000 '|3.5|) (35010 '|3.5|) (HELP "UNRECOGNIZED MEDLEY VERSION" (LISPVERSION]) (NOPUPPATCH [LAMBDA NIL (* ;  "Edited 14-May-2018 12:22 by rmk:") (* ;; "Fix it so pup stuff never gets run") (SETQ \PROCESSES (DREMOVE (FIND.PROCESS '\PUPGATELISTENER) \PROCESSES)) (SETQ \FILEDEVICES (for F in \FILEDEVICES unless (STRPOS "LEAF" F) collect F)) (MOVD 'NILL '\CANONICALIZE.PUP.HOSTNAME]) ) (RPAQ? WRITELISPSYSOUTFLAG T) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE)) (SYNCLISPFILES) ) (PUTPROPS SYNCLISPFILES FILETYPE :TCOMPL) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA shell) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (PUTPROPS SYNCLISPFILES COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (1107 4270 (MEDLEYDIR 1117 . 2353) (INTERLISPMODE 2355 . 3168) (MEDLEY-INIT-VARS 3170 . 4268)) (4347 4863 (shell 4357 . 4861)) (5735 15440 (SYNCLISPFILES 5745 . 13695) (ENDLOADUP 13697 . 14407) (MEDLEYVERSION 14409 . 14948) (NOPUPPATCH 14950 . 15438))))) STOP \ No newline at end of file diff --git a/makesysout/SYNCLISPFILES.LCOM b/makesysout/SYNCLISPFILES.LCOM deleted file mode 100644 index 58f749ddd..000000000 Binary files a/makesysout/SYNCLISPFILES.LCOM and /dev/null differ diff --git a/makesysout/loadup-full.sh b/scripts/loadup-full.sh similarity index 61% rename from makesysout/loadup-full.sh rename to scripts/loadup-full.sh index b97fd3b4b..c17c40169 100755 --- a/makesysout/loadup-full.sh +++ b/scripts/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/sources/LOADUP-FULL.LCOM $MEDLEYDIR/loadups/xlisp.sysout diff --git a/makesysout/loadup-lisp.sh b/scripts/loadup-lisp.sh similarity index 58% rename from makesysout/loadup-lisp.sh rename to scripts/loadup-lisp.sh index 01a63bc44..7238b09bc 100755 --- a/makesysout/loadup-lisp.sh +++ b/scripts/loadup-lisp.sh @@ -9,4 +9,4 @@ fi export LOADUPDIR=$MEDLEYDIR -./run-medley -greet $MEDLEYDIR/makesysout/SYNCLISPFILES.LCOM $MEDLEYDIR/loadups/lisp.venuesysout +./run-medley -greet $MEDLEYDIR/sources/LOADUP-LISP.LCOM $MEDLEYDIR/loadups/lisp.venuesysout diff --git a/sources/LOADUP-FULL b/sources/LOADUP-FULL new file mode 100644 index 000000000..df325f60c --- /dev/null +++ b/sources/LOADUP-FULL @@ -0,0 +1 @@ +(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 6-Feb-2021 15:41:34" {DSK}larry>ilisp>medley>sources>LOADUP-FULL.;3 7916 changes to%: (VARS LOADUP-FULLCOMS) previous date%: " 6-Feb-2021 13:46:58" {DSK}larry>ilisp>medley>sources>LOADUP-FULL.;2) (PRETTYCOMPRINT LOADUP-FULLCOMS) (RPAQQ LOADUP-FULLCOMS ((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))) (DEFCOMMAND "cd" (DIR) (/CNDIR DIR)) (DEFCOMMAND "pwd" NIL (DIRECTORYNAME T)) (DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST))) (DEFINEQ (LOADFULLFONTS [LAMBDA (ROOTDIRECTORY) (* ;  "Edited 11-Aug-2020 17:53 by rmk:") (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q") (PRINTOUT T "Loading FULL fonts..." T) (SETQ DISPLAYFONTDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/fonts/displayfonts") (PACK* ROOTDIRECTORY "/fonts/altofonts"))) (* (SETQ INTERPRESSFONTDIRECTORIES  (CONS (PACK* ROOTDIRECTORY  "/fonts/ipfonts")))) (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE)) (SETQ POSTSCRIPTFONTDIRECTORIES (CONS (PACK* ROOTDIRECTORY "/fonts/postscriptfonts"))) (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT) (RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL) (MISSINGCHARSETDISPLAYFONTCOERCIONS NIL)) (* ;  "Don't let the font loader substitute just because a server went catatonic on us") (for FAMILY in '(CLASSIC MODERN TERMINAL) do (PRINTOUT T " Loading " FAMILY " ") [for SIZE in '(8 10 12) do (PRINTOUT T SIZE " ") (for FACE in '(MRR BRR MIR) do (* ;; "No need for Interpress") (* (NLSETQ (FONTCREATE FAMILY SIZE  FACE NIL (QUOTE INTERPRESS) NIL 0))) (for CSET in '(0 33 34 35 238 239 241) do (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL CSET] (PRINTOUT T T)) (PRINTOUT T " Loading postscript fonts" T) (for F in (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES) ">c0>*.*")) do (PSCFONT.READFONT F)) (PRINTOUT T "FULL fonts loaded" T]) (MAKEFULLSYSOUT [LAMBDA NIL (* ; "Edited 5-Dec-2020 20:07 by larry") (* ;  "Edited 14-May-2018 15:01 by kaplan") (* ;  "Edited 28-Sep-2020 12:35 by rmk:") (* ; "Edited 17-Apr-2018 08:41 by ") (* ;  "Edited 21-Apr-2018 07:27 by rmk:") (* ; "Edited 23-Feb-94 15:04 by bvm") (CLRPROMPT) (CNDIR (UNIX-GETENV "LOADUPDIR")) (LET ((ROOTDIRECTORY (MEDLEYDIR))) (SETQ MAKESYSFILENAME (CONCAT (MEDLEYDIR "loadups") "xfull35.sysout")) (DRIBBLE (PACKFILENAME 'EXTENSION 'DRIBBLE 'BODY MAKESYSFILENAME)) (* ;; "BKSYSBUF stops page holding ") (PRINTOUT T T "Full loadup started at " (DATE) " while connected to " (DIRECTORYNAME T) T T) (BKSYSBUF " ") (SETQ DEFAULTFILETYPE 'BINARY) (* ;  "These prevent bits from being lost due to lack of knowledge") (DREMOVE (ASSOC NIL DEFAULTFILETYPELIST) DEFAULTFILETYPELIST) (* (SETQ *UPPER-CASE-FILE-NAMES* NIL)) (SETQ MAKESYSNAME :MEDLEY3.5) (push DEFAULTFILETYPELIST '(TXT . TEXT) '(TEXT . TEXT) '(TEX . TEXT) '(HTML . TEXT) '(HTM . TEXT)) (MEDLEY-INIT-VARS) (SETQ LOADUPDIRECTORIES DIRECTORIES) (LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT") (LOADFULLFONTS (MEDLEYDIR)) (LISTPUT IDLE.PROFILE 'TIMEOUT 0) (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL) (LOADUP '(CHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE ISO8859IO HELPSYS DINFO CLIPBOARD MACINTERFACE)) (FILESLOAD (SYSLOAD) PRETTYFILEINDEX WHO-LINE) (SETQ *WHO-LINE-ANCHOR* '(:CENTER :TOP)) (* ;; "Turn off who-line until after the user has greeted") (CL:WHEN (WINDOWP *WHO-LINE*) (CLOSEW *WHO-LINE*)) [SETQ POSTGREETFORMS (APPEND POSTGREETFORMS '((INSTALL-WHO-LINE-OPTIONS] (FILESLOAD (SYSLOAD) UNIXCOMM UNIXCHAT UNIXTELNET) (FILESLOAD (SYSLOAD) SETDEFAULTPRINTER) (FILESLOAD (SYSLOAD) LOADPATCHES) (\DAYTIME0 \LASTUSERACTION) (LISTPUT IDLE.PROFILE 'TIMEOUT 20) (for TYPE in FILEPKTYPES do (FILEPKGCHANGES TYPE NIL)) (SETTOPVAL 'INITIALS NIL) (PROMPTPRINT "About to end loadup") (PRINTOUT T "About to end loadup" T) (* ;; "From SYNCLISPFILES") (ENDLOADUP) (COND ((WINDOWP LOGOW) (CLOSEW LOGOW))) (DREMOVE (ASSOC 'LOGOW AFTERMAKESYSFORMS) AFTERMAKESYSFORMS) (push AFTERMAKESYSFORMS '(CLRPROMPT) '(MEDLEY-INIT-VARS)) (* ;; "Set up for making the sysout, if we made it this far.") (CL:WHEN WRITEFULLSYSOUTFLAG (PRINTOUT T "Creating FULL sysout on " MAKESYSFILENAME T) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley " (MEDLEYVERSION) " Full Sysout%")"))) (DRIBBLE]) (FIXMETA [LAMBDA NIL (* ;  "Edited 25-Jun-2017 17:12 by rmk:") (KEYACTION 'BLANK-TOP '(METADOWN . METAUP) \CURRENTKEYACTION) (KEYACTION 'BLANK-TOP '(METADOWN . METAUP]) ) (FIXMETA) (RPAQQ WRITEFULLSYSOUTFLAG T) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS) ) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (MAKEFULLSYSOUT) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (853 7655 (LOADFULLFONTS 863 . 3367) (MAKEFULLSYSOUT 3369 . 7344) (FIXMETA 7346 . 7653)) ))) STOP \ No newline at end of file diff --git a/makesysout/MAKEFULLSYSOUT.LCOM b/sources/LOADUP-FULL.LCOM similarity index 70% rename from makesysout/MAKEFULLSYSOUT.LCOM rename to sources/LOADUP-FULL.LCOM index 96e43e8e4..4a1a70ad1 100644 Binary files a/makesysout/MAKEFULLSYSOUT.LCOM and b/sources/LOADUP-FULL.LCOM differ diff --git a/sources/LOADUP-LISP b/sources/LOADUP-LISP new file mode 100644 index 000000000..ec4070c72 --- /dev/null +++ b/sources/LOADUP-LISP @@ -0,0 +1 @@ +(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED " 6-Feb-2021 15:41:31" |{DSK}larry>ilisp>medley>sources>LOADUP-LISP.;2| 7240 |changes| |to:| (VARS LOADUP-LISPCOMS) |previous| |date:| " 5-Feb-2021 13:59:18" |{DSK}larry>ilisp>medley>sources>LOADUP-LISP.;1| ) (PRETTYCOMPRINT LOADUP-LISPCOMS) (RPAQQ LOADUP-LISPCOMS ((FNS ENDLOADUP LOADUP-LISP MEDLEY-INIT-VARS MEDLEYDIR MEDLEYVERSION) (FILES SYNCLISPFILES) (VARS MEDLEY-INIT-VARS) (GLOBALVARS XCL::*WHERE-IS-CASH-FILES* LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST) (FUNCTIONS WITHOUT.PAGEHOLD) (DECLARE\: DONTEVAL@LOAD DOCOPY (P (LOADUP-LISP))))) (DEFINEQ (ENDLOADUP (LAMBDA NIL (* \; "Edited 5-Feb-2021 12:50 by lmm") (* \;  "Edited 10-Dec-2020 21:49 by larry") (* \; "Edited 11-Oct-90 11:02 by jds") (* |;;|  "set up for NONET configuration; sites with ethernet can load in init from other places") (* |;;| "All records existing at this point in time have been loaded as part of the system.") (MAPC USERRECLST (FUNCTION (LAMBDA (R) (AND R (RECORDPRIORITY R 'SYSTEM))))) (MEDLEY-INIT-VARS T) (|for| X |in| SYSTEMINITVARS |when| (NOT (ASSOC X MEDLEY-INIT-VARS)) |do| (SETTOPVAL (CAR X) (COPY (CDR X)))))) (LOADUP-LISP (LAMBDA NIL (* \; "Edited 5-Feb-2021 13:59 by lmm") (DRIBBLE (MEDLEYDIR "loadups" "xlisp.dribble" T)) (* |;;| " Use SYNCLISPFILES to make XLISP from LISP") (WITHOUT.PAGEHOLD (MEDLEY-INIT-VARS) (SETQ LISPMAKESYSDATE MAKESYSDATE) (SETQ MAKESYSFILENAME (MEDLEYDIR "loadups" "xlisp.sysout" T)) (SYNCLISPFILES) (ENDLOADUP) (CLRPROMPT) (BKSYSBUF (CONCAT "(IL:MAKESYS \"" MAKESYSFILENAME "\" \"Medley Lisp Sysout\")")) (DRIBBLE)))) (MEDLEY-INIT-VARS (LAMBDA (CLEAR) (* \; "Edited 17-Jan-2021 14:29 by larry") (* |;;| "MEDLEY-INIT-VARS has variables that might need to get reset. ") (|if| CLEAR |then| (SETQ MEDLEYDIR NIL) (SETQ XCL::*WHERE-IS-CASH-FILES* NIL) (|for| X |in| MEDLEY-INIT-VARS |do| (SET (CAR X))) |elseif| (OR (NOT (BOUNDP 'MEDLEYDIR)) (AND (NULL MEDLEYDIR) (NULL (MEDLEYDIR)))) |then| (PRINTOUT T "WARNING: MEDLEYDIR not set correctly" " set it and call (MEDLEY-INIT-VARS) again" T) |else| (|for| X |in| MEDLEY-INIT-VARS |do| (SET (CAR X) (EVAL (CADR X)))) (* |;;| "WHEREIS doesn't follow conventions") (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE) (SETQ XCL::*WHERE-IS-CASH-FILES* NIL) (NLSETQ (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR "loadups" "WHEREIS.HASH")))) NIL))) (MEDLEYDIR (LAMBDA (DIRNAME FILENAME OUTPUT) (* \; "Edited 14-Dec-2020 17:12 by larry") (|if| (NULL DIRNAME) |then| (|if| (OR (NOT (BOUNDP 'MEDLEYDIR)) (NOT MEDLEYDIR)) |then| (OR (SETQ MEDLEYDIR (DIRECTORYNAME (OR (UNIX-GETENV "MEDLEYDIR") T))) (DIRECTORYNAME T)) |elseif| (STRPOS "/" MEDLEYDIR) |then| (SETQ MEDLEYDIR (DIRECTORYNAME MEDLEYDIR)) |else| MEDLEYDIR) |elseif| (LISTP DIRNAME) |then| (|for| X |in| DIRNAME |collect| (MEDLEYDIR X)) |elseif| FILENAME |then| (SETQ FILENAME (CONCAT (MEDLEYDIR DIRNAME) FILENAME)) (|if| OUTPUT |then| FILENAME |else| (OR (INFILEP FILENAME) (ERROR "No such medley file" FILENAME))) |else| (OR (DIRECTORYNAME (CONCAT (MEDLEYDIR) DIRNAME)) (ERROR "No such medley directory" DIRNAME))))) (MEDLEYVERSION (LAMBDA NIL (* \;  "Edited 25-Mar-2018 22:07 by rmk:") (* \; "Edited 11-Nov-98 22:02 by rmk:") (SELECTQ (LISPVERSION) (39424 '|1.1|) (39539 '|1.15|) (40960 '|1.2|) (4928 '|2.0|) (21000 '|2.1|) (35000 '|3.5|) (35010 '|3.5|) (HELP "UNRECOGNIZED MEDLEY VERSION" (LISPVERSION))))) ) (FILESLOAD SYNCLISPFILES) (RPAQQ MEDLEY-INIT-VARS ((LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal/library"))) (LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources"))) (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES)) (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo")) (IRM.DINFOGRAPH) (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES)) (LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME")))) (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM) (,LOGINHOST/DIR "INIT"))) (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" "fonts/altofonts"))) (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts"))) (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts"))) (XCL::*WHERE-IS-CASH-FILES*))) (DECLARE\: DOEVAL@COMPILE DONTCOPY (GLOBALVARS XCL::*WHERE-IS-CASH-FILES* LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST) ) (DEFMACRO WITHOUT.PAGEHOLD (WINDOW &BODY FORMS) `(RESETLST (LET* ((TTYWINDOW ,WINDOW) (ORIGINAL.PAGEFULLFN (WINDOWPROP TTYWINDOW 'PAGEFULLFN)) (NEW.PAGEFULLFN (FUNCTION NILL))) (RESETSAVE (WINDOWPROP TTYWINDOW 'PAGEFULLFN NEW.PAGEFULLFN) (LIST (FUNCTION (LAMBDA (TTYWINDOW NEW.PAGEFULLFN ORIGINAL.PAGEFULLFN) (COND ((EQ (WINDOWPROP TTYWINDOW 'PAGEFULLFN) NEW.PAGEFULLFN) (WINDOWPROP TTYWINDOW 'PAGEFULLFN ORIGINAL.PAGEFULLFN))))) TTYWINDOW NEW.PAGEFULLFN ORIGINAL.PAGEFULLFN))) ,@FORMS)) (DECLARE\: DONTEVAL@LOAD DOCOPY (LOADUP-LISP) ) (DECLARE\: DONTCOPY (FILEMAP (NIL (764 5304 (ENDLOADUP 774 . 1693) (LOADUP-LISP 1695 . 2304) (MEDLEY-INIT-VARS 2306 . 3451 ) (MEDLEYDIR 3453 . 4756) (MEDLEYVERSION 4758 . 5302))))) STOP \ No newline at end of file diff --git a/sources/LOADUP-LISP.LCOM b/sources/LOADUP-LISP.LCOM new file mode 100644 index 000000000..132c1da65 Binary files /dev/null and b/sources/LOADUP-LISP.LCOM differ diff --git a/sources/SYNCLISPFILES b/sources/SYNCLISPFILES new file mode 100644 index 000000000..6f003db60 --- /dev/null +++ b/sources/SYNCLISPFILES @@ -0,0 +1 @@ +(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 6-Feb-2021 15:19:48" {DSK}larry>ilisp>medley>sources>SYNCLISPFILES.;2 7670 changes to%: (FNS SYNCLISPFILES) previous date%: " 5-Feb-2021 15:41:04" {DSK}larry>ilisp>medley>sources>SYNCLISPFILES.;1 ) (PRETTYCOMPRINT SYNCLISPFILESCOMS) (RPAQQ SYNCLISPFILESCOMS ((FNS) (FNS SYNCLISPFILES NOPUPPATCH))) (DEFINEQ (SYNCLISPFILES [LAMBDA (NOSYSLOAD) (* ; "Edited 6-Feb-2021 15:16 by larry") (* ; "Edited 5-Feb-2021 15:40 by lmm") (* ;  "Edited 23-Oct-2020 23:51 by rmk:") (* ;  "Edited 20-Apr-2018 18:28 by rmk:") (* ;; "This ensures that files in the xlisp.sysout are as up-to-date as possible with respect to sources. Reload (compiled, if possible) files that correspond to symbolic files whose filedates are later than the filedate in the system. If you want a new compilation of a file that has not been modified to be included, then you must make a trivial update of the symbolic file and recompile it, to give it a new, later date. This is because it is unsafe as a general default to load compiled files with dates later than the sysout, and the sysout doesn't record the dates of loaded compiled files, just their symbolic versions.") (* ;; " Should be run while connected to MEDLEYDIR") (LET ((SKIPFILES '(SYNCLISPFILES)) (SOURCEDIR (MEDLEYDIR "sources"))) (* ;;  "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.") (PRINTOUT T T "Synchronizing Lisp sysout at " (DATE) T) (PRINTOUT T 5 (CDAR (GETP 'SYNCLISPFILES 'FILEDATES)) T 5 "created " (CAAR (GETP 'SYNCLISPFILES 'FILEDATES)) T T) (* ;;  "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.") (push SKIPFILES 'FASLOAD) (LOAD (MEDLEYDIR "sources" "FASLOAD.DFASL") (IF NOSYSLOAD THEN NIL ELSE 'SYSLOAD)) (push SKIPFILES 'ATBL) (* ;  "Whole file can't be reloaded--smashes readtabl") (LOADFNS '(\ATBLSET \MAPCHARTABLE RESETREADTABLE) (MEDLEYDIR "sources" "ATBL.LCOM") 'SYSLOAD) (LOADVARS '\KEYNAMES (MEDLEYDIR "sources" "LLKEY") 'SYSLOAD) (* ; "Extended keynames for Mac/PC") (push SKIPFILES 'LLKEY) (* ; "Loading whole file freezes") (push SKIPFILES 'MAIKOLOADUPFNS) (* ;  "Can't reload even if compiled files are later") (push SKIPFILES 'SUNFONT) (* ;  "Old font organization, not relevant") (for LF FF CFILE LOADEDDATE FILEDATE IFILEDATE NOCOMPILEDFILES CFILES (COUNT _ 0) in (LDIFFERENCE SYSFILES SKIPFILES) do [SETQ LOADEDDATE (CAAR (GETP LF 'FILEDATES] (* ;  "Date of symbolic file whose compile file was loaded") (CL:UNLESS LOADEDDATE (PRINTOUT T T LF " does not have a loaded filedate, probably not a Lisp file; skipped" T) (GO $$ITERATE)) (SETQ FF (PACKFILENAME.STRING 'NAME LF 'BODY SOURCEDIR)) (SETQ FILEDATE (FILEDATE FF)) (* ; "Date of current source file") (CL:UNLESS FILEDATE (PRINTOUT T LF " does not have a file-directory date, not updated" T) (GO $$ITERATE)) (SETQ CFILES (for EXT in *COMPILED-EXTENSIONS* when (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY FF))) collect CFILE) ) (SETQ CFILE (COND [CFILES (* ;;  "If more than one (LCOM, DFASL), pick the newest one.") (for CF in CFILES largest (IDATE (FILEDATE CF T] (T (PRINTOUT T "Note: No compiled file for " LF T) (push NOTCOMPILEDFILES LF) FF))) (SETQ IFILEDATE (IDATE FILEDATE)) (CL:UNLESS (IGREATERP IFILEDATE 0) (PRINTOUT T "Funny file date " FILEDATE " for " LF ", not updated" T) (GO $$ITERATE)) (* ;; "Load the compiled file if the date of the symbolic file is later than the symbolic file-date in the sysout. If an updated source and compiled file were copied from another directory, we update the FILEDATES property to point to the new location. If the loaded and file dates are the same, then update the FILEDATES property to point to the possibly new path name and version even if we don't need to load.") (SETQ LOADEDDATE (IDATE LOADEDDATE)) (if (IGREATERP IFILEDATE LOADEDDATE) then (add COUNT 1) (* ;; " FINALLY do the load") (LOAD CFILE (if NOSYSLOAD then NIL else 'SYSLOAD)) (CL:WHEN [STREQUAL FILEDATE (CAAR (GETP LF 'FILEDATES] (* ;; "If copied, the compiled file may install the original location. Not sure what happens with copied DFASLs") (RPLACD (CAR (GETP LF 'FILEDATES)) (INFILEP FF))) elseif (IEQP IFILEDATE LOADEDDATE) then (RPLACD (CAR (GETP LF 'FILEDATES)) (INFILEP FF))) finally (PRINTOUT T T T COUNT " files loaded" T) (CL:WHEN NOCOMPILEDFILES (PRINTOUT T "Symbolic files loaded: " .PPVTL NOCOMPILEDFILES T T))) (NOPUPPATCH]) (NOPUPPATCH [LAMBDA NIL (* ;  "Edited 14-May-2018 12:22 by rmk:") (* ;; "Fix it so pup stuff never gets run") (SETQ \PROCESSES (DREMOVE (FIND.PROCESS '\PUPGATELISTENER) \PROCESSES)) (SETQ \FILEDEVICES (for F in \FILEDEVICES unless (STRPOS "LEAF" F) collect F)) (MOVD 'NILL '\CANONICALIZE.PUP.HOSTNAME]) ) (PUTPROPS SYNCLISPFILES COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (449 7605 (SYNCLISPFILES 459 . 7113) (NOPUPPATCH 7115 . 7603))))) STOP \ No newline at end of file diff --git a/sources/SYNCLISPFILES.LCOM b/sources/SYNCLISPFILES.LCOM new file mode 100644 index 000000000..ef7cdd666 Binary files /dev/null and b/sources/SYNCLISPFILES.LCOM differ