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

internal/test/io/Hardcopy/Hand/streamtests.u

@@ -0,0 +1,182 @@
+(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL-USER")
+
(il:filecreated "28-Feb-88 14:22:53" il:{eris}<test>i/o>hardcopy>hand>testfiles>streamtests.u\;1
 7304   
+
+      il:|changes| il:|to:|  (il:functions sendfiles)
+                             (il:vars il:streamtestscoms)
+                             (file-environments "STREAMTESTS.U" "STREAMTESTS")
+                             (il:fns sendfiles stresstest)
+
+      il:|previous| il:|date:| "28-Feb-88 13:45:44" il:{eris}<test>i/o>hardcopy>hand>streamtests.u\;4
+)
+
+
+; Copyright (c) 1987, 1988 by XEROX Corporation.  All rights reserved.
+
+(il:prettycomprint il:streamtestscoms)
+
+(il:rpaqq il:streamtestscoms
 
+          ((file-environments "STREAMTESTS.U")
+           (il:fns squash lister tedstream setq80 80set defprint pusher 4045set set4045 stresstest 
+                  setprinters)
+           (il:functions sendfiles)
+           (il:vars tedlist sketchlist rs232 tty fastfx80list fast hq fastfx80 hqfx80 4045xlp)
+           (il:declare\: il:donteval@load il:doeval@compile il:dontcopy il:compilervars
+                  (il:addvars (il:nlama)
+                         (il:nlaml)
+                         (il:lama stresstest set4045 4045set pusher defprint 80set setq80 tedstream 
+                                lister squash)))))
+
+(define-file-environment "STREAMTESTS.U"
 :package "XCL-USER" :readtable "XCL" :compiler 
+                                                   :compile-file)
+
+(il:defineq
+
+(squash

+  (lambda (prefix suffix)
+         (block squash (make-symbol (concatenate 'simple-string (symbol-name prefix)
+                                           (symbol-name suffix))))))
+
+(lister

+  (lambda (names extension)
+         (block lister (mapcar 'squash names (make-list (length names)
+                                                    :initial-element extension)))))
+
+(tedstream

+  (lambda (file)
+         (block tedstream (let ((stream (il:opentextstream file)))
+                               (il:tedit.hardcopy stream)
+                               (close stream)))))
+
+(setq80

+  (lambda (string)
+         (block setq80 (setq il:fastfx80-default-destination string il:hqfx80-default-destination 
+                             string))))
+
+(80set

+  (lambda (&optional port)
                        (il:* il:\; "Edited  6-Mar-87 15:50 by reidy")

+
+         (block 80set (cond
+                         ((null port)
+                          (print 'fastfx80)
+                          (prin1 il:fastfx80-default-destination)
+                          (print 'hqfx80)
+                          (prin1 il:hqfx80-default-destination)
+                          (values))
+                         ((stringp port)
+                          (setq80
 port))
+                         ((equal port tty)
+                          (setq80
 "{TTY}"))
+                         ((or (equal port rs232)
+                              (equal port 232))
+                          (setq80
 "{RS232}"))
+                         (t (setq80
 (symbol-name port)))))))
+
+(defprint

+  (lambda (&optional printer)
                     (il:* il:\; "Edited  6-Mar-87 15:38 by reidy")

+
+         (block defprint (cond
+                            ((null printer)
+                             (car il:defaultprintinghost))
+                            ((equal printer hqfx80)
+                             (pusher
 '(il:hqfx80 il:hqfx80)))
+                            ((equal printer fastfx80)
+                             (pusher
 '(il:fastfx80 il:fastfx80)))
+                            ((or (equal printer 4045)
+                                 (equal printer 4045xlp))
+                             (pusher
 'il:4045xlp))
+                            (t (pusher
 printer))))))
+
+(pusher

+  (lambda (arg)
                                (il:* il:\; "Edited 24-Feb-87 21:06 by James.pa")

+
+         (block pusher (cond
+                          ((equal arg (car il:defaultprintinghost))
+                           il:defaultprintinghost)
+                          (t (push arg il:defaultprintinghost))))))
+
+(4045set

+  (lambda (&optional (port nil))
                  (il:* il:\; "Edited 12-Mar-87 16:18 by Reidy")

+
+         (block 4045set (cond
+                           ((null port)
+                            (il:4045xlp.get.parameters '(il:port)))
+                           ((equal port 'tty)
+                            (set4045
 tty))
+                           ((or (equal port 'rs232)
+                                (equal port '232))
+                            (set4045
 rs232))
+                           (t (set4045
 port))))))
+
+(set4045

+  (lambda (port)
                               (il:* il:\; "Edited 26-Feb-87 12:55 by James.pa")

+
+         (block set4045 (il:4045xlp.set.parameters (list (cons 'il:port port))))))
+
+(stresstest

+  (lambda nil 
                                     (il:* il:\; "Edited 28-Feb-88 13:27 by Snow")

+
+         (block stresstest (il:send.file.to.printer 
+                                  "{eris}<test>i/o>hardcopy>hand>stresstest>stresstest.tedit"))))
+
+(setprinters

+  (il:lambda nil
                                  (il:* il:\; "Edited 17-Mar-87 14:35 by REIDY")

+
+    "Set PRESSPRINTER and IPPRINTER to the first Press and Interpress printers on il:defaultprintinghost"
+    (let ((ppos (position 'il:press (mapcar 'il:printertype il:defaultprintinghost)))
+          (ippos (position 'il:interpress (mapcar 'il:printertype il:defaultprintinghost))))
+         (cond
+            (ppos (setq pressprinter (elt il:defaultprintinghost ppos)))
+            (t (setq pressprinter nil)))
+         (cond
+            (ippos (setq ipprinter (elt il:defaultprintinghost ippos)))
+            (t (setq ipprinter nil))))
+    (princ '|PRESSPRINTER: |)
+    (prin1 pressprinter)
+    (terpri)
+    (princ '|IPPRINTER: |)
+    (prin1 ipprinter)
+    (values)))
+)
+
+(defun sendfiles
 (&optional host) (mapcar '(lambda (file)
+                                                      (il:send.file.to.printer file host))
+                                             (il:directory "{eris}<test>i/o>hardcopy>hand>testfiles>"
+                                                    'il:collect)))
+
+
+(il:rpaqq tedlist
 (il:01ur.tedit il:02looks.tedit il:03fonts.tedit il:04para.tedit 
+                             il:05page.tedit il:06line.tedit il:07ns.tedit il:08imob.tedit))
+
+(il:rpaqq sketchlist
 (il:10mixed.sketch il:11straight.sketch il:12curve.sketch il:13change.sketch 
+                                il:14text.sketch il:15reverse.sketch))
+
+(il:rpaqq rs232
 il:rs232)
+
+(il:rpaqq tty
 il:tty)
+
+(il:rpaqq fastfx80list
 (il:00plaintext.tedit il:01ur.tedit))
+
+(il:rpaqq fast
 il:fastfx80)
+
+(il:rpaqq hq
 il:hqfx80)
+
+(il:rpaqq fastfx80
 il:fastfx80)
+
+(il:rpaqq hqfx80
 il:hqfx80)
+
+(il:rpaqq 4045xlp
 il:4045xlp)
+(il:declare\: il:donteval@load il:doeval@compile il:dontcopy il:compilervars 
+
+(il:addtovar il:nlama
 )
+
+(il:addtovar il:nlaml
 )
+
+(il:addtovar il:lama
 stresstest set4045 4045set pusher defprint 80set setq80 tedstream lister 
+                               squash)
+)
+(il:putprops il:streamtests.u il:copyright ("XEROX Corporation" 1987 1988))
+(il:declare\: il:dontcopy
+  (il:filemap (nil (1458 5950 (squash 1471 . 1662) (lister 1664 . 1858) (tedstream 1860 . 2066) (setq80 
+2068 . 2237) (80set 2239 . 3062) (defprint 3064 . 3783) (pusher 3785 . 4118) (4045set 4120 . 4675) (
+set4045 4677 . 4878) (stresstest 4880 . 5152) (setprinters 5154 . 5948)))))
+il:stop

internal/test/io/Hardcopy/Hand/testfiles/00PLAINTEXT.TEDIT

@@ -0,0 +1,23 @@
+OOPLAINTEXT.TEDIT
+
+
+Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
+	Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
+
+Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  
+
+On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse. Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
+
+		Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.  
+  	Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse. Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.  
+
+Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
+	Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
+
+Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  
+
+On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse. Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
+
+		Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.  
+  	Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse. Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.  
+

internal/test/io/Hardcopy/Hand/testfiles/04PARA.TEDIT

@@ -0,0 +1,85 @@
+04PARA.TEDIT
+
+
+     Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
+	Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.
+E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
+
+Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  
+
+On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse. Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
+
+		Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.  
+  	Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.ÄHC What are the requirements for saving a file in a crash?  In a normal |OGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse. 
+
+Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.  
+Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive  Treating the upper and lower cases of the same letter as distinct symbols.  E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button  On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
+	Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.ÄHC What are the requirements for saving a file in a crash?  In a normal LOGOUT and boot wit§ÍÃõ
+t÷Ã@ ª¨@ÂÜÈè³
ú_ý€ðÐÿWœR£K{sÁ«4WÖúCŠ/<2F>.Í®„J®,Œ.Íí„­¤®L$Ì<>„íí®Ld,l®läÍ„­d.¬­„­ŒŽ®L$n„,mŽ.ÍmŒd.¯Mì<4D>mΤÈåÌ$Í$d®,Ln
+dŽN.ÍídìÍ<C3AC>.,Ím$d,.<2E>.Œ
+‹$„íí®L®e,l®ä.<2E><>
+Äí<EFBFBD>$®.Œ-Í,$l$¤-ŒnÍ¥)<29>ŒŒ­D¬ŽŽîÍ
+äÉ
+$D¦E¬ŽŽîÍ
+¤í­n®ŒN®ln.ÍíDì<44>
+D¬ŽDA (self index)                                       (* dgb%: " 2-DEC-82 22:14")
+    (CAR (FNTH (GetValue self 'indexedVars)
+               index))))
+
+(PutNthValue
+  (LAMBDA (self varIndex newValue propName)                  (* dgb%: "23-NOV-82 00:11")
+                                                             (* Store away a value for an indexed 
+                                                             variable)
+    (COND
+       ((NUMBERP varIndex)
+        (StoreNthValue self varIndex newValue propName))
+       (T (PutValue self varIndex newValue propName)))))
+
+(StoreNthValue
+  (LAMBDA (self index newValue propName)                     (* dgb%: " 2-DEC-82 18:35")
+          
+          (* * Store value for nth indexed variable.
+          Used by objects having a VarLength mixin.)
+
+    (PROG ((descr (FetchNthDescr! self index)))
+          (RETURN (ObjSetValue self index newValue descr (ObjGetProp descr propName)
+                         propName)))))
+
+(StoreNthValueOnly
+  (LAMBDA (self index newValue propName)                     (* edited%: "22-Dec-84 18:29")
+          
+          (* * Store away value for nth indexed variable.
+          Used by objects having a VarLength mixin.
+          Same as StoreNthValue except ignores activeValues.)
+
+    (PROG ((descr (CAR (FNTH (@ indexedVars)
+                             index))))
+          (RETURN (COND
+                     ((NULL descr)                           (* Here if no value set yet.)
+                      (PROG (varLst numVars)
+                            (SETQ varLst (GetValueOnly self 'indexedVars))
+                            (SETQ numVars (LENGTH varLst))   (* First allocate space for any vars 
+                                                             of lower index.)
+                            (SETQ varLst (APPEND varLst (for i from 1
+                                                           to (SUB1 (IDIFFERENCE index numVars))
+                                                           collect (CONS NotSetValue))))
+                                                             (* Then stick the newValue on the end.)
+                            (SETQ varLst (NCONC1 varLst (COND
+                                                           (propName (LIST NotSetValue propName 
+                                                                           newValue))
+                                                           (T (CONS newValue)))))
+                            (PutValueOnly self 'indexedVars varLst)
+                            (RETURN newValue)))
+                     (T                                      (* Usual case.)
+                        (ObjPutProp descr propName newValue)))))))
+)
+
+
+
+(* ;;; "Class property stuff")

+
+(DEFINEQ
+
+(GetClass
+  (LAMBDA (classRec propName)                                (* dgb%: " 5-Dec-84 14:47")
+