COMPAREDIRECTORIES: upper-case-file-names

Plus typo fixes in the TEDIT file.

Note that the MATCHNAME has always been uppercase, and that the directory matching has been filtered using the FILEDIRCASEARRAY

lispusers/COMPAREDIRECTORIES

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "14-Aug-2022 12:13:45" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;250
 128556 
+
(FILECREATED " 3-Oct-2022 11:56:59" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;251
 128694 
 
-      :CHANGES-TO (FNS CDBROWSER.STRINGS)
+      :CHANGES-TO (FNS CDFILES)
 
-      :PREVIOUS-DATE "11-Aug-2022 21:10:25" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;249)
+      :PREVIOUS-DATE "14-Aug-2022 12:13:45" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;250)
 
 
 (* ; "
@@ -388,7 +388,8 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
 (DEFINEQ
 
 (CDFILES

-  [LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)
(* ; "Edited 25-Apr-2022 08:42 by rmk")


+  [LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)
(* ; "Edited  3-Oct-2022 11:55 by rmk")


+                                                             (* ; "Edited 25-Apr-2022 08:42 by rmk")


                                                              (* ; "Edited  5-Mar-2022 15:05 by rmk")


                                                             (* ; "Edited 16-Oct-2020 13:42 by rmk:")

 
@@ -416,6 +417,7 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
     (SETQ EXCLUDEDFILES (LDIFFERENCE EXCLUDEDFILES INCLUDEDFILES))
     (LET ([INCLUDES (CDFILES.PATS
 (OR INCLUDEDFILES '*.*]
           (EXCLUDES (AND EXCLUDEDFILES (CDFILES.PATS
 EXCLUDEDFILES)))
+          (*UPPER-CASE-FILE-NAMES NIL)
           HOST ENUMPAT)
          (SETQ HOST (FILENAMEFIELD.STRING DIR 'HOST))
          (SETQ DIR (FILENAMEFIELD.STRING DIR 'DIRECTORY))
@@ -2155,25 +2157,25 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
 (PUTPROPS COMPAREDIRECTORIES COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1994 1998
  2018 2020 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2634 22191 (COMPAREDIRECTORIES 2644 . 7477) (COMPAREDIRECTORIES.INFOS 7479 . 10353) (
-COMPAREDIRECTORIES.CANDIDATES 10355 . 13740) (CDENTRIES.SELECT 13742 . 18517) (
-COMPAREDIRECTORIES.INFOS.TYPE 18519 . 19425) (MATCHNAME 19427 . 20107) (CD.INSURECDVALUE 20109 . 21723
-) (CD.UPDATEWIDTHS 21725 . 22189)) (22192 31861 (CDFILES 22202 . 27955) (CDFILES.MATCH 27957 . 29582) 
-(CDFILES.PATS 29584 . 31859)) (31862 49683 (CDPRINT 31872 . 34389) (CDPRINT.HEADER 34391 . 35288) (
-CDPRINT.LINE 35290 . 38522) (CDPRINT.MAXWIDTHS 38524 . 42639) (CDPRINT.COLHEADERS 42641 . 43926) (
-CDPRINT.COLUMNS 43928 . 49048) (CDTEDIT 49050 . 49681)) (49684 58053 (CDMAP 49694 . 51126) (CDENTRY 
-51128 . 51437) (CDSUBSET 51439 . 52878) (CDMERGE 52880 . 56734) (CDMERGE.COMMON 56736 . 58051)) (58054
- 65592 (BINCOMP 58064 . 62353) (EOLTYPE 62355 . 64917) (EOLTYPE.SHOW 64919 . 65590)) (66120 78647 (
-FIND-UNCOMPILED-FILES 66130 . 69773) (FIND-UNSOURCED-FILES 69775 . 72159) (FIND-SOURCE-FILES 72161 . 
-73899) (FIND-COMPILED-FILES 73901 . 75778) (FIND-UNLOADED-FILES 75780 . 76633) (FIND-LOADED-FILES 
-76635 . 77063) (FIND-MULTICOMPILED-FILES 77065 . 78645)) (78648 87079 (CREATED-AS 78658 . 83455) (
-SOURCE-FOR-COMPILED-P 83457 . 86384) (COMPILE-SOURCE-DATE-DIFF 86386 . 87077)) (87080 97386 (
-FIX-DIRECTORY-DATES 87090 . 90083) (FIX-EQUIV-DATES 90085 . 91610) (COPY-COMPARED-FILES 91612 . 93433)
- (COPY-MISSING-FILES 93435 . 95592) (COMPILED-ON-SAME-SOURCE 95594 . 97384)) (97580 105418 (CDBROWSER 
-97590 . 101517) (CDBROWSER.STRINGS 101519 . 105416)) (105580 107316 (CD.TABLEITEM 105590 . 105810) (
-CD.TABLEITEM.PRINTFN 105812 . 106011) (CD.TABLEITEM.COPYFN 106013 . 107071) (
-CDTABLEBROWSER.HEADING.REPAINTFN 107073 . 107314)) (107317 127972 (CDTABLEBROWSER.WHENSELECTEDFN 
-107327 . 107795) (CD.COMMANDSELECTEDFN 107797 . 112898) (CD-MENUFN 112900 . 117211) (CD-COMPARE-FILES 
-117213 . 120565) (CDBROWSER-COPY 120567 . 124236) (CDBROWSER-DELETE-FILE 124238 . 127451) (CD-SWAPDIRS
- 127453 . 127970)))))
+  (FILEMAP (NIL (2624 22181 (COMPAREDIRECTORIES 2634 . 7467) (COMPAREDIRECTORIES.INFOS 7469 . 10343) (
+COMPAREDIRECTORIES.CANDIDATES 10345 . 13730) (CDENTRIES.SELECT 13732 . 18507) (
+COMPAREDIRECTORIES.INFOS.TYPE 18509 . 19415) (MATCHNAME 19417 . 20097) (CD.INSURECDVALUE 20099 . 21713
+) (CD.UPDATEWIDTHS 21715 . 22179)) (22182 31999 (CDFILES 22192 . 28093) (CDFILES.MATCH 28095 . 29720) 
+(CDFILES.PATS 29722 . 31997)) (32000 49821 (CDPRINT 32010 . 34527) (CDPRINT.HEADER 34529 . 35426) (
+CDPRINT.LINE 35428 . 38660) (CDPRINT.MAXWIDTHS 38662 . 42777) (CDPRINT.COLHEADERS 42779 . 44064) (
+CDPRINT.COLUMNS 44066 . 49186) (CDTEDIT 49188 . 49819)) (49822 58191 (CDMAP 49832 . 51264) (CDENTRY 
+51266 . 51575) (CDSUBSET 51577 . 53016) (CDMERGE 53018 . 56872) (CDMERGE.COMMON 56874 . 58189)) (58192
+ 65730 (BINCOMP 58202 . 62491) (EOLTYPE 62493 . 65055) (EOLTYPE.SHOW 65057 . 65728)) (66258 78785 (
+FIND-UNCOMPILED-FILES 66268 . 69911) (FIND-UNSOURCED-FILES 69913 . 72297) (FIND-SOURCE-FILES 72299 . 
+74037) (FIND-COMPILED-FILES 74039 . 75916) (FIND-UNLOADED-FILES 75918 . 76771) (FIND-LOADED-FILES 
+76773 . 77201) (FIND-MULTICOMPILED-FILES 77203 . 78783)) (78786 87217 (CREATED-AS 78796 . 83593) (
+SOURCE-FOR-COMPILED-P 83595 . 86522) (COMPILE-SOURCE-DATE-DIFF 86524 . 87215)) (87218 97524 (
+FIX-DIRECTORY-DATES 87228 . 90221) (FIX-EQUIV-DATES 90223 . 91748) (COPY-COMPARED-FILES 91750 . 93571)
+ (COPY-MISSING-FILES 93573 . 95730) (COMPILED-ON-SAME-SOURCE 95732 . 97522)) (97718 105556 (CDBROWSER 
+97728 . 101655) (CDBROWSER.STRINGS 101657 . 105554)) (105718 107454 (CD.TABLEITEM 105728 . 105948) (
+CD.TABLEITEM.PRINTFN 105950 . 106149) (CD.TABLEITEM.COPYFN 106151 . 107209) (
+CDTABLEBROWSER.HEADING.REPAINTFN 107211 . 107452)) (107455 128110 (CDTABLEBROWSER.WHENSELECTEDFN 
+107465 . 107933) (CD.COMMANDSELECTEDFN 107935 . 113036) (CD-MENUFN 113038 . 117349) (CD-COMPARE-FILES 
+117351 . 120703) (CDBROWSER-COPY 120705 . 124374) (CDBROWSER-DELETE-FILE 124376 . 127589) (CD-SWAPDIRS
+ 127591 . 128108)))))
 STOP