Respect external format on recompile

sources/COMPILE

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "26-Feb-2026 00:46:08" {WMEDLEY}<sources>COMPILE.;8
 76991  
+
(FILECREATED "26-Feb-2026 10:41:28" {WMEDLEY}<sources>COMPILE.;9
 77027  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS BCOMPL.BODY)
+      :CHANGES-TO (FNS BRECOMPILE)
 
-      :PREVIOUS-DATE "24-Feb-2026 10:04:53" {WMEDLEY}<sources>COMPILE.;7)
+      :PREVIOUS-DATE "26-Feb-2026 00:46:08" {WMEDLEY}<sources>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