Change SYSTEM-EXTERNALFORMAT to more accurately guess the external format (#987)

sources/EXTERNALFORMAT

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "24-Jul-2022 14:56:07" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;75
 37244  
+
(FILECREATED "10-Oct-2022 18:10:56" 
+{DSK}<cygdrive>c>Users>Larry>home>MEDLEY>SOURCES>EXTERNALFORMAT.;76
 37395  
 
-      :CHANGES-TO (MACROS \CHECKEOLC)
-                  (FNS \INCCODE.EOLC)
+      :CHANGES-TO (FNS SYSTEM-EXTERNALFORMAT)
 
-      :PREVIOUS-DATE "24-Jul-2022 08:30:32" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;72)
+      :PREVIOUS-DATE "24-Jul-2022 14:56:07" 
+{DSK}<cygdrive>c>Users>Larry>home>MEDLEY>SOURCES>EXTERNALFORMAT.;75)
 
 
 (PRETTYCOMPRINT EXTERNALFORMATCOMS)
@@ -293,9 +292,10 @@
 (DEFINEQ
 
 (SYSTEM-EXTERNALFORMAT

-  [LAMBDA NIL
                                                (* ; "Edited  7-Jul-2022 10:41 by rmk")

-    (AND (STRPOS ".UTF-8" (UNIX-GETENV "LANG"))
-         :UTF-8])
+  [LAMBDA NIL
                                                (* ; "Edited 10-Oct-2022 11:55 by lmm")


+                                                             (* ; "Edited  7-Jul-2022 10:41 by rmk")

+    (FOR
 X IN
 '("LC_CTYPE" "LC_ALL" "LANG") WHEN
 (STRPOS ".UTF-8" (UNIX-GETENV X))
+       DO
 (RETURN :UTF-8) FINALLY
 (RETURN :THROUGH])
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
@@ -712,13 +712,13 @@
 (\CREATE.THROUGH.EXTERNALFORMAT
)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6607 13242 (\EXTERNALFORMAT 6617 . 10395) (MAKE-EXTERNALFORMAT 10397 . 12769) (
-\EXTERNALFORMAT.DEFPRINT 12771 . 13240)) (13243 16284 (\INSTALL.EXTERNALFORMAT 13253 . 14702) (
-\REMOVE.EXTERNALFORMAT 14704 . 15535) (FIND-FORMAT 15537 . 16282)) (16285 16498 (SYSTEM-EXTERNALFORMAT
- 16295 . 16496)) (16847 31667 (\OUTCHAR 16857 . 18074) (\INCCODE 18076 . 19229) (\BACKCCODE 19231 . 
-20800) (\BACKCCODE.EOLC 20802 . 22992) (\PEEKCCODE 22994 . 23319) (\PEEKCCODE.EOLC 23321 . 23700) (
-\INCCODE.EOLC 23702 . 25501) (\FORMATBYTESTREAM 25503 . 27638) (\FORMATBYTESTRING 27640 . 29099) (
-\CHECKEOLC.CRLF 29101 . 31665)) (32945 35181 (\NULLDEVICE 32955 . 34857) (\NULL.OPENFILE 34859 . 35179
-)) (35321 37148 (\CREATE.THROUGH.EXTERNALFORMAT 35331 . 36117) (\THROUGHIN 36119 . 36539) (
-\THROUGHBACKCCODE 36541 . 36808) (\THROUGHOUTCHARFN 36810 . 37146)))))
+  (FILEMAP (NIL (6559 13194 (\EXTERNALFORMAT 6569 . 10347) (MAKE-EXTERNALFORMAT 10349 . 12721) (
+\EXTERNALFORMAT.DEFPRINT 12723 . 13192)) (13195 16236 (\INSTALL.EXTERNALFORMAT 13205 . 14654) (
+\REMOVE.EXTERNALFORMAT 14656 . 15487) (FIND-FORMAT 15489 . 16234)) (16237 16649 (SYSTEM-EXTERNALFORMAT
+ 16247 . 16647)) (16998 31818 (\OUTCHAR 17008 . 18225) (\INCCODE 18227 . 19380) (\BACKCCODE 19382 . 
+20951) (\BACKCCODE.EOLC 20953 . 23143) (\PEEKCCODE 23145 . 23470) (\PEEKCCODE.EOLC 23472 . 23851) (
+\INCCODE.EOLC 23853 . 25652) (\FORMATBYTESTREAM 25654 . 27789) (\FORMATBYTESTRING 27791 . 29250) (
+\CHECKEOLC.CRLF 29252 . 31816)) (33096 35332 (\NULLDEVICE 33106 . 35008) (\NULL.OPENFILE 35010 . 35330
+)) (35472 37299 (\CREATE.THROUGH.EXTERNALFORMAT 35482 . 36268) (\THROUGHIN 36270 . 36690) (
+\THROUGHBACKCCODE 36692 . 36959) (\THROUGHOUTCHARFN 36961 . 37297)))))
 STOP