From 5943ef448be8686d0181efca8b74f0fa7f0749a8 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Thu, 26 Feb 2026 10:42:25 -0800 Subject: [PATCH] Respect external format on recompile --- sources/COMPILE | 30 +++++++++++++++--------------- sources/COMPILE.LCOM | Bin 28101 -> 28266 bytes 2 files changed, 15 insertions(+), 15 deletions(-) diff --git a/sources/COMPILE b/sources/COMPILE index e255b16f..28cdf840 100644 --- a/sources/COMPILE +++ b/sources/COMPILE @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "26-Feb-2026 00:46:08" {WMEDLEY}COMPILE.;8 76991 +(FILECREATED "26-Feb-2026 10:41:28" {WMEDLEY}COMPILE.;9 77027 :EDIT-BY rmk - :CHANGES-TO (FNS BCOMPL.BODY) + :CHANGES-TO (FNS BRECOMPILE) - :PREVIOUS-DATE "24-Feb-2026 10:04:53" {WMEDLEY}COMPILE.;7) + :PREVIOUS-DATE "26-Feb-2026 00:46:08" {WMEDLEY}COMPILE.;8) (PRETTYCOMPRINT COMPILECOMS) @@ -492,7 +492,8 @@ (SETQ BLOCKS (NCONC1 BLOCKS X)))) (BRECOMPILE - [LAMBDA (FILES CFILE FNS NOBLOCKSFLG) (* ; "Edited 24-Feb-2026 10:00 by rmk") + [LAMBDA (FILES CFILE FNS NOBLOCKSFLG) (* ; "Edited 26-Feb-2026 10:35 by rmk") + (* ; "Edited 24-Feb-2026 10:00 by rmk") (* ; "Edited 24-Apr-2025 22:04 by rmk") (* ; "Edited 5-Jul-2021 09:28 by rmk:") @@ -656,8 +657,7 @@ (* ;  "Start writing the compiled file. Use environment of one of the source files--usually the only one") (if LCFIL - then (\EXTERNALFORMAT LCFIL (OR (LISTGET DESTINATIONENV :FORMAT) - :MCCS)) + then (\EXTERNALFORMAT LCFIL (OR DESTINATIONENV :MCCS)) (PRINT-COMPILE-HEADER FILES [CONS (if NOBLOCKSFLG @@ -1525,14 +1525,14 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3368 73492 (BCOMPL 3378 . 5028) (BCOMPL.BODY 5030 . 11727) (PRINT-COMPILE-HEADER 11729 - . 12792) (RESETOPENFILES 12794 . 13147) (BCOMPL1A 13149 . 19162) (BCOMPL2 19164 . 25979) (BCOMPL3 -25981 . 27330) (BLOCK%: 27332 . 27964) (BRECOMPILE 27966 . 42830) (BRECOMPILE1 42832 . 48684) ( -BRECOMPILE2 48686 . 49488) (BRECOMPILE3 49490 . 50961) (BLOCKCOMPILE 50963 . 52823) (BLOCKCOMPILE1 -52825 . 57910) (COMPSET 57912 . 60609) (COMPSETREAD 60611 . 61922) (COMPSETY 61924 . 62048) (COMPSETF -62050 . 62216) (RCOMP3 62218 . 63925) (TCOMPL 63927 . 64226) (RECOMPILE 64228 . 64311) (RECOMP? 64313 - . 64773) (COMPILE 64775 . 66764) (COMPILE1 66766 . 67354) (COMPILE1A 67356 . 69003) ( -SHOULD-BE-DWIMIFIED? 69005 . 69694) (COMPEM 69696 . 70420) (GETCFILE 70422 . 72153) (SPECVARS 72155 . -72710) (LOCALVARS 72712 . 73286) (GLOBALVARS 73288 . 73490)) (75842 76791 (COMPILEMODE 75852 . 76789)) + (FILEMAP (NIL (3367 73528 (BCOMPL 3377 . 5027) (BCOMPL.BODY 5029 . 11726) (PRINT-COMPILE-HEADER 11728 + . 12791) (RESETOPENFILES 12793 . 13146) (BCOMPL1A 13148 . 19161) (BCOMPL2 19163 . 25978) (BCOMPL3 +25980 . 27329) (BLOCK%: 27331 . 27963) (BRECOMPILE 27965 . 42866) (BRECOMPILE1 42868 . 48720) ( +BRECOMPILE2 48722 . 49524) (BRECOMPILE3 49526 . 50997) (BLOCKCOMPILE 50999 . 52859) (BLOCKCOMPILE1 +52861 . 57946) (COMPSET 57948 . 60645) (COMPSETREAD 60647 . 61958) (COMPSETY 61960 . 62084) (COMPSETF +62086 . 62252) (RCOMP3 62254 . 63961) (TCOMPL 63963 . 64262) (RECOMPILE 64264 . 64347) (RECOMP? 64349 + . 64809) (COMPILE 64811 . 66800) (COMPILE1 66802 . 67390) (COMPILE1A 67392 . 69039) ( +SHOULD-BE-DWIMIFIED? 69041 . 69730) (COMPEM 69732 . 70456) (GETCFILE 70458 . 72189) (SPECVARS 72191 . +72746) (LOCALVARS 72748 . 73322) (GLOBALVARS 73324 . 73526)) (75878 76827 (COMPILEMODE 75888 . 76825)) ))) STOP diff --git a/sources/COMPILE.LCOM b/sources/COMPILE.LCOM index 7a692f92bd32cfcdd9c8670ce1f9fe087969a0f3..aa0f4704ff2bea03683bc3144e7293faeee67b4a 100644 GIT binary patch delta 1742 zcmZWp+iM(E7|(24)2tBLP;3n({SuOxjck~6W_B)1RAy&qlTBymjI)z$BgN4sn`CP) zC5BQF@?QZPA%zXFr`_6ay z;aB0W--HiV`iPj3NroO?pLtGCLVS!WseI*Hii%VLkz_uB*P_#4=koR(w~<40bW{+-%IKv&Nk@sSgg?DHT7NjY7rS5^ z#S-K}Q+Oc1b=P?(RLAF`=CNv&&m(V zUxbbEU*ca6Rd;&uDSs1wGO^tM<2q-K&VE-vJNdcLCr*{`9|_Nf_2*x&B?Ki>MxVr3 zhHYMtbK?fv?C<_ZOoF_`ZVCxOVmD*K9U-{gV0U6daI3-Ag4xw5MD=Oz^YJ;UF`nJn96YjLl223updqa)aE^cxx)8stx4H<)wW&+Lt%z`e`t$-rsE zdXIbW9{oGV+`(YHkr1cY_?IiI2+K@}dG=0tGDXhs_ugj*#~HRC+zSr4$M@`BIFKa0 z2W&sgCNIAjES$z$eiWS>EVS@0Al?PUyMTD{MZD#YkNeo3@WW z;VUm})ihazEU%qClV!POAR5)dw>)f4PGfgrml7n2*d|pSy9j5mz4-HCnf1INkzD7UBL_;!_KpsS2VZ*Nq0+|LRn9P$4^JpvM$0>!J8{Mc?UUF zYsO2p5>3tHa)*;o>9BlVI?}!(VgMmn8QZ{NCq$(!N)$E7;dZjT64p)>3D|7H$l(ez4F_~h ze*&S2XtBP0$M*#NwJzHVgp1)!Wt0;4BW0n5h<8#+J(x%mr!up*lO+)Cz z5EGgDJOPy_O{xSuAQ(b>po$86%L@qg4T(3#U%+1g0tt@ewh13rZhX$~eE6JuK7Rd0 z`2M-@(b|A0rX?jU9^6e`)RHhXN#$94V|A8_Q~}D;qKvSPl=z0z8Nd;_TW=|7JPeoW$^J<$Q)gG)Vw(L zL>RcC7Y~nm{s?}!@>Zi%Z?%Q(zxd=eUcWmODz|uju>0L+;>6(hg}A`@{a9&VC_QNL z{g_aCzr{EEL*>%dlOBHcB!;IiJn=q@*ZJm|L%zu$wEggV?bq1Ym^y+_snX)r<3V28 z9xK)Md1b0pZN++zd-sq2TIIEoQlb?Xr+MP*wRQZq9TzqJF!*hnj8=LN(Jsv^rCMb1 z9j^t~lBBoFE5X~zg=7@eEez@w26YRA!h=B-KRF)YQ%60|xYo}5O7MH~V_`XXJoBgU zRq*KborbD2nCrA35LKg4uzc(zq*WQhh9XE}7o3qY796|YHF6dTmO3?6}kyQ<{uD4hKA~PB0tpc`;hYX1# zMqJYMcElm6VMB+5fuzddO=}r5bPdPmnx8X56bGdXJq0BV{4f)YT9OznW&QcAYrDuX z670VCN`o-Gtn+B8rvKLorRdr4Jj=~s4wT~8I~@6kjC9M0ewHmUfDl>5;lL3iM3N&) z*XSFN!Bt`Tc?)!`l*5gT?dDCx1s$vPuY8(*ip3f#I*Kk4?+W*Yfy;}?vJ9q^&4>3V z(Q^{(7|wlR#ltd7RD|m8-gddV1%zSMHty9b<+bu&<=x9^L~z&&(9;y zbXeQIQ{CEVOKvkpz`SX=^HwONxJAMM7?Dm1QGwO^#@g;qtz5wcN|-1@H%~PQ(mB&a zYpN=cws}-5Dv{uzfAnQSP$6U4#-dXIoyj5C{FFQtdU4q{Q|$Bc7lz%eGd!IfZa()u G9RC}Nv5ap3