So far, it looks like every file with through tr '\r\n' '\n\r' swapping cr and lf.

internal/test/loops/LOOPS-TESTER-2-2

@@ -1 +1,35 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
+
(FILECREATED "17-Feb-88 15:29:01" {ERINYES}<CATE3>LOOPS>LOOPS-TESTER-2-2.\;6
 1740   
+
+      |changes| |to:|  (FUNCTIONS LOOPS-TESTER-2.2 |LT-2.2-New-BASIC|)
+                       (VARS LOOPS-TESTER-2-2COMS)
+
+      |previous| |date:| "17-Feb-88 12:12:56" {ERINYES}<CATE3>LOOPS>LOOPS-TESTER-2-2.\;2)
+
+
+(PRETTYCOMPRINT LOOPS-TESTER-2-2COMS)
+
+(RPAQQ LOOPS-TESTER-2-2COMS
 ((FUNCTIONS LOOPS-TESTER-2.2 |LT-2.2-New-BASIC|)))
+
+(CL:DEFUN LOOPS-TESTER-2.2
 (&OPTIONAL (DETAIL-RESULTS NIL)) "Run each test for section 2.2"
+   (CL:APPLY (CL:IF DETAIL-RESULTS 'LIST 'AND)
+          (LIST (|LT-2.2-New-BASIC|))))
+
+
+(CL:DEFUN |LT-2.2-New-BASIC|
 NIL (XCL-USER::DO-TEST "New     basic test, make sure works"
+                                        (LET* ((CLASS-NAME (LT-BUILD-CLASS-NAME))
+                                               (TEMP-INSTANCE-NAME (CL:GENSYM))
+                                               (TEMP-INSTANCE (_ ($! CLASS-NAME)
+                                                                 |New| TEMP-INSTANCE-NAME))
+                                               (RESULTS (AND (|Instance?| TEMP-INSTANCE)
+                                                             (LT-FIND-NAME TEMP-INSTANCE-NAME
+                                                                    (|GetObjectNames| TEMP-INSTANCE))
+                                                             )))
+                                              (_ TEMP-INSTANCE |Destroy!|)
+                                              (_ ($! CLASS-NAME)
+                                                 |Destroy|)
+                                              RESULTS)))
+
+(DECLARE\: DONTCOPY
+  (FILEMAP (NIL)))
+STOP

internal/test/loops/LOOPS-TESTER-BASICS

@@ -1 +1,29 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
+(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
+
(FILECREATED "17-Feb-88 15:35:24" {ERINYES}<CATE3>LOOPS>LOOPS-TESTER-BASICS.\;4
 1082   
+
+      |changes| |to:|  (FUNCTIONS LT-BUILD-CLASS-NAME XCL-USER::TEMP-TEMP)
+                       (VARS LOOPS-TESTER-BASICSCOMS)
+
+      |previous| |date:| "17-Feb-88 13:15:00" {ERINYES}<CATE3>LOOPS>LOOPS-TESTER-BASICS.\;1)
+
+
+(PRETTYCOMPRINT LOOPS-TESTER-BASICSCOMS)
+
+(RPAQQ LOOPS-TESTER-BASICSCOMS
 ((FUNCTIONS LT-BUILD-CLASS-NAME LT-FIND-NAME)))
+
+(CL:DEFUN LT-BUILD-CLASS-NAME
 NIL "Really only want to do this once in awhile, messing up (FILES?)"
+                                  (LET* ((CLASS-NAME (CL:GENSYM)))
+                                        (|DefineClass| CLASS-NAME)
+                                        CLASS-NAME))
+
+
+(CL:DEFUN LT-FIND-NAME
 (NAME LIST-OF-NAMES) "Walk through a list of names looking for a name"
+   (LET* ((RESULTS NIL))
+         (CL:DOLIST (ITEM LIST-OF-NAMES)
+                (CL:IF (EQ ITEM NAME)
+                       (SETQ RESULTS T)))
+         RESULTS))
+
+(DECLARE\: DONTCOPY
+  (FILEMAP (NIL)))
+STOP