From 1d4c9ed6eec4a001aa433de9dd3327361d50f387 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Mon, 27 Sep 2021 10:28:50 -0700 Subject: [PATCH] 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 | 31 ++++++++++++++++--------------- sources/BOOTSTRAP.LCOM | Bin 14584 -> 14652 bytes 2 files changed, 16 insertions(+), 15 deletions(-) diff --git a/sources/BOOTSTRAP b/sources/BOOTSTRAP index 95c549e1..c81fa655 100644 --- a/sources/BOOTSTRAP +++ b/sources/BOOTSTRAP @@ -1,8 +1,8 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "26-Sep-2021 23:38:02"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;59 47644 +(FILECREATED "27-Sep-2021 10:25:31"  +{DSK}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}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 diff --git a/sources/BOOTSTRAP.LCOM b/sources/BOOTSTRAP.LCOM index faf5fb5bf52e35c3d447885572b47e8c9b214f6f..a431b0c730486e8a08286a079d2fa4b64677958e 100644 GIT binary patch delta 183 zcmexSxTk1BxUjiyaB6|Bk%5t+f}w$xk*Srj;l!*ECNqPH2MpK(f;{~~bSFEi2~U2Y zD>0daQJ#@&;z7~LHjKj9G)`i2Q8F`7Ffli?v`|RSNX$!5EmkPWSG7{maPtdR;6gD@ zeDh64M`eLiEKCec4k26&Krm?|!~V%ys$0bzIYC^33;_lWLrZgo5Z54}R)x(^R7HdV DM6fVs delta 150 zcmdl}^rLV>xUiXSaB6|Bk%5t+f|0S6v4xd^(Zs9}CR59a2Mkz(Tpe8|KV%e{tjH)o z*^yBLo9f9mj4leMmI@~3W+o;I$r*`x>8ZsECHbmW3L0*H!3tbZLxeZ;FgYp<9ARN% fU~&lIVgQ0k8yR*^j#b^tDv%+-ps`s)O+**~U&JSh