From c437b6c3bb1efda4718d27308e53e1edf6c42a95 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Sun, 17 Jul 2022 05:55:03 -0700 Subject: [PATCH] fix oklibrary and use to not fail when file has been renamed (#842) --- internal/MEDLEY-UTILS | 32 +- internal/MEDLEY-UTILS.LCOM | Bin 10480 -> 10337 bytes library/TEXEC | 662 ++++++++++++++++---------------- library/TEXEC.LCOM | Bin 45672 -> 45958 bytes library/lafite/LAFITETEDIT | 28 +- library/lafite/LAFITETEDIT.LCOM | Bin 3555 -> 3292 bytes lispusers/TEDITDORADOKEYS | 60 +-- lispusers/TEDITDORADOKEYS.LCOM | Bin 11080 -> 11104 bytes sources/MAIKOLOADUPFNS | 60 ++- sources/MAIKOLOADUPFNS.LCOM | Bin 2905 -> 2893 bytes 10 files changed, 413 insertions(+), 429 deletions(-) diff --git a/internal/MEDLEY-UTILS b/internal/MEDLEY-UTILS index 33afdd27..5efe755e 100644 --- a/internal/MEDLEY-UTILS +++ b/internal/MEDLEY-UTILS @@ -1,10 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED "25-Jun-2022 17:17:53" |{DSK}larry>medley>internal>MEDLEY-UTILS.;4| 15853 +(FILECREATED "16-Jul-2022 22:08:34" |{DSK}larry>medley>internal>MEDLEY-UTILS.;2| 15771 - :CHANGES-TO (FNS PICK) + :CHANGES-TO (FNS MAKE-FULLER-DB) - :PREVIOUS-DATE "25-Jun-2022 10:57:30" |{DSK}larry>medley>internal>MEDLEY-UTILS.;3|) + :PREVIOUS-DATE "25-Jun-2022 17:17:53" |{DSK}larry>medley>internal>MEDLEY-UTILS.;1|) (PRETTYCOMPRINT MEDLEY-UTILSCOMS) @@ -107,11 +107,13 @@ (HELP)))) (MAKE-FULLER-DB - (LAMBDA NIL (* \; "Edited 20-Jun-2022 17:23 by larry") + (LAMBDA NIL (* \; "Edited 16-Jul-2022 22:07 by larry") + (* \; "Edited 20-Jun-2022 17:23 by larry") (FILESLOAD (SOURCE) FILESETS) (DRIBBLE (MEDLEYDIR "tmp" "fuller.dribble" T T)) - (DOFILESLOAD (APPEND OKSOURCES OKLIBRARY OKLISPUSERS OKINTERNAL)) + (DOFILESLOAD (SUBSET (APPEND OKSOURCES OKLIBRARY OKLISPUSERS OKINTERNAL) + 'FINDFILE)) (GATHER-INFO 'ALL) (MASTERSCOPE '(WHO CALLS XYZZY)) (DUMPDATABASE NIL (MKATOM (MEDLEYDIR "tmp" "fuller.database" T T))) @@ -153,13 +155,10 @@ (RPAQQ OKSOURCES (RENAMEFNS VMEM READSYS CASH-FILE HASH-FILE MEDLEYDIR MAKEINIT)) (RPAQQ OKLIBRARY - (POSTSCRIPTSTREAM CHATTERMINAL DMCHAT CHAT PRESS TEDITDCL PCTREE TEXTOFD TEDITCOMMAND - TEDITSCREEN TEDITABBREV TEDITLOOKS TEDITFIND TEDITHISTORY TEDITFILE TEDITWINDOW - TEDITSELECTION READNUMBER EDITBITMAP IMAGEOBJ TFBRAVO TEDITHCPY TEDITPAGE TEDITMENU - TEDITFNKEYS TEDIT HRULE TEDITCHAT TABLEBROWSER FILEBROWSER GRAPHER SPY WHERE-IS - COPYFILES MSANALYZE MSPARSE MSCOMMON MASTERSCOPE UNIXCOMM UNIXPRINT UNICODE HASH - CLIPBOARD UNIXCHAT VT100KP VTCHAT SKETCH SKETCHBMELT SCALEBITMAP SKETCHOBJ SKETCHEDIT - SKETCHELEMENTS SKETCHOPS MATMULT SAMEDIR)) + (POSTSCRIPTSTREAM CHATTERMINAL DMCHAT CHAT PRESS READNUMBER EDITBITMAP IMAGEOBJ TEDIT HRULE + TABLEBROWSER FILEBROWSER GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MSCOMMON + MASTERSCOPE UNIXCOMM UNIXPRINT UNICODE HASH CLIPBOARD UNIXCHAT VT100KP VTCHAT SKETCH + SKETCHBMELT SCALEBITMAP SKETCHOBJ SKETCHEDIT SKETCHELEMENTS SKETCHOPS MATMULT SAMEDIR)) (RPAQQ OKLISPUSERS (THINFILES ISO8859IO DINFO HELPSYS MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE BACKGROUND-YIELD OBJECTWINDOW REGIONMANAGER COMPARETEXT EXAMINEDEFS @@ -288,10 +287,9 @@ (RPAQ? BADFILES ) -(DEFCOMMAND "pick" (FIRST . REST) - (PICK FIRST REST)) +(DEFCOMMAND "pick" (FIRST . REST) (PICK FIRST REST)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (724 8547 (GATHER-INFO 734 . 6144) (MAKE-FULLER-DB 6146 . 6684) (MEDLEY-FIX-LINKS 6686 - . 7083) (MEDLEY-FIX-DATES 7085 . 7327) (PICK 7329 . 8545)) (9823 11616 (MAKE-EXPORTS-ALL 9833 . 10792 -) (MAKE-WHEREIS-HASH 10794 . 11614)) (11651 15716 (HCFILES 11661 . 15401) (BADFILE 15403 . 15714))))) + (FILEMAP (NIL (734 8709 (GATHER-INFO 744 . 6154) (MAKE-FULLER-DB 6156 . 6846) (MEDLEY-FIX-LINKS 6848 + . 7245) (MEDLEY-FIX-DATES 7247 . 7489) (PICK 7491 . 8707)) (9748 11541 (MAKE-EXPORTS-ALL 9758 . 10717 +) (MAKE-WHEREIS-HASH 10719 . 11539)) (11576 15641 (HCFILES 11586 . 15326) (BADFILE 15328 . 15639))))) STOP diff --git a/internal/MEDLEY-UTILS.LCOM b/internal/MEDLEY-UTILS.LCOM index d57fcdf95052afb505d44ef085d359e4ac0582ad..a9a140aaccdc012b9ec9458ae19d14813900acd2 100644 GIT binary patch delta 707 zcmZuvO^ee&7~XUR*&Jl6UR)2pMkrgPC6lCST2!2LCT-e$Z6;AFi%@N3m9CX-D~OTB ze_+YkqbDyyS<$0Ez@Om3n@9hE=%nJ>73VO_^E|xoJTuSxedlZNYUe!CE8W?sqR5H@ ziqe#grdppT=9ZF*Wspv&aR?Tz=78>7KN_C>f{R#HH zPU&M|{pefwZ1!}sf2bQvd#um6eSW6Ip?zY9fHVXov`y2YfK(kw>;?o!*u*R+5V$=Y z`7R(uU#*h!evI2=EkB^pFrba24$sB*EFTO5h@XEjb9_udS4v>n9?2P~sj$0?gMfNO z0nJziYL*nyqlOCDad<*JRTZS$$>=^00H$NGW}{JZ0F!5v@oXybhaiw1EV=42r|BR~ z_n&YTHI7w241;@vNs_bLA6-@#KZ?P*t9%BC7rQ16ff741?a0Le*e-5U-|PaP4?7Z} N6UGi*G)wObzX0*ix`O}! delta 819 zcmZ`%L5tHs7;QyZ$U#F_0tUyVo8 z32b^Rm5OP=?BsYdJVDQwwYp+car$Rn`LbgG9k{d)de0?iL2un-0mo7M-HA_*uMq?LGm~QKBb(t{?ylSrmGb z$^kNa#Z=l;TrO1yd6;M}6B?DE@V1aW*uJ}ycBL{3c>TF$AGQZ`$Ay@7xEd(1Y{Z;J ze855p7HI&Jq31;$u>-6Zr;KXqQN`h)0da?F5yOGA;i)gf6uw&dBIQtXp+$9@%W{|m z0$dlESe}-O1ZCh7I6AsT)08L7hN_F~l925Eb?aG;0F5F%Vz3TAh4X#PlxfZ-G8eG$hr zVMfjr*3FX~Q_qw9FvpR=mU0+`$=ccul@?gkDrfoiIqKsA(a*8s5#RE4C=xKTH+#?u qu-ikCi)}w$n^W3an`55z)`3ZfV|A-=Xv^O3c>KAvvG}z2`N}UL=i4*@ diff --git a/library/TEXEC b/library/TEXEC index d5340b5f..93958a4c 100644 --- a/library/TEXEC +++ b/library/TEXEC @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED " 1-Feb-2022 09:24:13" |{DSK}kaplan>Local>medley3.5>my-medley>library>TEXEC.;2| 195948 +(FILECREATED "16-Jul-2022 23:42:20"  +|{DSK}kaplan>Local>medley3.5>working-medley>library>TEXEC.;3| 196212 :CHANGES-TO (VARS TEXECCOMS TEXEC.ICON TEXEC.ICON.MASK TEXEC.TITLED.ICON.TEMPLATE) - (FNS TEXEC.OPENTEXTSTREAM TEXEC.INCLUDE) - :PREVIOUS-DATE "30-May-91 19:21:21" -|{DSK}kaplan>Local>medley3.5>my-medley>library>TEXEC.;1|) + :PREVIOUS-DATE " 1-Feb-2022 09:24:13" +|{DSK}kaplan>Local>medley3.5>working-medley>library>TEXEC.;2|) ; Copyright (c) 1985, 1900, 1986-1991 by Venue & Xerox Corporation. @@ -17,7 +17,7 @@ ((COMS (* \;  "To support development and compilation") (DECLARE\: DONTCOPY EVAL@COMPILE (FILES (LOADCOMP) - ATERM TEDITDCL))) + ATERM TEDIT-DCL))) (COMS (* |;;| "THE FILLBUFFER REPLACEMENT CODE") @@ -57,7 +57,7 @@ (DECLARE\: DONTCOPY EVAL@COMPILE (FILESLOAD (LOADCOMP) - ATERM TEDITDCL) + ATERM TEDIT-DCL) ) @@ -2833,314 +2833,314 @@ "Starts TEXEC in a new window.")) (READVARS-FROM-STRINGS '(TEXEC.ICON TEXEC.ICON.MASK TEXEC.TITLED.ICON.TEMPLATE) - " ( {(READBITMAP)(64 77 -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@OH@@@@@@@@@\" -\"@@@@COL@@@@@@@@@\" -\"@@@@CON@@@@@@@@@\" -\"@@@@GHC@@@@@@@@@\" -\"@@@@O@AH@@@@@@@@\" -\"@@@AKBEL@@@@@@@@\" -\"@@@AC@BD@@@@@@@@\" -\"@@@AAHBD@@@@@@@@\" -\"@@@A@LBD@@@@@@@@\" -\"@@@A@NDD@@@@@@@@\" -\"@@@AGOOL@@@@@@@@\" -\"@@@AHFDF@@@@@@@@\" -\"@@@AHBDB@@@@@@@@\" -\"@@@A@BDC@@@@@@@@\" -\"@@@A@AHA@@@@@@@@\" -\"@@@A@AIAH@@@@@@@\" -\"@@@AA@I@H@@@@@@@\" -\"@@@CA@HHH@@@@@@@\" -\"@@@BA@HHHC@@@@@@\" -\"@@@CA@I@DB@@@@@@\" -\"@@@AAH@HBF@@@@@@\" -\"@@@AHF@HNL@@@@@@\" -\"@@@ALC@GIL@@@@@@\" -\"@@@ADNLC@H@@@@@@\" -\"OOOOOHGOMOOOH@@@\" -\"O@@@@HDDGH@@O@@@\" -\"ON@@@GHC@F@@AN@@\" -\"LOL@@@@AOOH@@CL@\" -\"LAOH@@@@@@@@@@GH\" -\"L@COOOOOOOOOOOOO\" -\"L@@GOOOOOOOOOOOO\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"O@@CH@@@@@@@@@@C\" -\"ON@CH@@@@@@@@@@C\" -\"LOLCH@@@@@@@@@@C\" -\"LAOKH@@@@@@@@@@C\" -\"@@COOOOOOOOOOOOO\" -\"@@@GH@@@@@@@@@@C\" -\"@@@CH@@@@@@@@@@C\" -\"@@@CH@@@@@@@@@@C\" -\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77 -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@OH@@@@@@@@@\" -\"@@@@COL@@@@@@@@@\" -\"@@@@CON@@@@@@@@@\" -\"@@@@GOO@@@@@@@@@\" -\"@@@@OOOH@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOON@@@@@@@@\" -\"@@@AOOON@@@@@@@@\" -\"@@@AOOOO@@@@@@@@\" -\"@@@AOOOO@@@@@@@@\" -\"@@@AOOOOH@@@@@@@\" -\"@@@AOOOOH@@@@@@@\" -\"@@@COOOOH@@@@@@@\" -\"@@@COOOOHC@@@@@@\" -\"@@@COOOOLB@@@@@@\" -\"@@@AOOOONF@@@@@@\" -\"@@@AOOOONL@@@@@@\" -\"@@@AOOOOOL@@@@@@\" -\"@@@AOOOOOH@@@@@@\" -\"OOOOOOOOOOOOH@@@\" -\"OOOOOOOOOOOOO@@@\" -\"OOOOOOOOOOOOON@@\" -\"OOOOOOOOOOOOOOL@\" -\"OOOOOOOOOOOOOOOH\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"LOOOOOOOOOOOOOOO\" -\"LAOOOOOOOOOOOOOO\" -\"@@COOOOOOOOOOOOO\" -\"@@@GH@@@@@@@@@@C\" -\"@@@CH@@@@@@@@@@C\" -\"@@@CH@@@@@@@@@@C\" -\"@@@AH@@@@@@@@@@C\")} ( {(READBITMAP)(64 77 -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@OH@@@@@@@@@\" -\"@@@@COL@@@@@@@@@\" -\"@@@@CON@@@@@@@@@\" -\"@@@@GHC@@@@@@@@@\" -\"@@@@O@AH@@@@@@@@\" -\"@@@AKBEL@@@@@@@@\" -\"@@@AC@BD@@@@@@@@\" -\"@@@AAHBD@@@@@@@@\" -\"@@@A@LBD@@@@@@@@\" -\"@@@A@NDD@@@@@@@@\" -\"@@@AGOOL@@@@@@@@\" -\"@@@AHFDF@@@@@@@@\" -\"@@@AHBDB@@@@@@@@\" -\"@@@A@BDC@@@@@@@@\" -\"@@@A@AHA@@@@@@@@\" -\"@@@A@AIAH@@@@@@@\" -\"@@@AA@I@H@@@@@@@\" -\"@@@CA@HHH@@@@@@@\" -\"@@@BA@HHHC@@@@@@\" -\"@@@CA@I@DB@@@@@@\" -\"@@@AAH@HBF@@@@@@\" -\"@@@AHF@HNL@@@@@@\" -\"@@@ALC@GIL@@@@@@\" -\"@@@ADNLC@H@@@@@@\" -\"OOOOOHGOMOOOH@@@\" -\"O@@@@HDDGH@@O@@@\" -\"ON@@@GHC@F@@AN@@\" -\"LOL@@@@AOOH@@CL@\" -\"LAOH@@@@@@@@@@GH\" -\"L@COOOOOOOOOOOOO\" -\"L@@GOOOOOOOOOOOO\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"L@@CH@@@@@@@@@@C\" -\"O@@CH@@@@@@@@@@C\" -\"ON@CH@@@@@@@@@@C\" -\"LOLCH@@@@@@@@@@C\" -\"LAOKH@@@@@@@@@@C\" -\"@@COOOOOOOOOOOOO\" -\"@@@GH@@@@@@@@@@C\" -\"@@@CH@@@@@@@@@@C\" -\"@@@CH@@@@@@@@@@C\" -\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77 -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"@@@@@@@@@@@@@@@@\" -\"@@@@@OH@@@@@@@@@\" -\"@@@@COL@@@@@@@@@\" -\"@@@@CON@@@@@@@@@\" -\"@@@@GOO@@@@@@@@@\" -\"@@@@OOOH@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOOL@@@@@@@@\" -\"@@@AOOON@@@@@@@@\" -\"@@@AOOON@@@@@@@@\" -\"@@@AOOOO@@@@@@@@\" -\"@@@AOOOO@@@@@@@@\" -\"@@@AOOOOH@@@@@@@\" -\"@@@AOOOOH@@@@@@@\" -\"@@@COOOOH@@@@@@@\" -\"@@@COOOOHC@@@@@@\" -\"@@@COOOOLB@@@@@@\" -\"@@@AOOOONF@@@@@@\" -\"@@@AOOOONL@@@@@@\" -\"@@@AOOOOOL@@@@@@\" -\"@@@AOOOOOH@@@@@@\" -\"OOOOOOOOOOOOH@@@\" -\"OOOOOOOOOOOOO@@@\" -\"OOOOOOOOOOOOON@@\" -\"OOOOOOOOOOOOOOL@\" -\"OOOOOOOOOOOOOOOH\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"OOOOOOOOOOOOOOOO\" -\"LOOOOOOOOOOOOOOO\" -\"LAOOOOOOOOOOOOOO\" -\"@@COOOOOOOOOOOOO\" -\"@@@GH@@@@@@@@@@C\" -\"@@@CH@@@@@@@@@@C\" -\"@@@CH@@@@@@@@@@C\" + " ( {(READBITMAP)(64 77\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@OH@@@@@@@@@\"\ +\"@@@@COL@@@@@@@@@\"\ +\"@@@@CON@@@@@@@@@\"\ +\"@@@@GHC@@@@@@@@@\"\ +\"@@@@O@AH@@@@@@@@\"\ +\"@@@AKBEL@@@@@@@@\"\ +\"@@@AC@BD@@@@@@@@\"\ +\"@@@AAHBD@@@@@@@@\"\ +\"@@@A@LBD@@@@@@@@\"\ +\"@@@A@NDD@@@@@@@@\"\ +\"@@@AGOOL@@@@@@@@\"\ +\"@@@AHFDF@@@@@@@@\"\ +\"@@@AHBDB@@@@@@@@\"\ +\"@@@A@BDC@@@@@@@@\"\ +\"@@@A@AHA@@@@@@@@\"\ +\"@@@A@AIAH@@@@@@@\"\ +\"@@@AA@I@H@@@@@@@\"\ +\"@@@CA@HHH@@@@@@@\"\ +\"@@@BA@HHHC@@@@@@\"\ +\"@@@CA@I@DB@@@@@@\"\ +\"@@@AAH@HBF@@@@@@\"\ +\"@@@AHF@HNL@@@@@@\"\ +\"@@@ALC@GIL@@@@@@\"\ +\"@@@ADNLC@H@@@@@@\"\ +\"OOOOOHGOMOOOH@@@\"\ +\"O@@@@HDDGH@@O@@@\"\ +\"ON@@@GHC@F@@AN@@\"\ +\"LOL@@@@AOOH@@CL@\"\ +\"LAOH@@@@@@@@@@GH\"\ +\"L@COOOOOOOOOOOOO\"\ +\"L@@GOOOOOOOOOOOO\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"O@@CH@@@@@@@@@@C\"\ +\"ON@CH@@@@@@@@@@C\"\ +\"LOLCH@@@@@@@@@@C\"\ +\"LAOKH@@@@@@@@@@C\"\ +\"@@COOOOOOOOOOOOO\"\ +\"@@@GH@@@@@@@@@@C\"\ +\"@@@CH@@@@@@@@@@C\"\ +\"@@@CH@@@@@@@@@@C\"\ +\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@OH@@@@@@@@@\"\ +\"@@@@COL@@@@@@@@@\"\ +\"@@@@CON@@@@@@@@@\"\ +\"@@@@GOO@@@@@@@@@\"\ +\"@@@@OOOH@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOON@@@@@@@@\"\ +\"@@@AOOON@@@@@@@@\"\ +\"@@@AOOOO@@@@@@@@\"\ +\"@@@AOOOO@@@@@@@@\"\ +\"@@@AOOOOH@@@@@@@\"\ +\"@@@AOOOOH@@@@@@@\"\ +\"@@@COOOOH@@@@@@@\"\ +\"@@@COOOOHC@@@@@@\"\ +\"@@@COOOOLB@@@@@@\"\ +\"@@@AOOOONF@@@@@@\"\ +\"@@@AOOOONL@@@@@@\"\ +\"@@@AOOOOOL@@@@@@\"\ +\"@@@AOOOOOH@@@@@@\"\ +\"OOOOOOOOOOOOH@@@\"\ +\"OOOOOOOOOOOOO@@@\"\ +\"OOOOOOOOOOOOON@@\"\ +\"OOOOOOOOOOOOOOL@\"\ +\"OOOOOOOOOOOOOOOH\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"LOOOOOOOOOOOOOOO\"\ +\"LAOOOOOOOOOOOOOO\"\ +\"@@COOOOOOOOOOOOO\"\ +\"@@@GH@@@@@@@@@@C\"\ +\"@@@CH@@@@@@@@@@C\"\ +\"@@@CH@@@@@@@@@@C\"\ +\"@@@AH@@@@@@@@@@C\")} ( {(READBITMAP)(64 77\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@OH@@@@@@@@@\"\ +\"@@@@COL@@@@@@@@@\"\ +\"@@@@CON@@@@@@@@@\"\ +\"@@@@GHC@@@@@@@@@\"\ +\"@@@@O@AH@@@@@@@@\"\ +\"@@@AKBEL@@@@@@@@\"\ +\"@@@AC@BD@@@@@@@@\"\ +\"@@@AAHBD@@@@@@@@\"\ +\"@@@A@LBD@@@@@@@@\"\ +\"@@@A@NDD@@@@@@@@\"\ +\"@@@AGOOL@@@@@@@@\"\ +\"@@@AHFDF@@@@@@@@\"\ +\"@@@AHBDB@@@@@@@@\"\ +\"@@@A@BDC@@@@@@@@\"\ +\"@@@A@AHA@@@@@@@@\"\ +\"@@@A@AIAH@@@@@@@\"\ +\"@@@AA@I@H@@@@@@@\"\ +\"@@@CA@HHH@@@@@@@\"\ +\"@@@BA@HHHC@@@@@@\"\ +\"@@@CA@I@DB@@@@@@\"\ +\"@@@AAH@HBF@@@@@@\"\ +\"@@@AHF@HNL@@@@@@\"\ +\"@@@ALC@GIL@@@@@@\"\ +\"@@@ADNLC@H@@@@@@\"\ +\"OOOOOHGOMOOOH@@@\"\ +\"O@@@@HDDGH@@O@@@\"\ +\"ON@@@GHC@F@@AN@@\"\ +\"LOL@@@@AOOH@@CL@\"\ +\"LAOH@@@@@@@@@@GH\"\ +\"L@COOOOOOOOOOOOO\"\ +\"L@@GOOOOOOOOOOOO\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"L@@CH@@@@@@@@@@C\"\ +\"O@@CH@@@@@@@@@@C\"\ +\"ON@CH@@@@@@@@@@C\"\ +\"LOLCH@@@@@@@@@@C\"\ +\"LAOKH@@@@@@@@@@C\"\ +\"@@COOOOOOOOOOOOO\"\ +\"@@@GH@@@@@@@@@@C\"\ +\"@@@CH@@@@@@@@@@C\"\ +\"@@@CH@@@@@@@@@@C\"\ +\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"@@@@@@@@@@@@@@@@\"\ +\"@@@@@OH@@@@@@@@@\"\ +\"@@@@COL@@@@@@@@@\"\ +\"@@@@CON@@@@@@@@@\"\ +\"@@@@GOO@@@@@@@@@\"\ +\"@@@@OOOH@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOOL@@@@@@@@\"\ +\"@@@AOOON@@@@@@@@\"\ +\"@@@AOOON@@@@@@@@\"\ +\"@@@AOOOO@@@@@@@@\"\ +\"@@@AOOOO@@@@@@@@\"\ +\"@@@AOOOOH@@@@@@@\"\ +\"@@@AOOOOH@@@@@@@\"\ +\"@@@COOOOH@@@@@@@\"\ +\"@@@COOOOHC@@@@@@\"\ +\"@@@COOOOLB@@@@@@\"\ +\"@@@AOOOONF@@@@@@\"\ +\"@@@AOOOONL@@@@@@\"\ +\"@@@AOOOOOL@@@@@@\"\ +\"@@@AOOOOOH@@@@@@\"\ +\"OOOOOOOOOOOOH@@@\"\ +\"OOOOOOOOOOOOO@@@\"\ +\"OOOOOOOOOOOOON@@\"\ +\"OOOOOOOOOOOOOOL@\"\ +\"OOOOOOOOOOOOOOOH\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"OOOOOOOOOOOOOOOO\"\ +\"LOOOOOOOOOOOOOOO\"\ +\"LAOOOOOOOOOOOOOO\"\ +\"@@COOOOOOOOOOOOO\"\ +\"@@@GH@@@@@@@@@@C\"\ +\"@@@CH@@@@@@@@@@C\"\ +\"@@@CH@@@@@@@@@@C\"\ \"@@@AH@@@@@@@@@@C\")} (8 30 60 60))) ") @@ -3160,21 +3160,21 @@ (RPAQ? TEXEC.BUFFERLIMIT 10000) (PUTPROPS TEXEC COPYRIGHT ("Venue & Xerox Corporation" 1985 1900 1986 1987 1988 1989 1990 1991)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (3269 182029 (TEXEC.BACKSKREAD 3279 . 7903) (TEXEC.OPENTEXTSTREAM 7905 . 9963) ( -TEXEC.DEFAULT.MENUFN 9965 . 14519) (TEXEC.DO?CMD 14521 . 19839) (TEXEC.CREATEMENU 19841 . 20299) ( -TEXEC.GET 20301 . 29136) (TEXEC.INCLUDE 29138 . 42523) (TEXEC.FIND.FORWARD 42525 . 55413) ( -TEXEC.FIND.BACKWARD 55415 . 68917) (TEDIT.FIND.BACKWARD 68919 . 74396) (TEDIT.BASICFIND.BACKWARD 74398 - . 79052) (TEXEC.MENU.WHENHELDFN 79054 . 79713) (TEXEC.SHRINK.ICONCREATE 79715 . 82518) ( -TEXEC.FILLBUFFER 82520 . 98954) (TEXEC.FILLBUFFER.TCLASS 98956 . 105296) (TEXEC.CHSELPENDING 105298 . -113788) (TEXEC.FILLBUFFER.CHARDELETE 113790 . 115845) (TEXEC.FILLBUFFER.WORDDELETE 115847 . 120975) ( -TEXEC.FILLBUFFER.LINEDELETE 120977 . 123859) (TEXEC.PARENCOUNT 123861 . 125250) (TEXEC.PARENMATCH -125252 . 126792) (TEXEC.FLASHCARET 126794 . 129453) (TEXEC.TEXTSTREAM.TO.LINEBUF 129455 . 132142) ( -TEXEC.FIX 132144 . 135313) (TEXEC.NTHBUFCHARBACK 135315 . 136378) (TEXEC.NTHBACKCHNUM 136380 . 137665) - (TEXEC.EOTP 137667 . 138400) (TEXEC.GETKEY 138402 . 141318) (TEXEC.INSERTCHAR 141320 . 143621) ( -TEXEC.DELETE 143623 . 144398) (TEXEC.\\CHDEL1 144400 . 147525) (TEXEC.?EQUAL 147527 . 148576) ( -TEDIT.SCROLL? 148578 . 153541) (TEXEC.DISPLAYTEXT 153543 . 160318) (\\TEXEC.TEXTBOUT 160320 . 163328) -(\\TEXEC.TEXTBOUT1 163330 . 168964) (\\TEXEC.TEXTBOUT2 168966 . 171297) (\\TEXEC.TEXTBOUT3 171299 . -172689) (\\TEXEC.TEXTBOUT4 172691 . 174734) (\\TEXEC.SELFN 174736 . 176111) (TEXEC.PRINTARGS 176113 . -181076) (TEXEC.PROCENTRYFN 181078 . 181619) (TEXEC.PROCEXITFN 181621 . 182027)) (182089 188464 (TEXEC -182099 . 186521) (TTEXEC 186523 . 188462))))) + (FILEMAP (NIL (3225 181985 (TEXEC.BACKSKREAD 3235 . 7859) (TEXEC.OPENTEXTSTREAM 7861 . 9919) ( +TEXEC.DEFAULT.MENUFN 9921 . 14475) (TEXEC.DO?CMD 14477 . 19795) (TEXEC.CREATEMENU 19797 . 20255) ( +TEXEC.GET 20257 . 29092) (TEXEC.INCLUDE 29094 . 42479) (TEXEC.FIND.FORWARD 42481 . 55369) ( +TEXEC.FIND.BACKWARD 55371 . 68873) (TEDIT.FIND.BACKWARD 68875 . 74352) (TEDIT.BASICFIND.BACKWARD 74354 + . 79008) (TEXEC.MENU.WHENHELDFN 79010 . 79669) (TEXEC.SHRINK.ICONCREATE 79671 . 82474) ( +TEXEC.FILLBUFFER 82476 . 98910) (TEXEC.FILLBUFFER.TCLASS 98912 . 105252) (TEXEC.CHSELPENDING 105254 . +113744) (TEXEC.FILLBUFFER.CHARDELETE 113746 . 115801) (TEXEC.FILLBUFFER.WORDDELETE 115803 . 120931) ( +TEXEC.FILLBUFFER.LINEDELETE 120933 . 123815) (TEXEC.PARENCOUNT 123817 . 125206) (TEXEC.PARENMATCH +125208 . 126748) (TEXEC.FLASHCARET 126750 . 129409) (TEXEC.TEXTSTREAM.TO.LINEBUF 129411 . 132098) ( +TEXEC.FIX 132100 . 135269) (TEXEC.NTHBUFCHARBACK 135271 . 136334) (TEXEC.NTHBACKCHNUM 136336 . 137621) + (TEXEC.EOTP 137623 . 138356) (TEXEC.GETKEY 138358 . 141274) (TEXEC.INSERTCHAR 141276 . 143577) ( +TEXEC.DELETE 143579 . 144354) (TEXEC.\\CHDEL1 144356 . 147481) (TEXEC.?EQUAL 147483 . 148532) ( +TEDIT.SCROLL? 148534 . 153497) (TEXEC.DISPLAYTEXT 153499 . 160274) (\\TEXEC.TEXTBOUT 160276 . 163284) +(\\TEXEC.TEXTBOUT1 163286 . 168920) (\\TEXEC.TEXTBOUT2 168922 . 171253) (\\TEXEC.TEXTBOUT3 171255 . +172645) (\\TEXEC.TEXTBOUT4 172647 . 174690) (\\TEXEC.SELFN 174692 . 176067) (TEXEC.PRINTARGS 176069 . +181032) (TEXEC.PROCENTRYFN 181034 . 181575) (TEXEC.PROCEXITFN 181577 . 181983)) (182045 188420 (TEXEC +182055 . 186477) (TTEXEC 186479 . 188418))))) STOP diff --git a/library/TEXEC.LCOM b/library/TEXEC.LCOM index 15c3ed65a8d99c23f68da30274761cfe23947b72..27c710068e7c20af88d9cefb64a39be986c93541 100644 GIT binary patch delta 3414 zcmeHJOKa3n6lMldm{mcC(uI-+l~zn?GIeyaF*nIfGBze{XY6Xgz6L2)`#=$4Hg4QW zA9vx~5v7$R9)7@usjebc^>Zy7CTu#?CS;{n~mg>{< zHx_2+>N5>#_4A4Gq~gH9fGjm;CU2qeM<&k8{h7W}*(+LOMN%!=tx7zeLGVLIQzw%_ z9nUo+wUF0TP0}rw_)f8+R0FARoQzdKdn-jw>my^u@p5pbqS#)@^N7}WX?XG2N zvH`~mJbZ+wCfDev7Z_Qvp0$KVU=TNUc0!l#J<2LVW_T?!jxcTc7TQN=y`%8Jk}=? z>RTR1cqD`)4vym@V(|^@F1U3@2*K=g2vD%9i*S%Ou7hdm-}R&BLF(|Dgo4+uy=m zeon8xMIE5RHVj2<9IWuMZ{yPaW@x(^)z(4{QD5{fy^L&zGLJ7>t4%*1eyVOqh%gHA zHEBf%C+K5=BhYtrAb*C4IQZhT71-Hk5x2-7aI|*tT?dchpnGlMU^MSvVTFHxdV8q( t8WElAK+J6CI>3G8yMSMX&UNr73)Q&}U}QSi!NL9^_{CJi(zv@_XkcGGTmO_LT61xcHrfhG;H2LmhB zi#JJRK>UH&QdE>yEIoPBp1t@d^dRV;;oF~0lN5yJm?3X>^1Yeweecced-{j_` zd7)t9iDkN&$IcqrTwpCGUCJ1F9AZCPS0h?LfVWHR* zk|GwNJ|g^h*fP#t8$C0=c(}@ipE0YIya)k8>|1M%!=b~mcJ4B(zd!@GyL*WJc#qil zJH#HpM3vAAPhgmYYWCY6E4&NR`IMr&PzNZJRJsSGS|5<;ogk}!K*%FjO|yfTMPKK%n6f^)mHXz$@iB8TFX0QxAH+K*_=;MWyz&qd~ v+NtWNM3^Q-nT2EfpM#AIymxgU>ac$e`_~zLZrHzu{p+0lYxFRFkmvpZEm~_& diff --git a/library/lafite/LAFITETEDIT b/library/lafite/LAFITETEDIT index a20584d4..91ae9ffb 100644 --- a/library/lafite/LAFITETEDIT +++ b/library/lafite/LAFITETEDIT @@ -1,14 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "30-Sep-2021 23:07:55"  -{DSK}kaplan>Local>medley3.5>git-medley>library>lafite>LAFITETEDIT.;3 12516 - changes to%: (VARS LAFITETEDITCOMS) - (FNS LA.ADJUST.FORMATTING LA.SKIP.LOOKS.LIST LA.DETACH.TEDIT LA.TEDIT.INCLUDE - LA.WINDOW.FROM.TEXTSTREAM TEDIT.ASSURE.NO.BACKING.FILE) - (FILES LAFITEDECLS) +(FILECREATED "16-Jul-2022 23:37:24"  +{DSK}kaplan>local>medley3.5>working-medley>library>lafite>LAFITETEDIT.;5 12306 - previous date%: "30-Sep-2021 22:59:28" -{DSK}kaplan>Local>medley3.5>git-medley>library>lafite>LAFITETEDIT.;2) + :CHANGES-TO (VARS LAFITETEDITCOMS) + + :PREVIOUS-DATE "30-Sep-2021 23:07:55" +{DSK}kaplan>local>medley3.5>working-medley>library>lafite>LAFITETEDIT.;4) (* ; " @@ -27,8 +25,8 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation. (* ;; "Need TEDIT internal declarations for LA.ADJUST.FORMATTING. Can't just do (FILES (SOURCE) TEDITDCL), because there is a compiled version that is already loaded that isn't enough.") - (P (CL:UNLESS (GET 'TEDITDCL 'FILE) - (FILESLOAD TEDITDCL))) + (P (CL:UNLESS (GET 'TEDIT-DCL 'FILE) + (FILESLOAD TEDIT-DCL))) (FILES (SOURCE) LAFITEDECLS) (GLOBALVARS *TEDIT-FILE-READTABLE*) @@ -185,8 +183,8 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation. ) (DECLARE%: EVAL@COMPILE DONTCOPY -(CL:UNLESS (GET 'TEDITDCL 'FILE) - (FILESLOAD TEDITDCL)) +(CL:UNLESS (GET 'TEDIT-DCL 'FILE) + (FILESLOAD TEDIT-DCL)) (FILESLOAD (SOURCE) @@ -204,7 +202,7 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation. ) (PUTPROPS LAFITETEDIT COPYRIGHT ("Xerox Corporation" 1988 1990 1992 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1549 12147 (LA.ADJUST.FORMATTING 1559 . 7695) (LA.SKIP.LOOKS.LIST 7697 . 8271) ( -LA.DETACH.TEDIT 8273 . 8638) (LA.TEDIT.INCLUDE 8640 . 9129) (LA.WINDOW.FROM.TEXTSTREAM 9131 . 9577) ( -TEDIT.ASSURE.NO.BACKING.FILE 9579 . 12145))))) + (FILEMAP (NIL (1337 11935 (LA.ADJUST.FORMATTING 1347 . 7483) (LA.SKIP.LOOKS.LIST 7485 . 8059) ( +LA.DETACH.TEDIT 8061 . 8426) (LA.TEDIT.INCLUDE 8428 . 8917) (LA.WINDOW.FROM.TEXTSTREAM 8919 . 9365) ( +TEDIT.ASSURE.NO.BACKING.FILE 9367 . 11933))))) STOP diff --git a/library/lafite/LAFITETEDIT.LCOM b/library/lafite/LAFITETEDIT.LCOM index 040f78b38f995f9c9e42953af005db88c38c165e..ef5ac6d358668705f9f087f313bd1fe5c11e2086 100644 GIT binary patch delta 468 zcmaDXeMfSFM*^3Io2QSfbC9cJh^vc&lA)QdS80x}k%5tsf|0S6vALCziIRebQgVK7 zL1s>Bib8&#f|3GPwM(#ftxaihYEiLWc49$JVxC=2esW@tU2bYhPHLsGo~d1Veo=O2 zUi#$Uj4Jh}nhIPfMjM)0nHpOe87V0w6{W(>POT^?Dps{p$jdLu0BTjp1lr{m>f@t; z>?%DyJtc*d#1f!eu$pPEq>1h)2dthV(Gymt3Wi3;24)IY&K{0_?ykYQA^r*)Tw#tu z!3sW(Zk{2ozyS0NarXBO)>NetBZn?v4L)IYJskifsvttk+GE_2u;kER0u6jEh@Il zPAtet%(L^!PfpCS%S}zmNv$;2Gqp?4ESapsq@r)Esi0(JiDZD0m63&&p^=gTS5i@G za(-?>W=?8~LTW`pQL(C(!sH$<&&gWs(vv@M$+#(G<|!z-h5Gm?Ae*44r>CTll2`)N z#f8mi3nfi1WDiV!$tX{hTaAnr42?_;%@mR|67$kiixo=pfiBVra|{Yr;PP>F^9*qX zhKFZ}v%hb!rhUof(Bkaplan>Local>medley3.5>lispcore>lispusers>TEDITDORADOKEYS.;2| 22264 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) - |changes| |to:| (VARS TEDITDORADOKEYSCOMS) +(FILECREATED "16-Jul-2022 23:40:36"  +|{DSK}kaplan>Local>medley3.5>working-medley>lispusers>TEDITDORADOKEYS.;2| 22214 - |previous| |date:| "28-Oct-87 19:53:12" -|{DSK}kaplan>Local>medley3.5>lispcore>lispusers>TEDITDORADOKEYS.;1|) + :CHANGES-TO (VARS TEDITDORADOKEYSCOMS) + + :PREVIOUS-DATE "19-Apr-2018 12:27:21" +|{DSK}kaplan>Local>medley3.5>working-medley>lispusers>TEDITDORADOKEYS.;1|) -; Copyright (c) 1987, 2018 by Xerox Corporation. All rights reserved. +; Copyright (c) 1987, 2018 by Xerox Corporation. (PRETTYCOMPRINT TEDITDORADOKEYSCOMS) (RPAQQ TEDITDORADOKEYSCOMS - ((FILES TEDITDCL TEDITFNKEYS) + ((FILES TEDIT-DCL TEDIT-FNKEYS) (COMS - (* |;;| - "These functions were fixed after Lyric went out so they'll ignore the meta key being down.") + (* |;;| + "These functions were fixed after Lyric went out so they'll ignore the meta key being down.") (FNS \\TEDIT.BOLD.SEL.OFF \\TEDIT.BOLD.SEL.ON \\TEDIT.CENTER.SEL \\TEDIT.CENTER.SEL.REV \\TEDIT.DEFAULTS.CARET \\TEDIT.DEFAULTSSEL \\TEDIT.SETDEFAULT.FROM.SEL @@ -25,7 +26,7 @@ \\TEDIT.SUPERSCRIPTSEL \\TEDIT.UCASE.SEL \\TEDIT.UNDERLINE.SEL.OFF \\TEDIT.UNDERLINE.SEL.ON \\TEDIT.STRIKEOUT.SEL.ON \\TEDIT.STRIKEOUT.SEL.OFF)) (COMS - (* |;;| "Specialized functions for this module") + (* |;;| "Specialized functions for this module") (FNS \\TEDIT.DK.ABORT \\TEDIT.DK.FIND \\TEDIT.DK.SUBSTITUTE \\TEDIT.DK.INSERT-PARENS \\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES)) @@ -65,12 +66,11 @@ (TEDIT.SETSYNTAX (CAR ENTRY) (CADR ENTRY))))))) -(FILESLOAD TEDITDCL TEDITFNKEYS) +(FILESLOAD TEDIT-DCL TEDIT-FNKEYS) -(* |;;| "These functions were fixed after Lyric went out so they'll ignore the meta key being down." -) +(* |;;| "These functions were fixed after Lyric went out so they'll ignore the meta key being down.") (DEFINEQ @@ -442,22 +442,22 @@ ("1,'" FN \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES))) (FOR ENTRY IN \\TEDIT.DORADO.KEYS DO (SELECTQ (CADR ENTRY) - (FN (TEDIT.SETFUNCTION (CAR ENTRY) - (CADDR ENTRY))) - (TEDIT.SETSYNTAX (CAR ENTRY) - (CADR ENTRY)))) + (FN (TEDIT.SETFUNCTION (CAR ENTRY) + (CADDR ENTRY))) + (TEDIT.SETSYNTAX (CAR ENTRY) + (CADR ENTRY)))) (PUTPROPS TEDITDORADOKEYS COPYRIGHT ("Xerox Corporation" 1987 2018)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (4082 15770 (\\TEDIT.BOLD.SEL.OFF 4092 . 4330) (\\TEDIT.BOLD.SEL.ON 4332 . 4566) ( -\\TEDIT.CENTER.SEL 4568 . 5638) (\\TEDIT.CENTER.SEL.REV 5640 . 6735) (\\TEDIT.DEFAULTS.CARET 6737 . -7029) (\\TEDIT.DEFAULTSSEL 7031 . 7369) (\\TEDIT.SETDEFAULT.FROM.SEL 7371 . 7828) (\\TEDIT.FIND 7830 - . 10691) (\\TEDIT.ITALIC.SEL.OFF 10693 . 10935) (\\TEDIT.ITALIC.SEL.ON 10937 . 11123) ( -\\TEDIT.LARGERSEL 11125 . 11420) (\\TEDIT.LCASE.SEL 11422 . 12138) (\\TEDIT.SHOWCARETLOOKS 12140 . -13523) (\\TEDIT.SMALLERSEL 13525 . 13823) (\\TEDIT.SUBSCRIPTSEL 13825 . 14032) (\\TEDIT.SUPERSCRIPTSEL - 14034 . 14242) (\\TEDIT.UCASE.SEL 14244 . 15000) (\\TEDIT.UNDERLINE.SEL.OFF 15002 . 15193) ( -\\TEDIT.UNDERLINE.SEL.ON 15195 . 15384) (\\TEDIT.STRIKEOUT.SEL.ON 15386 . 15575) ( -\\TEDIT.STRIKEOUT.SEL.OFF 15577 . 15768)) (15828 20622 (\\TEDIT.DK.ABORT 15838 . 15905) ( -\\TEDIT.DK.FIND 15907 . 18936) (\\TEDIT.DK.SUBSTITUTE 18938 . 19195) (\\TEDIT.DK.INSERT-PARENS 19197 - . 19584) (\\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES 19586 . 20078) (\\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES -20080 . 20620))))) + (FILEMAP (NIL (4080 15768 (\\TEDIT.BOLD.SEL.OFF 4090 . 4328) (\\TEDIT.BOLD.SEL.ON 4330 . 4564) ( +\\TEDIT.CENTER.SEL 4566 . 5636) (\\TEDIT.CENTER.SEL.REV 5638 . 6733) (\\TEDIT.DEFAULTS.CARET 6735 . +7027) (\\TEDIT.DEFAULTSSEL 7029 . 7367) (\\TEDIT.SETDEFAULT.FROM.SEL 7369 . 7826) (\\TEDIT.FIND 7828 + . 10689) (\\TEDIT.ITALIC.SEL.OFF 10691 . 10933) (\\TEDIT.ITALIC.SEL.ON 10935 . 11121) ( +\\TEDIT.LARGERSEL 11123 . 11418) (\\TEDIT.LCASE.SEL 11420 . 12136) (\\TEDIT.SHOWCARETLOOKS 12138 . +13521) (\\TEDIT.SMALLERSEL 13523 . 13821) (\\TEDIT.SUBSCRIPTSEL 13823 . 14030) (\\TEDIT.SUPERSCRIPTSEL + 14032 . 14240) (\\TEDIT.UCASE.SEL 14242 . 14998) (\\TEDIT.UNDERLINE.SEL.OFF 15000 . 15191) ( +\\TEDIT.UNDERLINE.SEL.ON 15193 . 15382) (\\TEDIT.STRIKEOUT.SEL.ON 15384 . 15573) ( +\\TEDIT.STRIKEOUT.SEL.OFF 15575 . 15766)) (15826 20620 (\\TEDIT.DK.ABORT 15836 . 15903) ( +\\TEDIT.DK.FIND 15905 . 18934) (\\TEDIT.DK.SUBSTITUTE 18936 . 19193) (\\TEDIT.DK.INSERT-PARENS 19195 + . 19582) (\\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES 19584 . 20076) (\\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES +20078 . 20618))))) STOP diff --git a/lispusers/TEDITDORADOKEYS.LCOM b/lispusers/TEDITDORADOKEYS.LCOM index 79b623aca9cfb9b00d203b25fcf7bd4a152466fd..a7697372f70c660266347fa52706aa5a5e3f2372 100644 GIT binary patch delta 979 zcmbV~&rj1}7{@bk5np74fE^~=c-KK~2Q94pkd%m)wZ%$Z=Q^e)#0abk0XCc%C28UT z55^eHcyA_#c!xwn;=zN-5)*%r5H4Pf2QD5x@DGSj=R}OegO_hU-}iam=Xu_zeV^IM zFs!0#dP3zj-B5Wwp_w?8l;b1vu!?CtkycZNZYAkrL*v;Y*-~+=i$jQYljA8>POA#0 zV}1OEJF~plC5l+=mU_CR?mil`^kjZ+etOo<;(QL%7!`A^zPtIt%yjN1KWArW?Zx6V zd>{RBJ=Q1nc1xm2V`rjZ|0>{M$G$gTxGe$X@(WW?0cbksU|JhB4190^K@i|_c6`Ck zI{47yr)lo@0|Nhe!J!j}PGV6MV?9`kpO+KEs>P>G%%Y5(vd9|`<&%;rHKUuO7O%i| z$e^d$b7-AFFy?S*Yz+GAX<^7T6v0vr!PGP?DgB6S)=iO*Rk8<>T^~cl>VgMtyz_qZ zkY#UA8N*fOScDv}S*_5QnkPUr$JQYsh}NpXY}T!ngA7^mT`JRS2(H#odCHmm#!$nO zi@QFR)HW_wayy!8$*V?l-;DyT)_*2rCyJG`6(3Jzs^fqwQSJLqAhQ3UEBPZ3`|4Lf zgDAD(G%vw$%Yn<_uLSm74Sp|kKY1Ejr+FoA;PPg8Eis~AwK&Yi&5IUhqu3c3fDcQq zw@ku?w=EXv)=@v{#AkqB*7?Z;ECH1`ihRQ7fT-{_&~3_39*5n1ZiSPeEp!_6Rz-^=&18o)fOyXJQk%P$M{VxtouLTvGI5~i(RQ-H^tb-} ru`I)smCF2oy#xke+$R6o@Ce6oi1--E?FnT*M0-K^qKX$KbOZeW{)!fA delta 952 zcmbtS&rcIk5YCn~R>(>SrR{;z*GDNWuuXScq^u#Zvb(0Zw$PTU36Vg%N|Q=UX)(l2 zh~ehJ2y@ZIgVDs3Boh7sj>dyGFPexXUQEPz^`g!$KQzX8@$%)H`DW&QGkG8KFY`1c zD{3;OaB5OhxMWIAldg;+$vNq~rVx5%T%#Lp9YbL@WEPC0lv89v`C(3~);J-`CkQWy z!jKqGP!ghr%FSx2tQSdTkx;@yi!Ip6R_Ht zuj$7F3?gY7F-nUDp_lYxSzjfw$RJT0{|L?EK{+5{Xb^6zA%C5gUG2gqRqO zi$auIE6{)LAn=O(k2*TMoF$xQFi#POTgBbOSXpm4|%4Au1&A7rwwWhC>Dh*RJ zZJv=aR)(dsxj=&JNp3x z&+KuF`fZlh4aD*Mh<$b3L$-E$8w>d6ttJfi*ey%U!Ty5^eK675z?$9G1;%RN zcJgiOCdIcl+aDYf7<0D3tM>FsG>vSx^(|C8HmqD0rdQqulNdxcnkRA8-@K-9#F^# zX66Decu39x+vb7KWE3+4{%eR!em6Yvo45MtpM)`Q2xcgU(Oo)^ctEcszUZBIu#_Jt zP@)1uoDd03VA>ln#U;N79tAXHpR9PY$K3jHk7;;@_JB8N4xbGcLWjRUtEDCR(DI3Q uHFZ(Bn#I4BnUtocfDd*6(|ZBi{{MYjn1$PYI?mef8$@*X%XT)E)YzW{3Igu{ diff --git a/sources/MAIKOLOADUPFNS b/sources/MAIKOLOADUPFNS index 5cd692de..0a36eb9d 100644 --- a/sources/MAIKOLOADUPFNS +++ b/sources/MAIKOLOADUPFNS @@ -1,14 +1,15 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "26-Oct-2021 09:55:14" {DSK}larry>medley>sources>MAIKOLOADUPFNS.;2 5969 +(FILECREATED "16-Jul-2022 22:45:28" {DSK}larry>medley>sources>MAIKOLOADUPFNS.;2 5827 - changes to%: (FNS \BITBLTSUB \BLTCHAR) + :CHANGES-TO (VARS MAIKOLOADUPFNSCOMS) + (FNS CL::%%COPY-TIME-STATS CHECKPAGEMAP CLOCK CLOCK0 DAYTIME SETTIME) - previous date%: " 2-Mar-2021 23:12:27" {DSK}larry>medley>sources>MAIKOLOADUPFNS.;1) + :PREVIOUS-DATE "26-Oct-2021 09:55:14" {DSK}larry>medley>sources>MAIKOLOADUPFNS.;1) (* ; " -Copyright (c) 1989, 2018, 2021 by ENVOS Corporation. +Copyright (c) 1989, 2018, 2021-2022 by ENVOS Corporation. ") (PRETTYCOMPRINT MAIKOLOADUPFNSCOMS) @@ -20,39 +21,36 @@ Copyright (c) 1989, 2018, 2021 by ENVOS Corporation. \CHECKSUM \CLOCK0 \COUNTREALPAGES \DAYTIME0 \DIRTYBACKGROUND \DOLOCKPAGES \DONEWPAGE \DORECLAIM \DOTEMPLOCKPAGES \LOADVMEMPAGE \LOCKEDPAGEP \LOCKPAGES \MOVEVMEMFILEPAGE \NEWPAGE \PAGEFAULT \SHOWPAGETABLE \TEMPUNLOCKPAGES \UNLOCKPAGES \WRITEDIRTYPAGE) - (GLOBALVARS \TimeZoneComp \RAWTRACING \MAXWATCHERGETS) - (DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T) - (FILES (SOURCE) - TEDITDCL)))) + (GLOBALVARS \TimeZoneComp))) (PUTPROPS MAIKOLOADUPFNS FILETYPE CL:COMPILE-FILE) -(PUTPROPS MAIKOLOADUPFNS MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP" - :BASE 10)) +(PUTPROPS MAIKOLOADUPFNS MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)) (DEFINEQ (CL::%%COPY-TIME-STATS - [LAMBDA (REFERENCE-BLOCK DESTINIATION-BLOCK) (* ; "Edited 2-May-88 17:16 by MASINTER") + [LAMBDA (REFERENCE-BLOCK DESTINIATION-BLOCK) (* ; "Edited 2-May-88 17:16 by MASINTER") (SUBRCALL COPYTIMESTATS REFERENCE-BLOCK DESTINIATION-BLOCK]) (CHECKPAGEMAP - [LAMBDA NIL (* ; "Edited 25-Feb-2021 10:07 by larry") + [LAMBDA NIL (* ; "Edited 25-Feb-2021 10:07 by larry") NIL]) (CLOCK - [LAMBDA (N BOX) (* ; "Edited 2-May-88 16:11 by MASINTER") + [LAMBDA (N BOX) (* ; "Edited 2-May-88 16:11 by MASINTER") (SUBRCALL GETUNIXTIME N BOX]) (CLOCK0 - [LAMBDA (BOX) (* ; "Edited 2-May-88 16:19 by MASINTER") + [LAMBDA (BOX) (* ; "Edited 2-May-88 16:19 by MASINTER") (SUBRCALL GETUNIXTIME 0 BOX]) (DAYTIME - [LAMBDA (BOX) (* ; "Edited 2-May-88 16:20 by MASINTER") + [LAMBDA (BOX) (* ; "Edited 2-May-88 16:20 by MASINTER") (SUBRCALL GETUNIXTIME 5 BOX]) (SETTIME - [LAMBDA (RETFLG) (* ; "Edited 13-May-88 15:22 by MASINTER") + [LAMBDA (RETFLG) (* ; "Edited 16-Jul-2022 22:44 by larry") + (* ; "Edited 13-May-88 15:22 by lmm") (CL:UNLESS (AND RETFLG (NOT (STRINGP RETFLG))) (SETQ \TimeZoneComp (SUBRCALL GETUNIXTIME 8 NIL))) (\PROCESS.RESET.TIMERS) @@ -149,26 +147,16 @@ Copyright (c) 1989, 2018, 2021 by ENVOS Corporation. ) (DECLARE%: DOEVAL@COMPILE DONTCOPY -(GLOBALVARS \TimeZoneComp \RAWTRACING \MAXWATCHERGETS) +(GLOBALVARS \TimeZoneComp) ) -(DECLARE%: EVAL@COMPILE DONTCOPY -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(LOCALVARS . T) -) - - -(FILESLOAD (SOURCE) - TEDITDCL) -) -(PUTPROPS MAIKOLOADUPFNS COPYRIGHT ("ENVOS Corporation" 1989 2018 2021)) +(PUTPROPS MAIKOLOADUPFNS COPYRIGHT ("ENVOS Corporation" 1989 2018 2021 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1335 5651 (CL::%%COPY-TIME-STATS 1345 . 1541) (CHECKPAGEMAP 1543 . 1675) (CLOCK 1677 . -1826) (CLOCK0 1828 . 1978) (DAYTIME 1980 . 2131) (SETTIME 2133 . 2407) (\BITBLTSUB 2409 . 2831) ( -\BLTCHAR 2833 . 3014) (\CHECKSUM 3016 . 3181) (\CLOCK0 3183 . 3334) (\COUNTREALPAGES 3336 . 3469) ( -\DAYTIME0 3471 . 3624) (\DIRTYBACKGROUND 3626 . 3762) (\DOLOCKPAGES 3764 . 3896) (\DONEWPAGE 3898 . -4047) (\DORECLAIM 4049 . 4195) (\DOTEMPLOCKPAGES 4197 . 4333) (\LOADVMEMPAGE 4335 . 4468) ( -\LOCKEDPAGEP 4470 . 4586) (\LOCKPAGES 4588 . 4718) (\MOVEVMEMFILEPAGE 4720 . 4841) (\NEWPAGE 4843 . -4990) (\PAGEFAULT 4992 . 5104) (\SHOWPAGETABLE 5106 . 5240) (\TEMPUNLOCKPAGES 5242 . 5378) ( -\UNLOCKPAGES 5380 . 5512) (\WRITEDIRTYPAGE 5514 . 5649))))) + (FILEMAP (NIL (1214 5661 (CL::%%COPY-TIME-STATS 1224 . 1424) (CHECKPAGEMAP 1426 . 1562) (CLOCK 1564 . +1717) (CLOCK0 1719 . 1873) (DAYTIME 1875 . 2030) (SETTIME 2032 . 2417) (\BITBLTSUB 2419 . 2841) ( +\BLTCHAR 2843 . 3024) (\CHECKSUM 3026 . 3191) (\CLOCK0 3193 . 3344) (\COUNTREALPAGES 3346 . 3479) ( +\DAYTIME0 3481 . 3634) (\DIRTYBACKGROUND 3636 . 3772) (\DOLOCKPAGES 3774 . 3906) (\DONEWPAGE 3908 . +4057) (\DORECLAIM 4059 . 4205) (\DOTEMPLOCKPAGES 4207 . 4343) (\LOADVMEMPAGE 4345 . 4478) ( +\LOCKEDPAGEP 4480 . 4596) (\LOCKPAGES 4598 . 4728) (\MOVEVMEMFILEPAGE 4730 . 4851) (\NEWPAGE 4853 . +5000) (\PAGEFAULT 5002 . 5114) (\SHOWPAGETABLE 5116 . 5250) (\TEMPUNLOCKPAGES 5252 . 5388) ( +\UNLOCKPAGES 5390 . 5522) (\WRITEDIRTYPAGE 5524 . 5659))))) STOP diff --git a/sources/MAIKOLOADUPFNS.LCOM b/sources/MAIKOLOADUPFNS.LCOM index f81b8f2f2c908ac2fda2719fba1e02e297bfb8d0..bc2912beecbd5ca544ce29c67562aef65b560958 100644 GIT binary patch delta 739 zcmah{&5F}d6edGUhTtp&8Sn=^1e9hVHM#wnHZF$z+_u+Ab4%`RJ6#r=fugjflcM6H z_y&%5>B1LqH~0uH-Roi=Kzsx@-lRhv-MC54`F>6g-^us=ulw(Yx9qz4boIhS7D9lK zQ>{6uasIr${tLI9n&niQI_N&__DG1$mV8Wfn9e|N^}`UZ%gg1m4wG@3OhCVmqkK%& z)(x$c`TZEX90&i1HajSd^EVX)wFWu_$M3jN8#9wr4N3zyX3%xXF%793^n0y{$)%V9 zC0T*MJ4ZJS(41b32ZZ*S8OU#ldrIfxr}9PFF$@tE?uvTh!vO&s0?asxh|39$OfRJV zF%YmI#w{G<$j2K@{3=9yncSl%IUk8Z@sXM-B_b}>JK|$;Z`*$^mbA?j-U{2|M{&KD zW(33OY%+g2qNk^4Nh;^q_7!yU2eN=CuhP{rk$e;AB3X{p>3k-;2C(^R`7GhD7a4g7 z9ZcFCF3UOud?epB2*PZ?Dg?<{I-TWCZ<=<;j~5cI0Lx_vST3`#2Ih)PV1Ya><(|ji ztIaY21OZ{a&>hJLUCGP1Ha+9=a^2h^PZRqzz#>r(9%L4oCTIPOv>_VOIAFQXa~T$& x)Y3MjOSQkPpX|Q9pLw(Vk2X$<&3U-hsysnx3#8n1F}EaFtmt-+HVfG!#V%} delta 850 zcmaJ<&x_MQ6sFMHHRwT*1x4Wz*fm*fY0~YksfbRJX*cX7Q)Z^y7M6vw&1w-}~~uH}A{lx6Kco+xA|GpC%={Vp~vg z>a|+k+Wq*lx%dmOT6Jq*2i@agD`2$Lz}G;B;Ry6bn=x3Im&;`x2K^)+fWD5SeP-k6 zreYOcJY%b?|=vs zCe!%Ua6F$a|BXr=>{8gDUS_kab<3{Xm_fVvo%@+vz_B15C5RV9O*jrow?oi}iY8Uk z1kLcN$B3ZlLyri1wh9hDkCew-Jun#e2sGqnoa*Ab}zB4&D0c(8VQUodVgIYCu}HO=%>VX?@{ZRiX~gYoMgKRcVn30T$& z=w1O8Q1P2&K8?WvK8dIOWH=tdBaq|y^fXp)Co$~90S%f53iiNPJ*a`ty08m=JWGb7 zrQRJTVSfTukjUF0k+<%wELL0vaGAJrU1g>}t~n2}I~)8!wixO8L=nKrT%M%DWeG8K zcGVvDshNu6&i!Qp4h}aVL~+#N!k4IWiA2SD(O8?uN#Sn#z4&+y+1_|}Z|RT?{ApIt asSsRT8C-nc*vkE1v7tG+B3^J5FzpYQY2qOO