From 6e37c48d38a7969797d6d85efaae9e11c07a9a37 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Thu, 26 Feb 2026 01:28:34 -0800 Subject: [PATCH] External format for BCOMPL --- sources/COMPILE | 31 ++++++++++++++++--------------- sources/COMPILE.LCOM | Bin 27968 -> 28101 bytes 2 files changed, 16 insertions(+), 15 deletions(-) diff --git a/sources/COMPILE b/sources/COMPILE index 1265d0d0..e255b16f 100644 --- a/sources/COMPILE +++ b/sources/COMPILE @@ -1,12 +1,12 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "24-Feb-2026 10:04:53" {WMEDLEY}COMPILE.;7 76903 +(FILECREATED "26-Feb-2026 00:46:08" {WMEDLEY}COMPILE.;8 76991 :EDIT-BY rmk - :CHANGES-TO (FNS BRECOMPILE3 BRECOMPILE) + :CHANGES-TO (FNS BCOMPL.BODY) - :PREVIOUS-DATE "24-Apr-2025 22:04:20" {WMEDLEY}COMPILE.;6) + :PREVIOUS-DATE "24-Feb-2026 10:04:53" {WMEDLEY}COMPILE.;7) (PRETTYCOMPRINT COMPILECOMS) @@ -104,7 +104,8 @@ CFILE NOBLOCKSFLG OPTIONSSET)))]) (BCOMPL.BODY - [LAMBDA (STREAMS CFILE NOBLOCKSFLG OPTIONSSET) (* ; "Edited 24-Apr-2025 22:03 by rmk") + [LAMBDA (STREAMS CFILE NOBLOCKSFLG OPTIONSSET) (* ; "Edited 26-Feb-2026 00:43 by rmk") + (* ; "Edited 24-Apr-2025 22:03 by rmk") (* ; "Edited 5-Jul-2021 13:46 by rmk:") (* ;;; "STREAMS is a list of streams. Compile everything on them, dumping to CFILE (default first stream.dcom). NOBLOCKSFLG means TCOMPL instead of BCOMPL. OPTIONSSET is true if the Listing? question has already been asked.") @@ -146,7 +147,7 @@ (RESETSAVE NIL (LIST 'CLOSEF STREAM)) (RESETSAVE (INPUT STREAM)) (* ;  "Needs to be primary input for some of the filepkg expressions to work") - (WITH-READER-ENVIRONMENT *OLD-INTERLISP-READ-ENVIRONMENT* + (WITH-READER-ENVIRONMENT *DEFINE-FILE-INFO-ENV* (until (OR (NULL (SETQ TEM (READ STREAM))) (EQ TEM 'STOP)) do (CL:WHEN (EQ (CAR (LISTP TEM)) @@ -1524,14 +1525,14 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3379 73404 (BCOMPL 3389 . 5039) (BCOMPL.BODY 5041 . 11639) (PRINT-COMPILE-HEADER 11641 - . 12704) (RESETOPENFILES 12706 . 13059) (BCOMPL1A 13061 . 19074) (BCOMPL2 19076 . 25891) (BCOMPL3 -25893 . 27242) (BLOCK%: 27244 . 27876) (BRECOMPILE 27878 . 42742) (BRECOMPILE1 42744 . 48596) ( -BRECOMPILE2 48598 . 49400) (BRECOMPILE3 49402 . 50873) (BLOCKCOMPILE 50875 . 52735) (BLOCKCOMPILE1 -52737 . 57822) (COMPSET 57824 . 60521) (COMPSETREAD 60523 . 61834) (COMPSETY 61836 . 61960) (COMPSETF -61962 . 62128) (RCOMP3 62130 . 63837) (TCOMPL 63839 . 64138) (RECOMPILE 64140 . 64223) (RECOMP? 64225 - . 64685) (COMPILE 64687 . 66676) (COMPILE1 66678 . 67266) (COMPILE1A 67268 . 68915) ( -SHOULD-BE-DWIMIFIED? 68917 . 69606) (COMPEM 69608 . 70332) (GETCFILE 70334 . 72065) (SPECVARS 72067 . -72622) (LOCALVARS 72624 . 73198) (GLOBALVARS 73200 . 73402)) (75754 76703 (COMPILEMODE 75764 . 76701)) + (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)) ))) STOP diff --git a/sources/COMPILE.LCOM b/sources/COMPILE.LCOM index 1dd78906f47e6bb8ce84ab82ae7ebc1f9405de18..7a692f92bd32cfcdd9c8670ce1f9fe087969a0f3 100644 GIT binary patch delta 935 zcmZvb&rj4q6vwwq_^}I#AVz}$c~&E=+Re;#+HHG*(w#zMx2@YQKNN%Dq9Ojk12>Ky zyqRp~V2sg&S1%gkdA)e><{2;k3;qYrEFde=H1q4dym{Zxd-HW)`Sw$pnXWQFh?wRF zA=84$kHJY?@0L5yKn+^+&UR+DU@?2b9fvsnt`i(GzZr^gbtU_~rXR~=~5KPrlaa!i= ziNrEi1(lqZ#_mMF1r^h_F~6r=zIc3VNyx0T#UO5^T2%z#R}?x>D$aF0_>ak{y}tZx z&)7*g8jBXMmmv3!Z}r}o7*TQy%||)$Z4Jutb-PiJ^KzdU_}kvQ$RKbK61#wP16J9x zKpMHBAJ=Pc29^yHESRJ-YrHiyddHx!I?u8+6Q&xF3ItKo$b?=@br2c3jW83@5I8l@ zO92xC&S5-^k@WbtptcQZ7AIg@d>x(Zr&cH6-frJQ{w(;QTf!`_DnWj7e2{-1cvT!e zGy7?(sf;MYe7$g~cQoJgWuLz&EWz4%x8OJJrLd!TZCpyuwPXIP@Y|;dWI-dh#=sy3 zNT{Mz7^q!2|O&8SuKRd;b8X!0(b)lWu z^q4RsmMBFRViUuvn;=w*wCSqq+tdbnx~ri>Pj#oe1|*W8BQA_0gt%wP zN_0|BVB!O4hznQh!lf@DiSOVG7^`tc2eejy)w$F;-#K57wNKx)g<8m>m@^}a6K2Fb zN?|thgB5>?fgW?g@+2-Y9cFXphr(|rXP&zYGxC*ot-C!x`L@iWk)c9H-l-S5--8DE#0o?frk%2ERLpJ1VUp;;YporXz(vM?4# za~<}!p8yS(eZIsBL!?lPcmdUB&Vsa+saOJkbscDyv(-3l7e=Tuf{rc2-`y)Kv;kvk zS`?e|j&?(Hjy`KUBl7F`&Cxmx9msfWUhZ6&lCQ^B_K6A2GJAr2K#0HwyQ|P}KZ(-3 zA?8_Is4fsjpxFBDL;x~9psgS%lrn+#f;_KuI1S%*p%7^X7CA}Ca)a^J zxRR&5#rV;i%JOif4#T6@tMcdg;YGN#_;zkf+k}s6iW_U@a>