From d479ef2ef9c9874fc31a8921977b89df97ef39f9 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Thu, 25 Nov 2021 08:07:52 -0800
Subject: [PATCH] IOCHAR:  Fix DST comment

---
 sources/IOCHAR      |  43 ++++++++++++++++++++++++++-----------------
 sources/IOCHAR.LCOM | Bin 22563 -> 22555 bytes
 2 files changed, 26 insertions(+), 17 deletions(-)

diff --git a/sources/IOCHAR b/sources/IOCHAR
index 622d2cfb..8c2d0824 100644
--- a/sources/IOCHAR
+++ b/sources/IOCHAR
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "24-Oct-2021 23:57:27" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IOCHAR.;3
 90360  
+
(FILECREATED "26-Oct-2021 10:07:31" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IOCHAR.;5
 90395  
 
       changes to%:  (VARS IOCHARCOMS)
 
-      previous date%: "24-Oct-2021 23:53:23" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IOCHAR.;2)
+      previous date%: "24-Oct-2021 23:57:27" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IOCHAR.;4)
 
 
 (* ; "
@@ -46,7 +46,11 @@ Copyright (c) 1981-1988, 1990-1991, 2018, 2020 by Venue & Xerox Corporation.
                    \OUTDATE-STRING \RPLRIGHT \UNPACKDATE \PACKDATE \DTSCAN \ISDST? \CHECKDSTCHANGE)
               (OPTIMIZERS DATEFORMAT)
               
-              (* ;; "Because DST begins the FIRST weekend in April now, \BeginDST changed from 120 to 98 as of 4/3/87 (JDS)  Note: this only affects standalone users--those with time servers automatically get correct local info (bvm)")

+              (* ;; "Default values for \BeginDST and \EndDST are set for (most places in) the U.S., 74 and 312 as of 2021.")

+
+              
+              (* ;; 
+
      " Note: this might not be relevant to users with local time servers that do the right thing.")

 
               (INITVARS (\TimeZoneComp 8)
                      (\BeginDST 74)
@@ -1322,10 +1326,15 @@ DONTCOPY
 
 
 (* ;; 
-"Because DST begins the FIRST weekend in April now, \BeginDST changed from 120 to 98 as of 4/3/87 (JDS)  Note: this only affects standalone users--those with time servers automatically get correct local info (bvm)"
+"Default values for \BeginDST and \EndDST are set for (most places in) the U.S., 74 and 312 as of 2021."
 )

 
 
+
+
+(* ;; " Note: this might not be relevant to users with local time servers that do the right thing.")

+
+
 (RPAQ? \TimeZoneComp
 8)
 
 (RPAQ? \BeginDST
 74)
@@ -1374,15 +1383,15 @@ DONTCOPY
 (PUTPROPS IOCHAR COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 
 1991 2018 2020))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3448 7242 (CHCON 3458 . 4308) (UNPACK 4310 . 5204) (DCHCON 5206 . 6473) (DUNPACK 6475
- . 7240)) (7243 18758 (UALPHORDER 7253 . 7349) (ALPHORDER 7351 . 9154) (CONCAT 9156 . 9801) (
-CONCATCODES 9803 . 9989) (PACKC 9991 . 12594) (PACK 12596 . 13175) (PACK* 13177 . 14899) (\PACK.ITEM 
-14901 . 15356) (STRPOS 15358 . 18756)) (18760 19049 (XCL:PACK 18760 . 19049)) (19051 19301 (XCL:PACK* 
-19051 . 19301)) (20019 22410 (STRPOSL 20029 . 21655) (MAKEBITTABLE 21657 . 22408)) (22572 23049 (
-CASEARRAY 22582 . 22772) (UPPERCASEARRAY 22774 . 23047)) (23371 46973 (FILEPOS 23381 . 33293) (
-FFILEPOS 33295 . 44408) (\SETUP.FFILEPOS 44410 . 46971)) (47761 89008 (DATE 47771 . 47857) (DATEFORMAT
- 47859 . 47951) (GDATE 47953 . 48064) (IDATE 48066 . 59737) (\IDATESCANTOKEN 59739 . 61018) (
-\IDATE-PARSE-MONTH 61020 . 64716) (\OUTDATE 64718 . 77466) (\OUTDATE-STRING 77468 . 78083) (\RPLRIGHT 
-78085 . 78323) (\UNPACKDATE 78325 . 84116) (\PACKDATE 84118 . 87438) (\DTSCAN 87440 . 87582) (\ISDST? 
-87584 . 88091) (\CHECKDSTCHANGE 88093 . 89006)))))
+  (FILEMAP (NIL (3484 7278 (CHCON 3494 . 4344) (UNPACK 4346 . 5240) (DCHCON 5242 . 6509) (DUNPACK 6511
+ . 7276)) (7279 18794 (UALPHORDER 7289 . 7385) (ALPHORDER 7387 . 9190) (CONCAT 9192 . 9837) (
+CONCATCODES 9839 . 10025) (PACKC 10027 . 12630) (PACK 12632 . 13211) (PACK* 13213 . 14935) (\PACK.ITEM
+ 14937 . 15392) (STRPOS 15394 . 18792)) (18796 19085 (XCL:PACK 18796 . 19085)) (19087 19337 (XCL:PACK*
+ 19087 . 19337)) (20055 22446 (STRPOSL 20065 . 21691) (MAKEBITTABLE 21693 . 22444)) (22608 23085 (
+CASEARRAY 22618 . 22808) (UPPERCASEARRAY 22810 . 23083)) (23407 47009 (FILEPOS 23417 . 33329) (
+FFILEPOS 33331 . 44444) (\SETUP.FFILEPOS 44446 . 47007)) (47797 89044 (DATE 47807 . 47893) (DATEFORMAT
+ 47895 . 47987) (GDATE 47989 . 48100) (IDATE 48102 . 59773) (\IDATESCANTOKEN 59775 . 61054) (
+\IDATE-PARSE-MONTH 61056 . 64752) (\OUTDATE 64754 . 77502) (\OUTDATE-STRING 77504 . 78119) (\RPLRIGHT 
+78121 . 78359) (\UNPACKDATE 78361 . 84152) (\PACKDATE 84154 . 87474) (\DTSCAN 87476 . 87618) (\ISDST? 
+87620 . 88127) (\CHECKDSTCHANGE 88129 . 89042)))))
 STOP
