diff --git a/bin/intclinux/lde b/bin/intclinux/lde deleted file mode 100644 index 76ee1b93..00000000 Binary files a/bin/intclinux/lde and /dev/null differ diff --git a/bin/intclinux/ldeether b/bin/intclinux/ldeether deleted file mode 100644 index 1b618fe2..00000000 Binary files a/bin/intclinux/ldeether and /dev/null differ diff --git a/bin/intclinux/ldex b/bin/intclinux/ldex deleted file mode 100644 index ba712bda..00000000 Binary files a/bin/intclinux/ldex and /dev/null differ diff --git a/bin/lde b/bin/lde deleted file mode 100644 index 6fc2a24e..00000000 Binary files a/bin/lde and /dev/null differ diff --git a/bin/ldeether b/bin/ldeether deleted file mode 100644 index 04f3916e..00000000 Binary files a/bin/ldeether and /dev/null differ diff --git a/bin/ldemulti b/bin/ldemulti deleted file mode 100644 index 215d391c..00000000 Binary files a/bin/ldemulti and /dev/null differ diff --git a/bin/ldesingle b/bin/ldesingle deleted file mode 100644 index a902dff2..00000000 Binary files a/bin/ldesingle and /dev/null differ diff --git a/bin/ldex b/bin/ldex deleted file mode 100644 index ed29be25..00000000 Binary files a/bin/ldex and /dev/null differ diff --git a/bin/medley b/bin/medley deleted file mode 100644 index 8d205252..00000000 --- a/bin/medley +++ /dev/null @@ -1,217 +0,0 @@ -#! /bin/csh -f -# -# Run Medley -# -# Syntax: medley [-nogreet][-xns][-noxns] [-geometry pixelgeometry] [-display xdisplay-device] -# [-raw] [-t xtimeout][-prog executable-program] [-vmem savevmemfilename] | -# [-m memorylimit] [-kbd keyboardtype] [-key key] -# [sysoutfilename | -lfg | -lisp | -full | -xlfg -# -{name of any sysout on the public sysout directory} ] -# -# -xns means leave unix xns running -# -noxns means suppress Lisp xns. - -onintr cleanup -limit coredumpsize 0 -setenv HOSTNAME `hostname` -setenv OSVERSION `uname -r` -\ -# Directory variables are accessible from Lisp via UNIX-GETENV -# Shell should set MEDLEYDIR to point to the Medley3.5 directory -setenv lispcore $MEDLEYDIR/lispcore -setenv LDEINIT "$lispcore/greetfiles/local-init.lcom" - -set mem="-m 256" # Default, has to be set -#set geometry="-g 1060x790" -# MBA screensize -set geometry="-g 1440x900" -setenv LDEKBDTYPE x -set ICONSPEC=" " - -setenv LDEFILETIMEOUT 60 -setenv TAKEXNSDOWN 0 -setenv LDELISPXNS 0 -#default is no lispxns - -if ($#argv != 0) then - while ("$1" != "") - switch ($1) - case "-m": - set mem="-m $2" - shift - breaksw - case "-makefull": - setenv LDEINIT $lispcore/makesysout/makefullsysout.lcom - setenv LOADUPDIR $lispcore - case "-xlisp": - setenv LDESRCESYSOUT "$lispcore/loadups/xlisp.sysout" - breaksw - case "-venuelisp": - case "-lisp": - setenv LDESRCESYSOUT "$lispcore/loadups/lisp.venuesysout" - breaksw - case "-venuefull": - setenv LDESRCESYSOUT "$lispcore/full.venuesysout" - breaksw - case "-makelfg": - setenv LDEINIT $lfghome/parser/makelfgsysout.lcom - setenv LOADUPDIR $lfghome/parser - case "-xfull": - setenv LDESRCESYSOUT "$lispcore/loadups/xfull35.sysout" - breaksw - case "-lfg": - case "-lfg35": - setenv LDESRCESYSOUT "$lfghome/parser/release/lfg.sysout" - set ICONSPEC = "-iconbitmap $lfghome/release/lfg.xbm -icontitle Xerox" - breaksw - case "-oldlfg": - setenv LDESRCESYSOUT "$lfghome/parser/oldrelease/lfg35.sysout" - set ICONSPEC = "-iconbitmap $lfghome/release/lfg.xbm -icontitle Xerox" - breaksw - case "-xlfg35": - case "-xlfg": - setenv LDESRCESYSOUT "$lfghome/parser/xlfg35.sysout" - set ICONSPEC = "-iconbitmap $lfghome/release/lfg.xbm -icontitle Xerox" - breaksw - case "-makelisp": - setenv LDEINIT $lispcore/makesysout/synclispfiles.lcom - setenv LOADUPDIR $lispcore - setenv LDESRCESYSOUT "$lispcore/loadups/lisp.venuesysout" - breaksw - case "-xlisp": - setenv LDESRCESYSOUT "$lispcore/loadups/xlisp.sysout" - breaksw - case "-makeinit": - setenv LDESRCESYSOUT "$MEDLEYDIR/basics/next/INIT.DLINIT" - setenv LDEINIT "" - breaksw - case "-nogreet": - setenv LDEINIT "" - breaksw - case "-greet": - setenv LDEINIT "$2" - shift - breaksw - case "-xns": - setenv TAKEXNSDOWN 1 - setenv LDELISPXNS 1 - breaksw - case "-noxns": - setenv TAKEXNSDOWN 0 - setenv LDELISPXNS 0 - breaksw - case "-raw": - unsetenv DISPLAY - breaksw - case "-geometry": - set geometry="-g $2" - shift - breaksw - case "-display": - setenv DISPLAY $2 - shift - breaksw - case "-t": - set xtimeout=$2 - shift - breaksw - case "-prog": - set progparam=$2 - shift - breaksw - case "-vmem": - setenv LDEDESTSYSOUT $2 - shift - breaksw - case "-kbd": - setenv LDEKBDTYPE $2 - shift - breaksw - - default: - if (`expr index "$1" "[-]"` == 1) then - # public sysout name - set name=`expr substr $1 2 999` - setenv LDESRCESYSOUT "$MEDLEYDIR/basics/${name}.sysout" - else # not an option so must be a private sysout name - setenv LDESRCESYSOUT $1 - endif - breaksw - endsw - shift - end -else -# no options specified -endif - -if ($?LDEDESTSYSOUT) then -else if (-f /$HOSTNAME/$LOGNAME/lisp.virtualmem) then - setenv LDEDESTSYSOUT /$HOSTNAME/$LOGNAME/lisp.virtualmem -else if (-f ~/lisp.virtualmem) then - setenv LDEDESTSYSOUT ~/lisp.virtualmem -else if (-d /$HOSTNAME/$LOGNAME) then - setenv LDEDESTSYSOUT /$HOSTNAME/$LOGNAME/lisp.virtualmem -endif - -if (! $?LDESRCESYSOUT) then - setenv LDESRCESYSOUT $LDEDESTSYSOUT -endif - - -if (! $?LDEKBDTYPE) then -# switch (`/usr/bin/hostinfo keyboardtype`) -# endsw -endif -echo "keyboard type is " $LDEKBDTYPE - -#set hostid = `hostid` -setenv INMEDLEY 1 -echo "sysout is " $LDESRCESYSOUT -#set version = `medley-lisp-version $LDESRCESYSOUT` -set version = "35010" -if ($status) exit - -if ($LDELISPXNS) then - set prog="ldeether" - else - set prog="lde" - echo "running without xns protocols" -endif -switch ("$version") - case "35000": - set version = "3.5" - breaksw - case "35010": - set version = "3.501" - breaksw - default: - set version = "3.5" -endsw -echo "using emulator version $version" - - switch ("$version") - case "3.5": - case "3.501": - set path = ($lispcore/bin/ $path) -# if ${?DISPLAY} then # we are running under X - $prog $mem $geometry $ICONSPEC -# else $prog $mem - endif - breaksw - -endsw -# -# Now we are done, so clean up after ourselves -# -cleanup: - -if ${?DISPLAY} then - # do X cleanup -else -# reset -endif -#clear ; this obscures error messages - - - - diff --git a/bin/solaris/3501/keymaker b/bin/solaris/3501/keymaker deleted file mode 100644 index c6a16956..00000000 Binary files a/bin/solaris/3501/keymaker and /dev/null differ diff --git a/bin/solaris/3501/keymaker.~1~ b/bin/solaris/3501/keymaker.~1~ deleted file mode 100644 index c83b4d9c..00000000 Binary files a/bin/solaris/3501/keymaker.~1~ and /dev/null differ diff --git a/bin/solaris/3501/keymaker.~2~ b/bin/solaris/3501/keymaker.~2~ deleted file mode 100644 index c6a16956..00000000 Binary files a/bin/solaris/3501/keymaker.~2~ and /dev/null differ diff --git a/bin/solaris/3501/lde b/bin/solaris/3501/lde deleted file mode 100644 index cf512551..00000000 Binary files a/bin/solaris/3501/lde and /dev/null differ diff --git a/bin/solaris/3501/lde.~2~ b/bin/solaris/3501/lde.~2~ deleted file mode 100644 index aaba8655..00000000 Binary files a/bin/solaris/3501/lde.~2~ and /dev/null differ diff --git a/bin/solaris/3501/lde.~3~ b/bin/solaris/3501/lde.~3~ deleted file mode 100644 index cf512551..00000000 Binary files a/bin/solaris/3501/lde.~3~ and /dev/null differ diff --git a/bin/solaris/3501/ldeether b/bin/solaris/3501/ldeether deleted file mode 100644 index 83875408..00000000 Binary files a/bin/solaris/3501/ldeether and /dev/null differ diff --git a/bin/solaris/3501/ldeether.~2~ b/bin/solaris/3501/ldeether.~2~ deleted file mode 100644 index db923ef7..00000000 Binary files a/bin/solaris/3501/ldeether.~2~ and /dev/null differ diff --git a/bin/solaris/3501/ldeether.~3~ b/bin/solaris/3501/ldeether.~3~ deleted file mode 100644 index 83875408..00000000 Binary files a/bin/solaris/3501/ldeether.~3~ and /dev/null differ diff --git a/bin/solaris/3501/ldex b/bin/solaris/3501/ldex deleted file mode 100644 index 9ef78226..00000000 Binary files a/bin/solaris/3501/ldex and /dev/null differ diff --git a/bin/solaris/3501/ldex.~2~ b/bin/solaris/3501/ldex.~2~ deleted file mode 100644 index 41047215..00000000 Binary files a/bin/solaris/3501/ldex.~2~ and /dev/null differ diff --git a/bin/solaris/3501/ldex.~3~ b/bin/solaris/3501/ldex.~3~ deleted file mode 100644 index 9ef78226..00000000 Binary files a/bin/solaris/3501/ldex.~3~ and /dev/null differ diff --git a/bin/solaris/3501/mkvdate b/bin/solaris/3501/mkvdate deleted file mode 100644 index d73e35db..00000000 Binary files a/bin/solaris/3501/mkvdate and /dev/null differ diff --git a/bin/solaris/3501/setsout b/bin/solaris/3501/setsout deleted file mode 100644 index c3b728ef..00000000 Binary files a/bin/solaris/3501/setsout and /dev/null differ diff --git a/bin/solaris/3501/setsout.~1~ b/bin/solaris/3501/setsout.~1~ deleted file mode 100644 index e80d6d93..00000000 Binary files a/bin/solaris/3501/setsout.~1~ and /dev/null differ diff --git a/bin/solaris/3501/setsout.~2~ b/bin/solaris/3501/setsout.~2~ deleted file mode 100644 index c3b728ef..00000000 Binary files a/bin/solaris/3501/setsout.~2~ and /dev/null differ diff --git a/bin/solaris/3501/tstsout b/bin/solaris/3501/tstsout deleted file mode 100644 index 2e15be7f..00000000 Binary files a/bin/solaris/3501/tstsout and /dev/null differ diff --git a/bin/solaris/3501/tstsout.~1~ b/bin/solaris/3501/tstsout.~1~ deleted file mode 100644 index 6478fa08..00000000 Binary files a/bin/solaris/3501/tstsout.~1~ and /dev/null differ diff --git a/bin/solaris/3501/tstsout.~2~ b/bin/solaris/3501/tstsout.~2~ deleted file mode 100644 index 2e15be7f..00000000 Binary files a/bin/solaris/3501/tstsout.~2~ and /dev/null differ diff --git a/bin/solaris/keymaker b/bin/solaris/keymaker deleted file mode 100644 index fac0e917..00000000 Binary files a/bin/solaris/keymaker and /dev/null differ diff --git a/bin/solaris/keymaker.~2~ b/bin/solaris/keymaker.~2~ deleted file mode 100644 index fac0e917..00000000 Binary files a/bin/solaris/keymaker.~2~ and /dev/null differ diff --git a/bin/solaris/lde b/bin/solaris/lde deleted file mode 100644 index 6772856a..00000000 Binary files a/bin/solaris/lde and /dev/null differ diff --git a/bin/solaris/lde.~1~ b/bin/solaris/lde.~1~ deleted file mode 100644 index 6772856a..00000000 Binary files a/bin/solaris/lde.~1~ and /dev/null differ diff --git a/bin/solaris/ldex b/bin/solaris/ldex deleted file mode 100644 index bb85907e..00000000 Binary files a/bin/solaris/ldex and /dev/null differ diff --git a/bin/solaris/ldex.~1~ b/bin/solaris/ldex.~1~ deleted file mode 100644 index bb85907e..00000000 Binary files a/bin/solaris/ldex.~1~ and /dev/null differ diff --git a/bin/solaris/mkvdate b/bin/solaris/mkvdate deleted file mode 100644 index 4b3afb70..00000000 Binary files a/bin/solaris/mkvdate and /dev/null differ diff --git a/bin/solaris/resource.frk/3501 b/bin/solaris/resource.frk/3501 deleted file mode 100644 index e13d8988..00000000 Binary files a/bin/solaris/resource.frk/3501 and /dev/null differ diff --git a/bin/solaris/setsout b/bin/solaris/setsout deleted file mode 100644 index a199284c..00000000 Binary files a/bin/solaris/setsout and /dev/null differ diff --git a/bin/solaris/setsout.~3~ b/bin/solaris/setsout.~3~ deleted file mode 100644 index a199284c..00000000 Binary files a/bin/solaris/setsout.~3~ and /dev/null differ diff --git a/bin/solaris/tstsout b/bin/solaris/tstsout deleted file mode 100644 index 3545fe61..00000000 Binary files a/bin/solaris/tstsout and /dev/null differ diff --git a/bin/solaris/tstsout.~3~ b/bin/solaris/tstsout.~3~ deleted file mode 100644 index 3545fe61..00000000 Binary files a/bin/solaris/tstsout.~3~ and /dev/null differ diff --git a/bin/tstsout b/bin/tstsout deleted file mode 100644 index b606f475..00000000 Binary files a/bin/tstsout and /dev/null differ diff --git a/loadups/xfull35.dribble b/loadups/xfull35.dribble index 5b8ef031..53cb65b2 100644 --- a/loadups/xfull35.dribble +++ b/loadups/xfull35.dribble @@ -1 +1 @@ - Full loadup started at 6-Dec-2020 00:08:39 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 18-May-2018 09:18:07 File created 24-Apr-95 12:05:29 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;5 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;4 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 29-Nov-2020 10:50:35 File created 29-Nov-2020 10:50:18 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 8-Aug-2020 15:48:17 File created 8-Aug-2020 15:48:17 MACINTERFACECOMS {DSK}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}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;3 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 + Full loadup started at 10-Dec-2020 18:37:30 while connected to {DSK}larry>Desktop>medley> {DSK}larry>Desktop>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>Desktop>medley>library>CHAT.LCOM;1 compiled on 25-Oct-93 12:23:25 File created 20-Jan-93 13:46:52 CHATCOMS {DSK}larry>Desktop>medley>library>DMCHAT.LCOM;1 compiled on 25-Feb-93 18:08:53 File created 20-Jan-93 13:49:09 DMCHATCOMS {DSK}larry>Desktop>medley>library>CHATTERMINAL.LCOM;1 compiled on 24-Feb-93 19:37:23 File created 4-Jul-90 02:21:01 CHATTERMINALCOMS {DSK}larry>Desktop>medley>library>TEDIT.LCOM;1 compiled on 18-May-2018 09:16:24 File created 19-Apr-2018 12:22:03 TEDITCOMS {DSK}larry>Desktop>medley>library>TEDITDCL.LCOM;1 compiled on 18-May-2018 09:17:04 File created 25-Aug-94 10:53:00 TEDITDCLCOMS {DSK}larry>Desktop>medley>library>PCTREE.LCOM;1 compiled on 18-May-2018 09:19:35 File created 19-Apr-2018 12:19:49 PCTREECOMS {DSK}larry>Desktop>medley>library>TEXTOFD.LCOM;1 compiled on 11-Feb-2001 12:06:43 File created 11-Feb-2001 12:06:42 TEXTOFDCOMS {DSK}larry>Desktop>medley>library>TEDITCOMMAND.LCOM;1 compiled on 18-May-2018 09:16:59 File created 20-Apr-2018 08:07:35 TEDITCOMMANDCOMS {DSK}larry>Desktop>medley>library>TEDITSCREEN.LCOM;1 compiled on 18-May-2018 09:18:38 File created 25-Aug-94 13:26:23 TEDITSCREENCOMS {DSK}larry>Desktop>medley>library>TEDITABBREV.LCOM;1 compiled on 6-Aug-2020 14:52:14 File created 6-Aug-2020 14:52:14 TEDITABBREVCOMS {DSK}larry>Desktop>medley>library>TEDITLOOKS.LCOM;1 compiled on 18-May-2018 09:17:44 File created 29-Jan-99 17:33:35 TEDITLOOKSCOMS {DSK}larry>Desktop>medley>library>TEDITFIND.LCOM;1 compiled on 18-May-2018 09:17:21 File created 6-May-2018 17:34:44 TEDITFINDCOMS {DSK}larry>Desktop>medley>library>TEDITHISTORY.LCOM;1 compiled on 18-May-2018 09:17:41 File created 29-Jan-99 17:34:39 TEDITHISTORYCOMS {DSK}larry>Desktop>medley>library>TEDITFILE.LCOM;1 compiled on 18-May-2018 09:17:06 File created 19-May-2001 11:45:53 TEDITFILECOMS {DSK}larry>Desktop>medley>library>TEDITWINDOW.LCOM;1 compiled on 18-May-2018 09:18:51 File created 21-Jun-99 20:00:42 TEDITWINDOWCOMS {DSK}larry>Desktop>medley>library>TEDITSELECTION.LCOM;1 compiled on 18-May-2018 09:18:43 File created 25-Aug-94 10:56:07 TEDITSELECTIONCOMS {DSK}larry>Desktop>medley>library>IMAGEOBJ.LCOM;1 compiled on 8-Feb-97 11:26:32 File created 7-Dec-95 13:21:56 IMAGEOBJCOMS {DSK}larry>Desktop>medley>library>EDITBITMAP.LCOM;1 compiled on 25-Feb-93 18:10:27 File created 11-Jun-90 15:42:25 EDITBITMAPCOMS {DSK}larry>Desktop>medley>library>READNUMBER.LCOM;1 compiled on 16-Aug-95 11:18:52 File created 25-May-93 00:28:30 READNUMBERCOMS {DSK}larry>Desktop>medley>library>TFBRAVO.LCOM;1 compiled on 19-Apr-2018 12:19:55 File created 19-Apr-2018 12:19:55 TFBRAVOCOMS {DSK}larry>Desktop>medley>library>TEDITHCPY.LCOM;1 compiled on 18-May-2018 09:17:32 File created 25-Aug-94 10:54:07 TEDITHCPYCOMS {DSK}larry>Desktop>medley>library>TEDITPAGE.LCOM;1 compiled on 18-May-2018 09:18:32 File created 25-Aug-94 10:55:28 TEDITPAGECOMS {DSK}larry>Desktop>medley>library>TEDITMENU.LCOM;1 compiled on 18-May-2018 09:18:07 File created 24-Apr-95 12:05:29 TEDITMENUCOMS {DSK}larry>Desktop>medley>library>TEDITFNKEYS.LCOM;1 compiled on 18-May-2018 09:17:25 File created 6-May-2018 17:15:13 TEDITFNKEYSCOMS {DSK}larry>Desktop>medley>library>HRULE.LCOM;1 compiled on 26-Feb-93 11:26:19 File created 8-Oct-92 16:50:21 HRULECOMS {DSK}larry>Desktop>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>Desktop>medley>library>FILEBROWSER.LCOM;1 compiled on 11-Sep-2001 09:26:17 File created 11-Sep-2001 09:26:14 {DSK}larry>Desktop>medley>library>TABLEBROWSER.LCOM;1 compiled on 1-Dec-2018 17:25:13 File created 1-Dec-2018 17:25:13 TABLEBROWSERCOMS {DSK}larry>Desktop>medley>lispusers>THINFILES.LCOM;1 compiled on 26-Jun-99 00:47:00 File created 1-May-92 16:49:39 THINFILESCOMS {DSK}larry>Desktop>medley>library>GRAPHER.LCOM;1 compiled on 14-May-2018 10:24:43 File created 14-May-2018 10:24:38 GRAPHERCOMS {DSK}larry>Desktop>medley>library>SPY.LCOM;1 compiled on 23-Aug-94 16:33:38 File created 29-Apr-94 14:13:52 SPYCOMS {DSK}larry>Desktop>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>Desktop>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>Desktop>medley>library>CASH-FILE.DFASL;5 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>Desktop>medley>library>COPYFILES.LCOM;1 compiled on 6-Apr-2018 21:14:29 File created 6-Apr-2018 21:14:29 COPYFILESCOMS {DSK}larry>Desktop>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>Desktop>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>Desktop>medley>library>MASTERSCOPE.DFASL;4 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>Desktop>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>Desktop>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>Desktop>medley>library>UNIXCOMM.LCOM;1 compiled on 25-Apr-2018 07:31:56 File created 25-Apr-2018 07:31:56 UNIXCOMMCOMS {DSK}larry>Desktop>medley>library>UNICODE.LCOM;18 compiled on 29-Nov-2020 10:50:35 File created 29-Nov-2020 10:50:18 UNICODECOMS {DSK}larry>Desktop>medley>lispusers>ISO8859IO.LCOM;1 compiled on 9-Mar-99 18:20:33 File created 9-Mar-99 18:20:26 ISO8859IOCOMS {DSK}larry>Desktop>medley>lispusers>HELPSYS.LCOM;1 compiled on 27-Nov-2020 11:23:11 File created 27-Nov-2020 09:47:44 HELPSYSCOMS {DSK}larry>Desktop>medley>lispusers>DINFO.LCOM;1 compiled on 27-Nov-2020 09:16:14 File created 27-Nov-2020 09:14:02 DINFOCOMS {DSK}larry>Desktop>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>Desktop>medley>library>CLIPBOARD.LCOM;1 compiled on 8-Aug-2020 15:48:08 File created 8-Aug-2020 15:48:08 CLIPBOARDCOMS {DSK}larry>Desktop>medley>lispusers>MACINTERFACE.LCOM;47 compiled on 8-Aug-2020 15:48:17 File created 8-Aug-2020 15:48:17 MACINTERFACECOMS {DSK}larry>Desktop>medley>lispusers>PRETTYFILEINDEX.LCOM;3 compiled on 28-Jun-99 17:13:58 File created 28-Jun-99 17:13:51 PRETTYFILEINDEXCOMS {DSK}larry>Desktop>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>Desktop>medley>library>UNIXCHAT.LCOM;1 compiled on 21-Jan-93 18:45:15 File created 15-Aug-90 11:05:53 UNIXCHATCOMS {DSK}larry>Desktop>medley>library>UNIXTELNET.LCOM;1 compiled on 18-Jul-94 23:29:48 File created 16-Feb-90 17:00:31 UNIXTELNETCOMS {DSK}larry>Desktop>medley>lispusers>SETDEFAULTPRINTER.LCOM;3 compiled on 12-Nov-98 17:41:28 File created 7-Jun-93 15:34:58 SETDEFAULTPRINTERCOMS {DSK}larry>Desktop>medley>lispusers>DEFAULTSUBITEMFN.LCOM;1 compiled on 8-Sep-94 20:23:23 File created 4-Mar-87 15:59:01 DEFAULTSUBITEMFNCOMS {DSK}larry>Desktop>medley>lispusers>LoadPatches.;1 File created 16-Nov-88 14:11:42 LOADPATCHESCOMS About to end loadup Creating FULL sysout on {DSK}larry>Desktop>medley>loadups>xfull35.sysout \ No newline at end of file diff --git a/loadups/xfull35.sysout b/loadups/xfull35.sysout index 150f729c..636c07a7 100644 Binary files a/loadups/xfull35.sysout and b/loadups/xfull35.sysout differ diff --git a/loadups/xlisp.dribble b/loadups/xlisp.dribble index 4531eec9..bd9b1523 100644 --- a/loadups/xlisp.dribble +++ b/loadups/xlisp.dribble @@ -1,178 +1,178 @@ -Synchronizing Lisp sysout at 6-Dec-2020 00:07:35 +Synchronizing Lisp sysout at 10-Dec-2020 18:36:47 {DSK}larry>ilisp>medley>makesysout>SYNCLISPFILES.;53 created 6-Dec-2020 00:06:51 -{DSK}larry>ilisp>medley>sources>FASLOAD.DFASL;1 +{DSK}larry>Desktop>medley>sources>FASLOAD.DFASL;1 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>sources>FASLOAD.;2 Source file created Tuesday, 17 April 2018, 7:55:20. FASL file created Tuesday, 17 April 2018, 8:09:14. -{DSK}larry>ilisp>medley>sources>FONT.LCOM;7 +{DSK}larry>Desktop>medley>sources>FONT.LCOM;7 compiled on 28-Jun-99 16:29:55 File created 28-Jun-99 16:29:49 -{DSK}larry>ilisp>medley>sources>UFSCALLC.LCOM;4 +{DSK}larry>Desktop>medley>sources>UFSCALLC.LCOM;4 compiled on 18-May-2018 12:53:18 File created 18-May-2018 12:53:00 UFSCALLCCOMS -{DSK}larry>ilisp>medley>sources>UFS.LCOM;4 +{DSK}larry>Desktop>medley>sources>UFS.LCOM;4 compiled on 18-May-2018 09:20:25 File created 31-Dec-2000 12:38:40 UFSCOMS -{DSK}larry>ilisp>medley>sources>APRINT.LCOM;3 +{DSK}larry>Desktop>medley>sources>APRINT.LCOM;3 compiled on 17-Jan-2020 05:51:20 File created 17-Jan-2020 05:51:20 APRINTCOMS -{DSK}larry>ilisp>medley>sources>PMAP.LCOM;4 +{DSK}larry>Desktop>medley>sources>PMAP.LCOM;4 compiled on 18-May-2018 09:21:40 File created 3-Feb-2002 14:11:02 PMAPCOMS -{DSK}larry>ilisp>medley>sources>ADIR.LCOM;8 +{DSK}larry>Desktop>medley>sources>ADIR.LCOM;8 compiled on 14-Oct-2020 11:14:41 File created 14-Oct-2020 11:14:03 ADIRCOMS -{DSK}larry>ilisp>medley>sources>COREIO.LCOM;3 +{DSK}larry>Desktop>medley>sources>COREIO.LCOM;3 compiled on 4-Oct-2018 14:13:06 File created 4-Oct-2018 14:13:06 COREIOCOMS -{DSK}larry>ilisp>medley>sources>ACODE.LCOM;7 +{DSK}larry>Desktop>medley>sources>ACODE.LCOM;7 compiled on 25-Jun-2017 22:38:30 File created 25-Jun-2017 22:35:00 ACODECOMS -{DSK}larry>ilisp>medley>sources>IOCHAR.LCOM;11 +{DSK}larry>Desktop>medley>sources>IOCHAR.LCOM;11 compiled on 10-Aug-2020 21:44:38 File created 10-Aug-2020 21:44:38 -{DSK}larry>ilisp>medley>sources>LLDATATYPE.LCOM;1 +{DSK}larry>Desktop>medley>sources>LLDATATYPE.LCOM;1 compiled on 28-Jun-99 16:57:53 File created 28-Jun-99 16:57:50 -{DSK}larry>ilisp>medley>sources>LLCHAR.LCOM;3 +{DSK}larry>Desktop>medley>sources>LLCHAR.LCOM;3 compiled on 11-Nov-2018 13:08:05 File created 11-Nov-2018 13:08:04 -{DSK}larry>ilisp>medley>sources>FILEIO.LCOM;13 +{DSK}larry>Desktop>medley>sources>FILEIO.LCOM;13 compiled on 13-Aug-2020 11:43:08 File created 13-Aug-2020 11:43:08 FILEIOCOMS -{DSK}larry>ilisp>medley>sources>PRETTY.LCOM;7 +{DSK}larry>Desktop>medley>sources>PRETTY.LCOM;7 compiled on 16-Apr-2018 21:37:10 File created 16-Apr-2018 21:37:09 PRETTYCOMS -{DSK}larry>ilisp>medley>sources>NEWPRINTDEF.LCOM;3 +{DSK}larry>Desktop>medley>sources>NEWPRINTDEF.LCOM;3 compiled on 31-Dec-2000 11:53:35 File created 31-Dec-2000 11:53:33 NEWPRINTDEFCOMS -{DSK}larry>ilisp>medley>sources>FONTPROFILE.LCOM;3 +{DSK}larry>Desktop>medley>sources>FONTPROFILE.LCOM;3 compiled on 14-May-2018 00:04:35 File created 28-Jun-99 22:10:46 FONTPROFILECOMS -{DSK}larry>ilisp>medley>sources>PRINTFN.LCOM;5 +{DSK}larry>Desktop>medley>sources>PRINTFN.LCOM;5 compiled on 16-Apr-2018 21:40:32 File created 16-Apr-2018 21:40:32 PRINTFNCOMS -{DSK}larry>ilisp>medley>sources>LOADFNS.LCOM;11 +{DSK}larry>Desktop>medley>sources>LOADFNS.LCOM;11 compiled on 16-Apr-2018 17:38:16 File created 16-Apr-2018 17:38:16 LOADFNSCOMS -{DSK}larry>ilisp>medley>sources>FILEPKG.LCOM;14 +{DSK}larry>Desktop>medley>sources>FILEPKG.LCOM;14 compiled on 27-Oct-2020 15:40:33 File created 27-Oct-2020 15:40:32 FILEPKGCOMS -{DSK}larry>ilisp>medley>sources>ASKUSER.LCOM;6 +{DSK}larry>Desktop>medley>sources>ASKUSER.LCOM;6 compiled on 10-Aug-2020 21:18:50 File created 10-Aug-2020 21:18:50 ASKUSERCOMS -{DSK}larry>ilisp>medley>sources>CMLMODULES.DFASL;5 +{DSK}larry>Desktop>medley>sources>CMLMODULES.DFASL;5 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>sources>CMLMODULES.;2 Source file created Monday, 16 April 2018, 22:46:19. FASL file created Monday, 16 April 2018, 22:46:19. -{DSK}larry>ilisp>medley>sources>LOGOW.DFASL;1 +{DSK}larry>Desktop>medley>sources>LOGOW.DFASL;1 XCL Compiler output for source file {DSK}sybalsky>lispcore>sources>LOGOW.;2 Source file created Sunday, 9 April 2000, 18:08:24. FASL file created Sunday, 9 April 2000, 18:08:25. -{DSK}larry>ilisp>medley>sources>DEXEC.LCOM;13 +{DSK}larry>Desktop>medley>sources>DEXEC.LCOM;13 compiled on 13-Aug-2020 12:36:18 File created 13-Aug-2020 12:36:18 -{DSK}larry>ilisp>medley>sources>INSPECT.LCOM;8 +{DSK}larry>Desktop>medley>sources>INSPECT.LCOM;8 compiled on 21-Apr-2018 08:08:07 File created 21-Apr-2018 08:08:07 INSPECTCOMS -{DSK}larry>ilisp>medley>sources>TWODINSPECTOR.LCOM;2 +{DSK}larry>Desktop>medley>sources>TWODINSPECTOR.LCOM;2 compiled on 11-Aug-2020 11:22:31 File created 11-Aug-2020 11:22:30 TWODINSPECTORCOMS -{DSK}larry>ilisp>medley>sources>XCLC-TOP-LEVEL.DFASL;10 +{DSK}larry>Desktop>medley>sources>XCLC-TOP-LEVEL.DFASL;10 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>sources>XCLC-TOP-LEVEL.;10 Source file created 19-Sep-2020 22:02:59 FASL file created Saturday, 19 September 2020, 22:02:59 -{DSK}larry>ilisp>medley>sources>HARDCOPY.LCOM;7 +{DSK}larry>Desktop>medley>sources>HARDCOPY.LCOM;7 compiled on 16-Apr-2018 22:15:08 File created 16-Apr-2018 22:15:08 HARDCOPYCOMS -{DSK}larry>ilisp>medley>sources>INTERPRESS.LCOM;7 +{DSK}larry>Desktop>medley>sources>INTERPRESS.LCOM;7 compiled on 16-Apr-2018 21:56:38 File created 16-Apr-2018 21:56:38 INTERPRESSCOMS -{DSK}larry>ilisp>medley>sources>SEDIT-COMMANDS.DFASL;4 +{DSK}larry>Desktop>medley>sources>SEDIT-COMMANDS.DFASL;4 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>sources>SEDIT-COMMANDS.;3 Source file created Monday, 23 April 2018, 18:12:52. FASL file created Monday, 23 April 2018, 18:13:51. -{DSK}larry>ilisp>medley>sources>SEDIT-WINDOW.DFASL;3 +{DSK}larry>Desktop>medley>sources>SEDIT-WINDOW.DFASL;3 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;2 Source file created Monday, 14 May 2018, 14:12:02. FASL file created Monday, 14 May 2018, 14:12:02. -{DSK}larry>ilisp>medley>sources>TIME.LCOM;5 +{DSK}larry>Desktop>medley>sources>TIME.LCOM;5 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;6 +{DSK}LARRY>DESKTOP>MEDLEY>PATCHES>LLREADPATCH.LCOM;6 compiled on 1-Aug-2020 18:52:48 File created 1-Aug-2020 18:52:48 LLREADPATCHCOMS -{DSK}larry>ilisp>medley>patches>MACHINEINDEPENDENTPATCH.LCOM;3 +{DSK}LARRY>DESKTOP>MEDLEY>PATCHES>MACHINEINDEPENDENTPATCH.LCOM;3 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 +{DSK}LARRY>DESKTOP>MEDLEY>PATCHES>NOXNSPATCH.LCOM;1 compiled on 31-Mar-99 17:08:42 File created 31-Mar-99 17:08:40 NOXNSPATCHCOMS @@ -180,4 +180,4 @@ NOXNSPATCHCOMS 3 files loaded Creating updated LISP sysout on -{DSK}larry>ilisp>medley>loadups>xlisp.sysout;10 +{DSK}larry>Desktop>medley>loadups>xlisp.sysout;6 diff --git a/loadups/xlisp.sysout b/loadups/xlisp.sysout index 24059856..49b4d656 100644 Binary files a/loadups/xlisp.sysout and b/loadups/xlisp.sysout differ diff --git a/makesysout/SYNCLISPFILES.LCOM.~14~ b/makesysout/SYNCLISPFILES.LCOM.~14~ deleted file mode 100644 index 7fe69517..00000000 Binary files a/makesysout/SYNCLISPFILES.LCOM.~14~ and /dev/null differ diff --git a/makesysout/SYNCLISPFILES.LCOM.~15~ b/makesysout/SYNCLISPFILES.LCOM.~15~ deleted file mode 100644 index 4214b926..00000000 Binary files a/makesysout/SYNCLISPFILES.LCOM.~15~ and /dev/null differ diff --git a/makesysout/SYNCLISPFILES.~32~ b/makesysout/SYNCLISPFILES.~32~ deleted file mode 100644 index 8ac7d5d2..00000000 --- a/makesysout/SYNCLISPFILES.~32~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "24-Jul-2020 01:05:29"  {DSK}kaplan>Local>medley3.5>lispcore>MAKESYSOUT>SYNCLISPFILES.;32 9071 changes to%: (FNS SYNCLISPFILES) previous date%: "11-Nov-2018 13:22:54" {DSK}kaplan>Local>medley3.5>lispcore>MAKESYSOUT>SYNCLISPFILES.;30) (PRETTYCOMPRINT SYNCLISPFILESCOMS) (RPAQQ SYNCLISPFILESCOMS ((FNS SYNCLISPFILES ENDLOADUP MEDLEYVERSION NOPUPPATCH) (INITVARS (WRITELISPSYSOUTFLAG T)) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (SYNCLISPFILES))) (PROP FILETYPE SYNCLISPFILES))) (DEFINEQ (SYNCLISPFILES [LAMBDA (NODRIBBLE KEEPPUP) (* ; "Edited 24-Jul-2020 01:05 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 lispcore/") (CLRPROMPT) (CNDIR (UNIX-GETENV "LOADUPDIR")) (SETQ LISPMAKESYSDATE MAKESYSDATE) (LET (SKIPFILES (ROOTDIRECTORY (DIRECTORYNAME T))) (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "xlisp.sysout")) (* ;;  "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.") (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/library") (PACK* ROOTDIRECTORY "/lispusers"))) (SETQ DIRECTORIES (APPEND (PACK* ROOTDIRECTORY "/sources"))) (CL:UNLESS NODRIBBLE (DRIBBLE (PACK* ROOTDIRECTORY "/xlisp.dribble"))) (BKSYSBUF " ") (PRINTOUT T T "Synchronizing Lisp sysout at " (DATE) " while connected to " ROOTDIRECTORY T T) (PUSH SKIPFILES 'FASLOAD) (LOAD 'sources/FASLOAD.DFASL 'SYSLOAD) (* ;  "Lisp macros don't show everything") (* ;  "(PUSH SKIPFILES 'INSPECT)(DREMOVE (FASSOC 'READTABLEP INSPECTMACROS) INSPECTMACROS)") (PUSH SKIPFILES 'ATBL) (* ;  "Whole file can't be reloaded--smashes readtabl") (LOADFNS '(\ATBLSET \MAPCHARTABLE RESETREADTABLE) 'sources/ATBL.LCOM 'SYSLOAD) (LOADVARS '\KEYNAMES '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") (FOR LF FF CFILE LOADEDDATE FILEDATE IFILEDATE NOCOMPILEDFILES (COUNT _ 0) (SOURCEDIR _ (CONCAT ROOTDIRECTORY "/sources/")) IN (LDIFFERENCE SYSFILES SKIPFILES) DO [SETQ LOADEDDATE (CAAR (GETP LF 'FILEDATES] (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)) (FOR EXT IN *COMPILED-EXTENSIONS* WHEN (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY FF))) DO (SETQ FILEDATE (FILEDATE FF)) (* ; "symbolic file date") (RETURN) FINALLY (PRINTOUT T "Note: No compiled file for " LF T) (PUSH NOCOMPILEDFILES LF) (SETQ CFILE FF) (SETQ FILEDATE (FILEDATE FF))) (CL:UNLESS FILEDATE (PRINTOUT T LF " does not have a lispcore date, not updated" T) (GO $$ITERATE)) (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 (IGREATERP IFILEDATE (IDATE LOADEDDATE)) THEN (ADD COUNT 1) (LOAD CFILE 'SYSLOAD)) 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 (CONCAT ROOTDIRECTORY "/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 (PRINTOUT T "Creating updated LISP sysout on " MAKESYSFILENAME T) (CLRPROMPT) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley Lisp Sysout%")"))) (CL:UNLESS NODRIBBLE (DRIBBLE]) (ENDLOADUP [LAMBDA NIL (* ; "Edited 11-Oct-90 11:02 by jds") (* ;; "set up for NONET configuration; sites with ethernet can load in init from other places") (* ;; "All records existing at this point in time have been loaded as part of the system.") [MAPC USERRECLST (FUNCTION (LAMBDA (R) (RECORDPRIORITY R 'SYSTEM] [MAPC SYSTEMINITVARS (FUNCTION (LAMBDA (X) (SETTOPVAL (CAR X) (COPY (CDR X] (COND ((NEQ \MACHINETYPE \MAIKO) (* ;;  "On a non-SUN loadup, need to clear out two fields in the Interface Page, per AR 11276. JDS") (replace (IFPAGE ProcessSize) of \InterfacePage with 0) (replace (IFPAGE StorageFullState) of \InterfacePage with 0]) (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 (SYNCLISPFILES) ) (PUTPROPS SYNCLISPFILES FILETYPE :TCOMPL) (PUTPROPS SYNCLISPFILES COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (699 8851 (SYNCLISPFILES 709 . 7026) (ENDLOADUP 7028 . 7944) (MEDLEYVERSION 7946 . 8424) (NOPUPPATCH 8426 . 8849))))) STOP \ No newline at end of file diff --git a/makesysout/SYNCLISPFILES.~33~ b/makesysout/SYNCLISPFILES.~33~ deleted file mode 100644 index 15520455..00000000 --- a/makesysout/SYNCLISPFILES.~33~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "11-Aug-2020 16:49:39"  {DSK}kaplan>Local>medley3.5>lispcore>makesysout>SYNCLISPFILES.;38 9259 changes to%: (FNS SYNCLISPFILES) previous date%: "11-Aug-2020 16:04:17" {DSK}kaplan>Local>medley3.5>lispcore>makesysout>SYNCLISPFILES.;34) (PRETTYCOMPRINT SYNCLISPFILESCOMS) (RPAQQ SYNCLISPFILESCOMS ((FNS SYNCLISPFILES ENDLOADUP MEDLEYVERSION NOPUPPATCH) (INITVARS (WRITELISPSYSOUTFLAG T)) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (SYNCLISPFILES))) (PROP FILETYPE SYNCLISPFILES))) (DEFINEQ (SYNCLISPFILES [LAMBDA (NODRIBBLE KEEPPUP) (* ; "Edited 11-Aug-2020 16:49 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 lispcore/") (CLRPROMPT) (CNDIR (UNIX-GETENV "LOADUPDIR")) (SETQ LISPMAKESYSDATE MAKESYSDATE) (LET (SKIPFILES (ROOTDIRECTORY (DIRECTORYNAME T))) (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "xlisp.sysout")) (* ;;  "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.") (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/library") (PACK* ROOTDIRECTORY "/lispusers"))) (SETQ DIRECTORIES (APPEND (PACK* ROOTDIRECTORY "/sources"))) (CL:UNLESS NODRIBBLE (DRIBBLE (PACK* ROOTDIRECTORY "/xlisp.dribble"))) (BKSYSBUF " ") (PRINTOUT T T "Synchronizing Lisp sysout at " (DATE) " while connected to " ROOTDIRECTORY T T) (PUSH SKIPFILES 'FASLOAD) (LOAD 'sources/FASLOAD.DFASL 'SYSLOAD) (* ;  "Lisp macros don't show everything") (* ;  "(PUSH SKIPFILES 'INSPECT)(DREMOVE (FASSOC 'READTABLEP INSPECTMACROS) INSPECTMACROS)") (PUSH SKIPFILES 'ATBL) (* ;  "Whole file can't be reloaded--smashes readtabl") (LOADFNS '(\ATBLSET \MAPCHARTABLE RESETREADTABLE) 'sources/ATBL.LCOM 'SYSLOAD) (LOADVARS '\KEYNAMES '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") (FOR LF FF CFILE LOADEDDATE FILEDATE IFILEDATE NOCOMPILEDFILES CFILES (COUNT _ 0) (SOURCEDIR _ (CONCAT ROOTDIRECTORY "/sources/")) IN (LDIFFERENCE SYSFILES SKIPFILES) DO [SETQ LOADEDDATE (CAAR (GETP LF 'FILEDATES] (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)) (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 (IF CFILES THEN (* ;;  "If more than one (LCOM, DFASL), pick the newest one.") (FOR CF IN CFILES LARGEST (IDATE (FILEDATE CF T))) ELSE (PRINTOUT T "Note: No compiled file for " LF T) (PUSH NOCOMPILEDFILES 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 (IGREATERP IFILEDATE (IDATE LOADEDDATE)) THEN (ADD COUNT 1) (LOAD CFILE 'SYSLOAD)) 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 (CONCAT ROOTDIRECTORY "/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 (PRINTOUT T "Creating updated LISP sysout on " MAKESYSFILENAME T) (CLRPROMPT) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley Lisp Sysout%")"))) (CL:UNLESS NODRIBBLE (DRIBBLE]) (ENDLOADUP [LAMBDA NIL (* ; "Edited 11-Oct-90 11:02 by jds") (* ;; "set up for NONET configuration; sites with ethernet can load in init from other places") (* ;; "All records existing at this point in time have been loaded as part of the system.") [MAPC USERRECLST (FUNCTION (LAMBDA (R) (RECORDPRIORITY R 'SYSTEM] [MAPC SYSTEMINITVARS (FUNCTION (LAMBDA (X) (SETTOPVAL (CAR X) (COPY (CDR X] (COND ((NEQ \MACHINETYPE \MAIKO) (* ;;  "On a non-SUN loadup, need to clear out two fields in the Interface Page, per AR 11276. JDS") (replace (IFPAGE ProcessSize) of \InterfacePage with 0) (replace (IFPAGE StorageFullState) of \InterfacePage with 0]) (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 (SYNCLISPFILES) ) (PUTPROPS SYNCLISPFILES FILETYPE :TCOMPL) (PUTPROPS SYNCLISPFILES COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (699 9035 (SYNCLISPFILES 709 . 7210) (ENDLOADUP 7212 . 8128) (MEDLEYVERSION 8130 . 8608) (NOPUPPATCH 8610 . 9033))))) STOP \ No newline at end of file diff --git a/makesysout/SYNCLISPFILES.~35~ b/makesysout/SYNCLISPFILES.~35~ deleted file mode 100644 index c134d491..00000000 --- a/makesysout/SYNCLISPFILES.~35~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "28-Sep-2020 12:30:34"  {DSK}kaplan>Local>medley3.5>lispcore>makesysout>SYNCLISPFILES.;35 9276 changes to%: (FNS SYNCLISPFILES) previous date%: "28-Sep-2020 12:26:47" {DSK}kaplan>Local>medley3.5>lispcore>makesysout>SYNCLISPFILES.;34) (PRETTYCOMPRINT SYNCLISPFILESCOMS) (RPAQQ SYNCLISPFILESCOMS ((FNS SYNCLISPFILES ENDLOADUP MEDLEYVERSION NOPUPPATCH) (INITVARS (WRITELISPSYSOUTFLAG T)) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (SYNCLISPFILES))) (PROP FILETYPE SYNCLISPFILES))) (DEFINEQ (SYNCLISPFILES [LAMBDA (NODRIBBLE KEEPPUP) (* ; "Edited 28-Sep-2020 12:30 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 lispcore/") (CLRPROMPT) (CNDIR (UNIX-GETENV "LOADUPDIR")) (SETQ LISPMAKESYSDATE MAKESYSDATE) (LET (SKIPFILES (ROOTDIRECTORY (DIRECTORYNAME T))) (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "/loadups/xlisp.sysout")) (* ;;  "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.") (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/library") (PACK* ROOTDIRECTORY "/lispusers"))) (SETQ DIRECTORIES (APPEND (PACK* ROOTDIRECTORY "/sources"))) (CL:UNLESS NODRIBBLE (DRIBBLE (PACK* ROOTDIRECTORY "/loadups/xlisp.dribble"))) (BKSYSBUF " ") (PRINTOUT T T "Synchronizing Lisp sysout at " (DATE) " while connected to " ROOTDIRECTORY T T) (PUSH SKIPFILES 'FASLOAD) (LOAD 'sources/FASLOAD.DFASL 'SYSLOAD) (* ;  "Lisp macros don't show everything") (* ;  "(PUSH SKIPFILES 'INSPECT)(DREMOVE (FASSOC 'READTABLEP INSPECTMACROS) INSPECTMACROS)") (PUSH SKIPFILES 'ATBL) (* ;  "Whole file can't be reloaded--smashes readtabl") (LOADFNS '(\ATBLSET \MAPCHARTABLE RESETREADTABLE) 'sources/ATBL.LCOM 'SYSLOAD) (LOADVARS '\KEYNAMES '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") (FOR LF FF CFILE LOADEDDATE FILEDATE IFILEDATE NOCOMPILEDFILES CFILES (COUNT _ 0) (SOURCEDIR _ (CONCAT ROOTDIRECTORY "/sources/")) IN (LDIFFERENCE SYSFILES SKIPFILES) DO [SETQ LOADEDDATE (CAAR (GETP LF 'FILEDATES] (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)) (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 (IF CFILES THEN (* ;;  "If more than one (LCOM, DFASL), pick the newest one.") (FOR CF IN CFILES LARGEST (IDATE (FILEDATE CF T))) ELSE (PRINTOUT T "Note: No compiled file for " LF T) (PUSH NOCOMPILEDFILES 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 (IGREATERP IFILEDATE (IDATE LOADEDDATE)) THEN (ADD COUNT 1) (LOAD CFILE 'SYSLOAD)) 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 (CONCAT ROOTDIRECTORY "/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 (PRINTOUT T "Creating updated LISP sysout on " MAKESYSFILENAME T) (CLRPROMPT) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley Lisp Sysout%")"))) (CL:UNLESS NODRIBBLE (DRIBBLE]) (ENDLOADUP [LAMBDA NIL (* ; "Edited 11-Oct-90 11:02 by jds") (* ;; "set up for NONET configuration; sites with ethernet can load in init from other places") (* ;; "All records existing at this point in time have been loaded as part of the system.") [MAPC USERRECLST (FUNCTION (LAMBDA (R) (RECORDPRIORITY R 'SYSTEM] [MAPC SYSTEMINITVARS (FUNCTION (LAMBDA (X) (SETTOPVAL (CAR X) (COPY (CDR X] (COND ((NEQ \MACHINETYPE \MAIKO) (* ;;  "On a non-SUN loadup, need to clear out two fields in the Interface Page, per AR 11276. JDS") (replace (IFPAGE ProcessSize) of \InterfacePage with 0) (replace (IFPAGE StorageFullState) of \InterfacePage with 0]) (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 (SYNCLISPFILES) ) (PUTPROPS SYNCLISPFILES FILETYPE :TCOMPL) (PUTPROPS SYNCLISPFILES COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (699 9052 (SYNCLISPFILES 709 . 7227) (ENDLOADUP 7229 . 8145) (MEDLEYVERSION 8147 . 8625) (NOPUPPATCH 8627 . 9050))))) STOP \ No newline at end of file diff --git a/makesysout/SYNCLISPFILES.~47~ b/makesysout/SYNCLISPFILES.~47~ deleted file mode 100644 index 87cf824c..00000000 --- a/makesysout/SYNCLISPFILES.~47~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "23-Oct-2020 23:44:29"  {DSK}kaplan>Local>medley3.5>lispcore>makesysout>SYNCLISPFILES.;47 10670 changes to%: (FNS SYNCLISPFILES) previous date%: "23-Oct-2020 18:01:30" {DSK}kaplan>Local>medley3.5>lispcore>makesysout>SYNCLISPFILES.;39) (PRETTYCOMPRINT SYNCLISPFILESCOMS) (RPAQQ SYNCLISPFILESCOMS ((FNS SYNCLISPFILES ENDLOADUP MEDLEYVERSION NOPUPPATCH) (INITVARS (WRITELISPSYSOUTFLAG T)) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (SYNCLISPFILES))) (PROP FILETYPE SYNCLISPFILES))) (DEFINEQ (SYNCLISPFILES [LAMBDA (NODRIBBLE KEEPPUP) (* ; "Edited 23-Oct-2020 23:44 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 lispcore/") (CLRPROMPT) (CNDIR (UNIX-GETENV "LOADUPDIR")) (SETQ LISPMAKESYSDATE MAKESYSDATE) (LET (SKIPFILES (ROOTDIRECTORY (DIRECTORYNAME T))) (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "/loadups/xlisp.sysout")) (* ;;  "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.") (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/library") (PACK* ROOTDIRECTORY "/lispusers"))) (SETQ DIRECTORIES (APPEND (PACK* ROOTDIRECTORY "/sources"))) (CL:UNLESS NODRIBBLE (DRIBBLE (PACK* ROOTDIRECTORY "/loadups/xlisp.dribble"))) (BKSYSBUF " ") (PRINTOUT T T "Synchronizing Lisp sysout at " (DATE) " while connected to " ROOTDIRECTORY T) (PRINTOUT T 5 (CDAR (GETP 'SYNCLISPFILES 'FILEDATES)) T 5 "created " (CAAR (GETP 'SYNCLISPFILES 'FILEDATES)) T T) (PUSH SKIPFILES 'FASLOAD) (LOAD 'sources/FASLOAD.DFASL 'SYSLOAD) (* ;  "Lisp macros don't show everything") (* ;  "(PUSH SKIPFILES 'INSPECT)(DREMOVE (FASSOC 'READTABLEP INSPECTMACROS) INSPECTMACROS)") (PUSH SKIPFILES 'ATBL) (* ;  "Whole file can't be reloaded--smashes readtabl") (LOADFNS '(\ATBLSET \MAPCHARTABLE RESETREADTABLE) 'sources/ATBL.LCOM 'SYSLOAD) (LOADVARS '\KEYNAMES '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") (FOR LF FF CFILE LOADEDDATE FILEDATE IFILEDATE NOCOMPILEDFILES CFILES (COUNT _ 0) (SOURCEDIR _ (CONCAT ROOTDIRECTORY "/sources/")) 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 (IF CFILES THEN (* ;;  "If more than one (LCOM, DFASL), pick the newest one.") (FOR CF IN CFILES LARGEST (IDATE (FILEDATE CF T))) ELSE (PRINTOUT T "Note: No compiled file for " LF T) (PUSH NOCOMPILEDFILES 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 (CONCAT ROOTDIRECTORY "/patches/"))) DO (FOR EXT CFILE IN *COMPILED-EXTENSIONS* WHEN (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY PF))) DO (ADD COUNT 1) (LOAD CFILE 'SYSLOAD) (* ; "symbolic file date") (RETURN) FINALLY (PRINTOUT T "Note: No compiled file for " PF T) (ADD COUNT 1) (LOAD PF 'SYSLOAD)) FINALLY (PRINTOUT T T T COUNT " files loaded" T)) (CL:UNLESS KEEPPUP (NOPUPPATCH)) (ENDLOADUP) (CL:WHEN WRITELISPSYSOUTFLAG (* ;; "So we print out the new version number") (SETQ MAKESYSFILENAME (OUTFILEP MAKESYSFILENAME)) (PRINTOUT T "Creating updated LISP sysout on " MAKESYSFILENAME T) (CLRPROMPT) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley Lisp Sysout%")"))) (CL:UNLESS NODRIBBLE (DRIBBLE]) (ENDLOADUP [LAMBDA NIL (* ; "Edited 11-Oct-90 11:02 by jds") (* ;; "set up for NONET configuration; sites with ethernet can load in init from other places") (* ;; "All records existing at this point in time have been loaded as part of the system.") [MAPC USERRECLST (FUNCTION (LAMBDA (R) (RECORDPRIORITY R 'SYSTEM] [MAPC SYSTEMINITVARS (FUNCTION (LAMBDA (X) (SETTOPVAL (CAR X) (COPY (CDR X] (COND ((NEQ \MACHINETYPE \MAIKO) (* ;;  "On a non-SUN loadup, need to clear out two fields in the Interface Page, per AR 11276. JDS") (replace (IFPAGE ProcessSize) of \InterfacePage with 0) (replace (IFPAGE StorageFullState) of \InterfacePage with 0]) (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 (SYNCLISPFILES) ) (PUTPROPS SYNCLISPFILES FILETYPE :TCOMPL) (PUTPROPS SYNCLISPFILES COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (699 10446 (SYNCLISPFILES 709 . 8621) (ENDLOADUP 8623 . 9539) (MEDLEYVERSION 9541 . 10019) (NOPUPPATCH 10021 . 10444))))) STOP \ No newline at end of file diff --git a/makesysout/SYNCLISPFILES.~48~ b/makesysout/SYNCLISPFILES.~48~ deleted file mode 100644 index f0864e51..00000000 --- a/makesysout/SYNCLISPFILES.~48~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "23-Oct-2020 23:51:41"  {DSK}kaplan>Local>medley3.5>lispcore>makesysout>SYNCLISPFILES.;48 10843 changes to%: (FNS SYNCLISPFILES) previous date%: "23-Oct-2020 18:01:30" {DSK}kaplan>Local>medley3.5>lispcore>makesysout>SYNCLISPFILES.;39) (PRETTYCOMPRINT SYNCLISPFILESCOMS) (RPAQQ SYNCLISPFILESCOMS ((FNS SYNCLISPFILES ENDLOADUP MEDLEYVERSION NOPUPPATCH) (INITVARS (WRITELISPSYSOUTFLAG T)) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (SYNCLISPFILES))) (PROP FILETYPE SYNCLISPFILES))) (DEFINEQ (SYNCLISPFILES [LAMBDA (NODRIBBLE KEEPPUP) (* ; "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 lispcore/") (CLRPROMPT) (CNDIR (UNIX-GETENV "LOADUPDIR")) (SETQ LISPMAKESYSDATE MAKESYSDATE) (LET (SKIPFILES (ROOTDIRECTORY (DIRECTORYNAME T))) (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "/loadups/xlisp.sysout")) (* ;;  "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.") (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/library") (PACK* ROOTDIRECTORY "/lispusers"))) (SETQ DIRECTORIES (APPEND (PACK* ROOTDIRECTORY "/sources"))) (CL:UNLESS NODRIBBLE (DRIBBLE (PACK* ROOTDIRECTORY "/loadups/xlisp.dribble"))) (BKSYSBUF " ") (PRINTOUT T T "Synchronizing Lisp sysout at " (DATE) " while connected to " ROOTDIRECTORY T) (PRINTOUT T 5 (CDAR (GETP 'SYNCLISPFILES 'FILEDATES)) T 5 "created " (CAAR (GETP 'SYNCLISPFILES 'FILEDATES)) T T) (PUSH SKIPFILES 'FASLOAD) (LOAD 'sources/FASLOAD.DFASL 'SYSLOAD) (* ;  "Lisp macros don't show everything") (* ;  "(PUSH SKIPFILES 'INSPECT)(DREMOVE (FASSOC 'READTABLEP INSPECTMACROS) INSPECTMACROS)") (PUSH SKIPFILES 'ATBL) (* ;  "Whole file can't be reloaded--smashes readtabl") (LOADFNS '(\ATBLSET \MAPCHARTABLE RESETREADTABLE) 'sources/ATBL.LCOM 'SYSLOAD) (LOADVARS '\KEYNAMES '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) (SOURCEDIR _ (CONCAT ROOTDIRECTORY "/sources/")) 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 (IF CFILES THEN (* ;;  "If more than one (LCOM, DFASL), pick the newest one.") (FOR CF IN CFILES LARGEST (IDATE (FILEDATE CF T))) ELSE (PRINTOUT T "Note: No compiled file for " LF T) (PUSH NOCOMPILEDFILES 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 (CONCAT ROOTDIRECTORY "/patches/"))) DO (FOR EXT CFILE IN *COMPILED-EXTENSIONS* WHEN (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY PF))) DO (ADD COUNT 1) (LOAD CFILE 'SYSLOAD) (* ; "symbolic file date") (RETURN) FINALLY (PRINTOUT T "Note: No compiled file for " PF T) (ADD COUNT 1) (LOAD PF 'SYSLOAD)) FINALLY (PRINTOUT T T T COUNT " files loaded" T)) (CL:UNLESS KEEPPUP (NOPUPPATCH)) (ENDLOADUP) (CL:WHEN WRITELISPSYSOUTFLAG (* ;; "So we print out the new version number") (SETQ MAKESYSFILENAME (OUTFILEP MAKESYSFILENAME)) (PRINTOUT T "Creating updated LISP sysout on " MAKESYSFILENAME T) (CLRPROMPT) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley Lisp Sysout%")"))) (CL:UNLESS NODRIBBLE (DRIBBLE]) (ENDLOADUP [LAMBDA NIL (* ; "Edited 11-Oct-90 11:02 by jds") (* ;; "set up for NONET configuration; sites with ethernet can load in init from other places") (* ;; "All records existing at this point in time have been loaded as part of the system.") [MAPC USERRECLST (FUNCTION (LAMBDA (R) (RECORDPRIORITY R 'SYSTEM] [MAPC SYSTEMINITVARS (FUNCTION (LAMBDA (X) (SETTOPVAL (CAR X) (COPY (CDR X] (COND ((NEQ \MACHINETYPE \MAIKO) (* ;;  "On a non-SUN loadup, need to clear out two fields in the Interface Page, per AR 11276. JDS") (replace (IFPAGE ProcessSize) of \InterfacePage with 0) (replace (IFPAGE StorageFullState) of \InterfacePage with 0]) (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 (SYNCLISPFILES) ) (PUTPROPS SYNCLISPFILES FILETYPE :TCOMPL) (PUTPROPS SYNCLISPFILES COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (699 10619 (SYNCLISPFILES 709 . 8794) (ENDLOADUP 8796 . 9712) (MEDLEYVERSION 9714 . 10192) (NOPUPPATCH 10194 . 10617))))) STOP \ No newline at end of file diff --git a/makesysout/loadup-full.sh b/makesysout/loadup-full.sh old mode 100644 new mode 100755 diff --git a/makesysout/loadup-lisp.sh b/makesysout/loadup-lisp.sh old mode 100644 new mode 100755