From 768794486606a4230c9c87d7844dcdc80a162864 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Mon, 23 Feb 2026 22:28:20 -0800 Subject: [PATCH] These files cover the rest of the loadup sequence, removing UNICODE --- internal/loadups/LOADUP-FULL | 11 ++++++----- internal/loadups/LOADUP-FULL.LCOM | Bin 3022 -> 3022 bytes internal/loadups/LOADUP-LISP | 18 +++++++++--------- internal/loadups/LOADUP-LISP.LCOM | Bin 3672 -> 3596 bytes library/CLIPBOARD | 17 ++++++++--------- library/CLIPBOARD.LCOM | Bin 4578 -> 4455 bytes 6 files changed, 23 insertions(+), 23 deletions(-) diff --git a/internal/loadups/LOADUP-FULL b/internal/loadups/LOADUP-FULL index a70c431e..f6289eff 100644 --- a/internal/loadups/LOADUP-FULL +++ b/internal/loadups/LOADUP-FULL @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 5-Feb-2026 10:26:39" {WMEDLEY}loadups>LOADUP-FULL.;36 5858 +(FILECREATED "14-Feb-2026 00:42:39" {WMEDLEY}loadups>LOADUP-FULL.;38 5967 :EDIT-BY rmk :CHANGES-TO (FNS LOADUP-FULL) - :PREVIOUS-DATE "28-Dec-2025 12:06:12" {WMEDLEY}loadups>LOADUP-FULL.;35) + :PREVIOUS-DATE "13-Feb-2026 00:47:52" {WMEDLEY}loadups>LOADUP-FULL.;37) (PRETTYCOMPRINT LOADUP-FULLCOMS) @@ -47,7 +47,8 @@ (PRINTOUT T "FULL fonts loaded" T]) (LOADUP-FULL - [LAMBDA (DRIBBLEFILE) (* ; "Edited 5-Feb-2026 10:26 by rmk") + [LAMBDA (DRIBBLEFILE) (* ; "Edited 14-Feb-2026 00:42 by rmk") + (* ; "Edited 5-Feb-2026 10:26 by rmk") (* ; "Edited 28-Dec-2025 12:06 by rmk") (* ; "Edited 1-Sep-2025 11:59 by rmk") (* ; "Edited 18-Aug-2025 12:09 by rmk") @@ -78,7 +79,6 @@ (DIRECTORYNAME T) T T) (* ; "For FONTSAVAILABLE lookup") (LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT") - (LOADFULLFONTS) (LISTPUT IDLE.PROFILE 'TIMEOUT 0) (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL) @@ -88,6 +88,7 @@ GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM UNIXCHAT UNIXYCD)) + (LOADFULLFONTS) (COND ((WINDOWP *WHO-LINE*) (CLOSEW *WHO-LINE*))) @@ -102,5 +103,5 @@ (FIXMETA) (DECLARE%: DONTCOPY - (FILEMAP (NIL (456 5820 (LOADFULLFONTS 466 . 2601) (LOADUP-FULL 2603 . 5570) (FIXMETA 5572 . 5818))))) + (FILEMAP (NIL (456 5929 (LOADFULLFONTS 466 . 2601) (LOADUP-FULL 2603 . 5679) (FIXMETA 5681 . 5927))))) STOP diff --git a/internal/loadups/LOADUP-FULL.LCOM b/internal/loadups/LOADUP-FULL.LCOM index 215036e7a44ff3b1a4e86d8928732744079f3f0d..b6d976e2ceee932f00940259cc5be03074e4efcc 100644 GIT binary patch delta 258 zcmX>neolNsxS*klu3Ku7u91O}nSz0Vm5I^B3_D2+O$9C`Lj#12p@EfwrImrj#QoYK zhQneolNsxS)cmu3Ku7u91O}nS!B#m66%R3_D3PO$9C`1w$kmQ!8U5D^s(H`?W)m z#r5>`loV1DOHxy?XfU=iFj3Ov(s1+iadi%IbqsNJQBcCL&&t?RNn!FqMol&|1yc)C zi^;i+w!%ghx-O~7AXk|x7#dj_m{}Q4-pi=VXuA0|;{#Skj>*T_6(_%C_f!ZCP%tz$ zR`Br*4haYaI?c#X!N=dx#Vypw$Iag_BzSTd$7vo51t({J-vA$=wE1LRPAQ-<9-M7V E0OZalarry>IL>medley>internal>loadups>LOADUP-LISP.;2| 7369 +(FILECREATED "22-Feb-2026 14:15:31" |{WMEDLEY}loadups>LOADUP-LISP.;27| 7420 - :EDIT-BY "lmm" + :EDIT-BY |rmk| :CHANGES-TO (FNS LOADUP-LISP) - :PREVIOUS-DATE "27-Dec-2025 15:02:04" -|{DSK}larry>IL>medley>internal>loadups>LOADUP-LISP.;1|) + :PREVIOUS-DATE "22-Feb-2026 09:49:23" |{WMEDLEY}loadups>LOADUP-LISP.;26|) (PRETTYCOMPRINT LOADUP-LISPCOMS) @@ -20,7 +19,8 @@ (DEFINEQ (LOADUP-LISP - (LAMBDA (DRIBBLEFILE) (* \; "Edited 28-Jan-2026 14:30 by lmm") + (LAMBDA (DRIBBLEFILE) (* \; "Edited 22-Feb-2026 14:15 by rmk") + (* \; "Edited 28-Jan-2026 14:30 by lmm") (* \; "Edited 27-Dec-2025 15:02 by rmk") (* \; "Edited 16-Oct-2025 16:55 by rmk") (* \; "Edited 18-Aug-2025 12:08 by rmk") @@ -95,9 +95,9 @@ (* |;;| "Also, UNICODE is split into UNICODE-TABLES and UNICODE, so the tables are loaded before their MCCS/Uncode client functions are installed. Functions in UFS now depend on those translations so that filenames can have characters outside of Ascii. ") - (LOADUP '(UNICODE-TABLES UNICODE CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY FONTPROFILE MENU - WINDOWOBJ WINDOWSCROLL WINDOW WINDOWICON PAINTW ATTACHEDWINDOW XXGEOM XXFILL - DEXEC INSPECT DESCRIBE CMLARRAYINSPECTOR EDITINTERFACE TTYIN)) + (LOADUP '(CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY FONTPROFILE MENU WINDOWOBJ WINDOWSCROLL + WINDOW WINDOWICON PAINTW ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT DESCRIBE + CMLARRAYINSPECTOR EDITINTERFACE TTYIN)) (LOADUP '(BREAK-AND-TRACE)) (LOADUP '(FASDUMP XCL-COMPILER ADVISE)) @@ -147,5 +147,5 @@ (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST) ) (DECLARE\: DONTCOPY - (FILEMAP (NIL (675 7163 (LOADUP-LISP 685 . 7161))))) + (FILEMAP (NIL (640 7214 (LOADUP-LISP 650 . 7212))))) STOP diff --git a/internal/loadups/LOADUP-LISP.LCOM b/internal/loadups/LOADUP-LISP.LCOM index 7c4e597693019b302cb353f2e023e27b1d2d05a2..03306e2fcf19a0682fc78eb53f58eeea529d4d28 100644 GIT binary patch delta 315 zcmca1(<3t>$iPU~Ej3Bk$iT==K}n&eI^5UQ z#m6g__igf}&!p8U-JJN0-n5 zT_4Zj0EL>&ycz{1w@@D+1!Oby^z?w*QxZ#3Q);jpZ)B>Z$)(}uspI479OUX4;_9NH zWQ5fNXbzSzuTd~JF)~oFa&_?x(RGScs42?L23j(CIitQJk_iTuRwkBKM#f4CTxdox Qnr+r#vSZs^%W<0(08uJbumAu6 delta 359 zcmeB?xgj$l$k{^ID=|;k$iT==K}mtDrrIUg zyVfSOIJKzQE+?_5sM5~U$1XQDB`3AgZn6)fyg`kof|3!kVMbPlhE_&KN(wbeMX503 zYJf&1XC&sOr%t>e#_bpo5Uc>vH1VTwBo_U~21=S-8g8CGuFgTOjv=ltXqLcTOwfVi zH45g&W|mwER<16dA-YbH3Q9S-xk?I?n;G?u&2?Q;lR<%Cs$ghpWng4wU_ykakaplan>Local>medley3.5>working-medley>library>CLIPBOARD.;28 8305 +(FILECREATED "23-Feb-2026 12:35:55" {WMEDLEY}CLIPBOARD.;29 8228 :EDIT-BY rmk - :CHANGES-TO (FNS PUTCLIPBOARD CLIPBOARD-COPY-STREAM) + :CHANGES-TO (VARS CLIPBOARDCOMS) - :PREVIOUS-DATE "21-Apr-2024 09:12:04" {WMEDLEY}CLIPBOARD.;18) + :PREVIOUS-DATE "25-Sep-2025 15:00:01" {WMEDLEY}CLIPBOARD.;28) (PRETTYCOMPRINT CLIPBOARDCOMS) @@ -18,7 +17,7 @@ CLIPBOARD-PASTE-STREAM) (FNS SEDIT.COPYTOCLIPBOARD) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY (FILES (SYSLOAD) - UNIXCOMM UNICODE) + UNIXCOMM) (P (INSTALL-CLIPBOARD))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) @@ -148,7 +147,7 @@ (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY (FILESLOAD (SYSLOAD) - UNIXCOMM UNICODE) + UNIXCOMM) (INSTALL-CLIPBOARD) @@ -162,7 +161,7 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1167 6486 (INSTALL-CLIPBOARD 1177 . 2504) (GETCLIPBOARD 2506 . 2880) (PUTCLIPBOARD 2882 - . 4306) (PASTEFROMCLIPBOARD 4308 . 5226) (CLIPBOARD-COPY-STREAM 5228 . 5762) (CLIPBOARD-PASTE-STREAM -5764 . 6484)) (6487 8026 (SEDIT.COPYTOCLIPBOARD 6497 . 8024))))) + (FILEMAP (NIL (1098 6417 (INSTALL-CLIPBOARD 1108 . 2435) (GETCLIPBOARD 2437 . 2811) (PUTCLIPBOARD 2813 + . 4237) (PASTEFROMCLIPBOARD 4239 . 5157) (CLIPBOARD-COPY-STREAM 5159 . 5693) (CLIPBOARD-PASTE-STREAM +5695 . 6415)) (6418 7957 (SEDIT.COPYTOCLIPBOARD 6428 . 7955))))) STOP diff --git a/library/CLIPBOARD.LCOM b/library/CLIPBOARD.LCOM index b077be285e6fbbd0a97f069e4b04c325eb34de7d..a883c1605137c62be6c963d9f66153c7ecf1f97e 100644 GIT binary patch delta 392 zcmZvY%}T>S6otWM7NQ`6ZoG^L$zozM$&_?(lO_`lOp}nGYM0hVEwxEVyAVWt1*I<{ z_$EGr8}TiSo0_8Q%lW=@&&S~>dcHU|u$PZ8(MSh$!VJnNMIfWAa#l_5@-dVJAb2?M zb64=;bUWK`zW95V0$)hqie+ex delta 456 zcmaE^^hkL^#N;WAqV*a|$@#ejnK`K`3i){oN(x-nF2UZlHlf9-Ma6d6i3K@{d3HYe z$%#33xv42Rsg=fhrgr7|McJ8o>ADaRyPV9VqQs&~J7*uy04IOPAQwGrBMVIhB_jjf z;M4+LBLgE-1w(TyBU38_L!bpoMX7KrQzI%0ii%aO6aqp+;Mx^3fevvC_3=?aHbGBM zPe~yqu>|N)EG8QoC~0zOxOw`xItRHrhPb*+p2#RsPc6?VSQs0aDpJy9Voq_$vS{_6tV!0@yQ?w{iR)7js}RZ~GDKtaRPFF3@}$43_)BwU)BK$*$s1?o6pDku92 GN&x^D;)Qwu