diff --git a/sources/IOCHAR.LCOM b/sources/IOCHAR.LCOM
index 87b89102eed3d48523ad7d1032034107f9baac28..0d56c916941512cb4b7ed2e7bc48c4f05f31d853 100644
GIT binary patch
delta 359
zcmZvYKTpC?6vb0QBI#t};&{@jHPZACwNMtTt<l5?3K|ENCp_qjrH`}^9G%@H9Ua}A
zNcbL3ZhjIs+b%9{H}{_3IXU-zBfV{;*ZaMrW^XK-mSLGN4bN~r+gv|h?>ib4tMzxY
zY|m+XhO_<(w6<p&iYBXP7nkAbP3RB9pb-CKl>5?g!-3o}?2ePaNPgY*EI0p@e5tkF
zt$oy=13D$kSYSosCCxD9DMlxB#*$z#1W6_sg~_CvQ;Lj=N}<kqCa{RfxIkE<K|~a{
z`anN~+o~wrv_LZODavBHB5P0&(CtFO6&KVi2$o^a`m;zN;Q|j7DUIohBm#nCnb9=E
w6B7|)J|-~)o0s|Ns@#i+2uyeto3hfPuuEoo@soVLLu;y>|J?Pr=Z){)FNJ4oPyhe`

delta 366
zcmZXOKTpCy0L4>7BI#t};`qWu6C27E1UgYHBp4&%PYi?0QLeP1y)*3rVRB}ZbaZrc
zBH?>Dx%nmh2p+4h@Auv>@9m(yAGFu$Wz8J;(j*qCg4j;I;gH6DIlQtBl*k`ecdXj}
z%QNau)hZc!x!1q%-j2HNr0e}JpG3K<wTm|NmSx{q`A%~SwnOavQ*$+Pyg2(PymXjP
zR~dsho?yln5zin)hF*W9f(>I!#^;DQ+~+ik!NukpPn}cmH1I>p7i^9o6$z@uf)r>q
zK{JQ|wTfM7Hc-Cv#s=^pBy*HHQjEu2&>&#G%%;dB<#QSf&Y*sznQ6*Us6(4bhLBOh
zpwhJhperd7DkGo9O0ZxOzDQGLK`d0JUIqf?**Y;wx{>eBnWpDIkHcfT_&xXqn&EJ=