BOOTSTRAP: PRINT-READER-ENVIRONMENT puts out an extra EOL

To separate the DEFINE-FILE-INFO  header from the actual contents, when using TEDIT-SEE (in Medley) or lsee

sources/BOOTSTRAP

@@ -1,8 +1,8 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "26-Sep-2021 23:38:02" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;59
 47644  
+
(FILECREATED "27-Sep-2021 10:25:31" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;60
 47698  
 
-      changes to%:  (FNS READ-READER-ENVIRONMENT)
+      changes to%:  (FNS PRINT-READER-ENVIRONMENT READ-READER-ENVIRONMENT)
 
       previous date%: "17-Aug-2021 00:08:39" 
 {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;58)
@@ -784,9 +784,9 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
                 REREADTABLEFORM _ READTABLEFORM])
 
 (PRINT-READER-ENVIRONMENT

-  [LAMBDA (ENV STREAM)
                                  (* ; "Edited 16-Aug-2021 23:51 by rmk:")

+  [LAMBDA (ENV STREAM)
                                  (* ; "Edited 27-Sep-2021 10:24 by rmk:")

 
-(* ;;; "If ENV is not the old default interlisp reader environment, writes a DEFINE-FILE-INFO expression on STREAM that will produce this environment when the file is loaded.")

+(* ;;; "If ENV is not the old default interlisp reader environment, writes a DEFINE-FILE-INFO expression on STREAM that will produce this environment when the file is loaded.")

 
     (CL:UNLESS (EQUAL-READER-ENVIRONMENT ENV *OLD-INTERLISP-READ-ENVIRONMENT*)
         (LET ((*PACKAGE* *INTERLISP-PACKAGE*)
@@ -807,7 +807,8 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
                             ,@(CL:UNLESS (EQ :XCCS (FETCH
 REFORMAT OF
 ENV))
                                   `(:FORMAT ,(FETCH
 REFORMAT OF
 ENV)))]
                     STREAM
-                    (FETCH
 (READER-ENVIRONMENT REREADTABLE) OF
 *DEFINE-FILE-INFO-ENV*))))])
+                    (FETCH
 (READER-ENVIRONMENT REREADTABLE) OF
 *DEFINE-FILE-INFO-ENV*))
+             (TERPRI STREAM)))])
 
 (READ-READER-ENVIRONMENT

   [LAMBDA (STREAM DEFAULTENV RETURNFORM)
                (* ; "Edited 26-Sep-2021 23:31 by rmk:")

@@ -981,13 +982,13 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
 (PUTPROPS BOOTSTRAP COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 
 1992 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4726 14398 (GETPROP 4736 . 5308) (SETATOMVAL 5310 . 5439) (RPAQQ 5441 . 5494) (RPAQ 
-5496 . 5808) (RPAQ? 5810 . 6180) (MOVD 6182 . 8046) (MOVD? 8048 . 8478) (SELECTQ 8480 . 8667) (
-SELECTQ1 8669 . 9011) (NCONC1 9013 . 9209) (PUTPROP 9211 . 10695) (PROPNAMES 10697 . 10888) (ADDPROP 
-10890 . 12953) (REMPROP 12955 . 13809) (MEMB 13811 . 14070) (CLOSEF? 14072 . 14396)) (14471 35035 (
-LOAD 14481 . 15650) (\LOAD-STREAM 15652 . 28726) (FILECREATED 28728 . 30146) (FILECREATED1 30148 . 
-31256) (PRETTYCOMPRINT 31258 . 31743) (BOOTSTRAP-NAMEFIELD 31745 . 32705) (PUTPROPS 32707 . 33075) (
-DECLARE%: 33077 . 33209) (DECLARE%:1 33211 . 34083) (ROOTFILENAME 34085 . 35033)) (35073 45476 (
-DEFINE-FILE-INFO 35083 . 35518) (\DO-DEFINE-FILE-INFO 35520 . 39866) (PRINT-READER-ENVIRONMENT 39868
- . 41421) (READ-READER-ENVIRONMENT 41423 . 44198) (MAKE-DEFINE-FILE-INFO-ENV 44200 . 45474)))))
+  (FILEMAP (NIL (4751 14423 (GETPROP 4761 . 5333) (SETATOMVAL 5335 . 5464) (RPAQQ 5466 . 5519) (RPAQ 
+5521 . 5833) (RPAQ? 5835 . 6205) (MOVD 6207 . 8071) (MOVD? 8073 . 8503) (SELECTQ 8505 . 8692) (
+SELECTQ1 8694 . 9036) (NCONC1 9038 . 9234) (PUTPROP 9236 . 10720) (PROPNAMES 10722 . 10913) (ADDPROP 
+10915 . 12978) (REMPROP 12980 . 13834) (MEMB 13836 . 14095) (CLOSEF? 14097 . 14421)) (14496 35060 (
+LOAD 14506 . 15675) (\LOAD-STREAM 15677 . 28751) (FILECREATED 28753 . 30171) (FILECREATED1 30173 . 
+31281) (PRETTYCOMPRINT 31283 . 31768) (BOOTSTRAP-NAMEFIELD 31770 . 32730) (PUTPROPS 32732 . 33100) (
+DECLARE%: 33102 . 33234) (DECLARE%:1 33236 . 34108) (ROOTFILENAME 34110 . 35058)) (35098 45530 (
+DEFINE-FILE-INFO 35108 . 35543) (\DO-DEFINE-FILE-INFO 35545 . 39891) (PRINT-READER-ENVIRONMENT 39893
+ . 41475) (READ-READER-ENVIRONMENT 41477 . 44252) (MAKE-DEFINE-FILE-INFO-ENV 44254 . 45528)))))
 STOP