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

internal/test/IO/Auto/Peekbin.test

@@ -1 +1,77 @@
-
(FILECREATED "17-Jun-86 15:55:40" {ERIS}<SANNELLA>LISP>FDEVTEST.;3
 3034   
+
(FILECREATED "17-Jun-86 15:55:40" {ERIS}<SANNELLA>LISP>FDEVTEST.;3
 3034   
+
+      changes to:  (FNS TEST.PEEKBIN)
+		   (VARS FDEVTESTCOMS)
+
+      previous date: "17-Jun-86 14:29:21" {ERIS}<SANNELLA>LISP>FDEVTEST.;1)
+
+
+(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)
+
+(PRETTYCOMPRINT FDEVTESTCOMS)
+
+(RPAQQ FDEVTESTCOMS
 ((FNS TEST.PEEKBIN)))
+(DEFINEQ
+
+(TEST.PEEKBIN

+  [LAMBDA (FILE DONT.TRY.HARD.FLG)                           (* mjs "17-Jun-86 15:54")

+    (
PROG
 ((STRM (
OPENSTREAM
 FILE (
QUOTE
 INPUT)
+				 (
QUOTE
 OLD)))
+	     STRMLEN)
+	    (
RESETLST
 (
RESETSAVE
 NIL (
LIST
 (
QUOTE
 CLOSEF)
+						 STRM))
+			(
SETQ
 STRMLEN (
GETEOFPTR
 STRM))
+			(for
 PTR in
 (
APPEND
 (
LIST
 0 STRMLEN (
IMAX
 (
SUB1
 STRMLEN)
+									    0)
+							  (
ADD1
 STRMLEN)
+							  (
IPLUS
 (
RAND
 1 10)
+								   (
ITIMES
 (
RAND
 2 5)
+									     STRMLEN)))
+						  (for
 X from
 -1 to
 STRMLEN by
 512
+						     when
 (
IGREATERP
 X 0) collect
 X)
+						  (for
 X from
 0 to
 STRMLEN by
 512
+						     collect
 X)
+						  (for
 X from
 1 to
 STRMLEN by
 512
+						     collect
 X)
+						  (for
 X from
 1 to
 5 collect
 (
RAND
 0 
+											  STRMLEN)))
+			   bind
 C.PEEK.NIL C.PEEK.T C.BIN PTR2 PTR3
+			   do
 (
SETFILEPTR
 STRM PTR)
+				(
SETQ
 C.PEEK.NIL (
NLSETQ
 (
\PEEKBIN
 STRM)))
+				(
SETQ
 PTR2 (
GETFILEPTR
 STRM))
+				(if
 (
NOT
 DONT.TRY.HARD.FLG)
+				    then
 (if
 (
NOT
 (
EQUAL
 PTR PTR2))
+					       then
 (
ERROR
 "\PEEKBIN moving file ptr!")))
+				(
SETQ
 C.PEEK.T (
NLSETQ
 (
\PEEKBIN
 STRM T)))
+				(
SETQ
 PTR3 (
GETFILEPTR
 STRM))
+				(if
 (
NOT
 DONT.TRY.HARD.FLG)
+				    then
 (if
 (
NOT
 (
EQUAL
 PTR PTR3))
+					       then
 (
ERROR
 "\PEEKBIN moving file ptr!")))
+				(
SETQ
 C.BIN (
NLSETQ
 (
BIN
 STRM)))
+				(if
 (
IGEQ
 PTR STRMLEN)
+				    then
                   (* at EOS)

+					   (if
 (
NOT
 DONT.TRY.HARD.FLG)
+					       then
 (if
 (
NOT
 (
AND
 (
EQUAL
 C.PEEK.NIL NIL)
+									  (
EQUAL
 C.PEEK.T
+										   (
QUOTE
 (NIL)))
+									  (
EQUAL
 C.BIN NIL)))
+							  then
 (
ERROR
 
+						   "\PEEKBIN or BIN not working correctly at EOS")))
+					   (if
 (
NOT
 DONT.TRY.HARD.FLG)
+					       then
 (if
 (
NOT
 (
EQUAL
 (
GETFILEPTR
 STRM)
+									    PTR))
+							  then
 (
ERROR
 "BIN moving fileptr at eos")
+							    ))
+				  else
                     (* before EOS)

+					 (if
 (
NOT
 (
AND
 (
EQUAL
 C.PEEK.NIL C.PEEK.T)
+							     (
EQUAL
 C.PEEK.T C.BIN)))
+					     then
 (
ERROR
 
+						     "\PEEKBIN and BIN not returning same value!"))
+					 (if
 (
NOT
 (
EQUAL
 (
GETFILEPTR
 STRM)
+							       (
ADD1
 PTR)))
+					     then
 (
ERROR
 "BIN not moving ptr correctly!"])
+)
+(PUTPROPS FDEVTEST COPYRIGHT ("Xerox Corporation" 1986))
+(DECLARE: DONTCOPY
+  (FILEMAP (NIL (368 2955 (TEST.PEEKBIN 378 . 2953)))))
+STOP