External format for BCOMPL

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}<sources>COMPILE.;7
 76903  
+
(FILECREATED "26-Feb-2026 00:46:08" {WMEDLEY}<sources>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}<sources>COMPILE.;6)
+      :PREVIOUS-DATE "24-Feb-2026 10:04:53" {WMEDLEY}<sources>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