From 5967452c637861fda6a0e24db32ec387451cc085 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Tue, 17 Dec 2024 21:05:49 -0800
Subject: [PATCH] LCOMS needing to be recompiled for \CHECKEOLC macro and
 Create STREAM

(plus a new (unchanged) version of IOCHAR needed to get the cleanup to work for the recompile)
---
 sources/ATERM.LCOM  | Bin 16277 -> 16299 bytes
 sources/IOCHAR      |  34 +++++++++++++++-------------------
 sources/IOCHAR.LCOM | Bin 24426 -> 23950 bytes
 sources/LLREAD.LCOM | Bin 22558 -> 22612 bytes
 4 files changed, 15 insertions(+), 19 deletions(-)

diff --git a/sources/ATERM.LCOM b/sources/ATERM.LCOM
index ca077bac98cc7aa5c121e5e253ed48ddcaeabe11..c4e8dec5e5f7974894750a04d7bbca6ec44e9e56 100644
GIT binary patch
delta 436
zcmZvY!AiqG5QZt@rH|lgj1<~KL%W+a=_-Y_*+?MChGe5H%|+520@0SXf+CWmSE2Y0
zf;YYR7UE6c#w|jt(%a0>%>REgkL7duFer_tm8DJ8LK?IUqIXHlP@t})lZ$CyWMi0I
zf&#Z^9<y9FygQmtu4ZXA?@_@*Pd(HdptOHmXasi&GL<UKvb9HcJuUJyUlcbr0*T{0
z;<z8UmJ<c8Nr#Zj2s?IN39x}tRaJrU`9dOWNx=A}^0{BRUw$bcyT#6Xud;kPcq_XQ
ziI7n*0Nl|wwT>W(n4tYWiz2|-goF*`0X}tY9(q(Xs&#C3AX#HcDr~g=3A)_-Gocy4
zV-dtcdSW2fh}krDWhb9$TkI6j%Hsz~^|?@az<fZR_7-u)$auuUkcWUY42jPjkDf3d
MM1T-_CAHDsH+)!ky8r+H

delta 398
zcmZvWK}y3w7=`J!8+R^T{f>z3q9HSrNobJ5*i59DWQNQ{TAEF@1q-Q>B7%t2BM8M)
zxGcE#3hq3D$1uf3Rl57%<Gt^HuZx$(bH7bmNqN^IHlaXl-@!g(2pZ_JoZU=|$r#FO
zK=2Ugv&ZABayID{qxt;4Gc7vHQEhjCn@~p>Zy2`cQ_r^@1Q%;WaWsZ$MF_Jfg5NpI
zvJi|%x7CMjeRs7}``oWREx*vm^8Mg#K|q^S@K^z5-sW}~<XRZs?Fy}dQVhB18<8eF
z3S}B|)2uhB*M|J0tD>N%Rm2BCUHZ>pRqs#2u|Z}=Wd<m5!4HNa<XKcH>_Hfab0BNR
q&m=36#*#`TK$x?|TyGRoi!_xf5b8pn$X?7(g;W{{W-E0#-1`P_CTs`*

diff --git a/sources/IOCHAR b/sources/IOCHAR
index 6e50da45..e7f2819c 100644
--- a/sources/IOCHAR
+++ b/sources/IOCHAR
@@ -1,15 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "11-Sep-2022 20:07:43" {DSK}<home>larry>medley>sources>IOCHAR.;2
 100127 
+
(FILECREATED "17-Dec-2024 20:36:26" {WMEDLEY}<sources>IOCHAR.;45
 99915  
 
-      :CHANGES-TO (VARS IOCHARCOMS)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "24-Jul-2022 14:56:20" {DSK}<home>larry>medley>sources>IOCHAR.;1)
+      :CHANGES-TO (FNS \SLOWFILEPOS)
 
+      :PREVIOUS-DATE "11-Sep-2022 20:07:43" {WMEDLEY}<sources>IOCHAR.;44)
 
-(* ; "
-Copyright (c) 1981-1988, 1990-1991, 2018, 2020 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT IOCHARCOMS)
 
@@ -1567,18 +1565,16 @@ DONTCOPY
 
 (ADDTOVAR LAMA
 PACK* CONCAT)
 )
-(PUTPROPS IOCHAR COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 
-1991 2018 2020))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3456 7250 (CHCON 3466 . 4316) (UNPACK 4318 . 5212) (DCHCON 5214 . 6481) (DUNPACK 6483
- . 7248)) (7251 18766 (UALPHORDER 7261 . 7357) (ALPHORDER 7359 . 9162) (CONCAT 9164 . 9809) (
-CONCATCODES 9811 . 9997) (PACKC 9999 . 12602) (PACK 12604 . 13183) (PACK* 13185 . 14907) (\PACK.ITEM 
-14909 . 15364) (STRPOS 15366 . 18764)) (18768 19057 (XCL:PACK 18768 . 19057)) (19059 19309 (XCL:PACK* 
-19059 . 19309)) (20016 22407 (STRPOSL 20026 . 21652) (MAKEBITTABLE 21654 . 22405)) (22569 23046 (
-CASEARRAY 22579 . 22769) (UPPERCASEARRAY 22771 . 23044)) (23368 56745 (FILEPOS 23378 . 32619) (
-FFILEPOS 32621 . 44842) (\SETUP.FFILEPOS 44844 . 48627) (\SLOWFILEPOS 48629 . 56743)) (57533 98780 (
-DATE 57543 . 57629) (DATEFORMAT 57631 . 57723) (GDATE 57725 . 57836) (IDATE 57838 . 69509) (
-\IDATESCANTOKEN 69511 . 70790) (\IDATE-PARSE-MONTH 70792 . 74488) (\OUTDATE 74490 . 87238) (
-\OUTDATE-STRING 87240 . 87855) (\RPLRIGHT 87857 . 88095) (\UNPACKDATE 88097 . 93888) (\PACKDATE 93890
- . 97210) (\DTSCAN 97212 . 97354) (\ISDST? 97356 . 97863) (\CHECKDSTCHANGE 97865 . 98778)))))
+  (FILEMAP (NIL (3363 7157 (CHCON 3373 . 4223) (UNPACK 4225 . 5119) (DCHCON 5121 . 6388) (DUNPACK 6390
+ . 7155)) (7158 18673 (UALPHORDER 7168 . 7264) (ALPHORDER 7266 . 9069) (CONCAT 9071 . 9716) (
+CONCATCODES 9718 . 9904) (PACKC 9906 . 12509) (PACK 12511 . 13090) (PACK* 13092 . 14814) (\PACK.ITEM 
+14816 . 15271) (STRPOS 15273 . 18671)) (18675 18964 (XCL:PACK 18675 . 18964)) (18966 19216 (XCL:PACK* 
+18966 . 19216)) (19923 22314 (STRPOSL 19933 . 21559) (MAKEBITTABLE 21561 . 22312)) (22476 22953 (
+CASEARRAY 22486 . 22676) (UPPERCASEARRAY 22678 . 22951)) (23275 56652 (FILEPOS 23285 . 32526) (
+FFILEPOS 32528 . 44749) (\SETUP.FFILEPOS 44751 . 48534) (\SLOWFILEPOS 48536 . 56650)) (57440 98687 (
+DATE 57450 . 57536) (DATEFORMAT 57538 . 57630) (GDATE 57632 . 57743) (IDATE 57745 . 69416) (
+\IDATESCANTOKEN 69418 . 70697) (\IDATE-PARSE-MONTH 70699 . 74395) (\OUTDATE 74397 . 87145) (
+\OUTDATE-STRING 87147 . 87762) (\RPLRIGHT 87764 . 88002) (\UNPACKDATE 88004 . 93795) (\PACKDATE 93797
+ . 97117) (\DTSCAN 97119 . 97261) (\ISDST? 97263 . 97770) (\CHECKDSTCHANGE 97772 . 98685)))))
 STOP
diff --git a/sources/IOCHAR.LCOM b/sources/IOCHAR.LCOM
index a2701fdb6cefff764316539b6d96cc8a6446cdd8..d222edf1824fb40177bbd94e9a869befe3210533 100644
GIT binary patch
delta 548
zcmZ{gPfNo<5XBP}m3Z+FA{L8dR7}J`n_6oZ1Z%RjD`_?++tx~ZYKs;vig;4cgLkpy
zYj`qv5<~<qegV&3J&AY0q*_qaJ?y}nAMee~%PoI?!(UW-)d-3$Aa$X+qs+!-5X5Lg
z(Q6e&ji~bwG*uLhi6Ck;YY_u0Y5%K=&8G?U7nu-cK?)Gf#wmt%_yx7Hj>B3UlF4K=
z4hZXnDJw-dXzT#eGAVNvI|`#9rA-Hfl4H<9U}#ZC24vYdPiW3jbl=?#^P|m^F>lGf
z>2Y_vXS{d*VcfOL!>&*gz59uA-kmGmdCwvp^wkl!vwY@7;%{T8d;5p=M*XPPa!FG=
zn___UML{w^QekRJV;d0lD>m~G@oOPN4J^yRO?Gfx=W@ru0KdigFB2+OuZF7i*UMP{
zbze&&+o4cDXA(n@)J0g&QHCK2!L*+_{(0n6L9%kpvZ)2qC-JS{mcH(7BWf{{C7ak*
p4B{{uB+Wo6eT@>cjsCHYj|r=owTYkp;nr0D1$d9;X}&Ai-~-5bk>>ya

delta 1114
zcmcgs-)hrf6sIWu>7}5c40Z@?B$bvXZMQacg^;FOT$W@>Iy>1-mVT~bY0@RBTN$%&
zAd_DB8cHt}pF@2FFGSzK^L3pL6tBdaU(T1D^E>Bv&iV54UFOS&%(-`quZX3JC{$h@
z=Er3YvJAhPZxSyr6ooSIWwBHfg(?Fv@uL2~4@eit$sq7OKMh7pBJA0k@ua0{ifP#3
zhrqPjng&-n3WWj#T{p$ZKarP843}jogM7nMBu8mZ&NBDMO?&g~Q7`I~M&QQrsL?0g
zfQ%YRG>koxG*m<0kgP&o0KQn{g;fyotgkC}-Z6mPkt{n47e2DFWpf~!ma?N7Z9Ct@
z6u=1O{NrIjMIu94tgMJak%7~nSr`AFmY*Kp{<=6l=N2>5=%I1vI%S=_Y22M2H9jpo
zU@@EH>|$!uQg!D_CDXT=_czC^tcgvf)z+bdmMO`b!0OVLV#BgwI;x>d8nE=Ww5~vI
zZsa%)*c{aBb?oDXchZZ7K^OK3xDfbB3ehu2M*aOLNWcxdkfgC69wY?-2|{u_{{~|}
z0WT)Ak>JSE9)Sb@ISFCldWY@-fnz`IA>{z0QwZHY0dh2S14yHpvloRP28V9yM<LBg
z8Rm~!VFh5aSS)Ho^@^pVY3Q=#XsYdiE{#zs2Xk2*PXD)d<bYkal$rC)_uuHgls(2(
zoa^?6aZFI;e^O4xaNOkE+Pz80F_Z0U+~i~K_2m27!sPSXizbUpK^I_4eX3YMcdBJr
zTat6xjSe<-^NE2AOdDzgyWOUTUydAfretp^bIO`+$FvO7p6?#WhPi90>l?_$?2vFs
zU>Q0jj!r<1;z1P8X2}3wtMU}^R@AB`3iuPKRVx%$D6CSbBGihIMdU#!@>K+(h?CS+
GE&Bs)97(4D

diff --git a/sources/LLREAD.LCOM b/sources/LLREAD.LCOM
index 804b126d8f2e222252aab7327f108cacba97b909..2dbef669923a6caa714bd03629256e163d1b7ecf 100644
GIT binary patch
delta 592
zcmbQYf$_=)#tA9x=2j+VR>p=Kvz53RxhD5<YqD@@XmV}d&7CP^6dV%d>gcQBreJ8K
zpao>Q=mv)d1O&MT2Wx=@jUj>|j!r(VTAB(>rQFPuz2uS^pG;mSr(N%z<Mv_EMuscl
zQfv%BaEeJF>%*jtjHV8pAZ~O@4i|{438FVe?f2Nq=5UHfFeQii!-|x2kctnR4EKkN
zow8#D3QY?a%RX<%xIc$?w-ZEi3v<&(hF9J>ydS`<2U!~#?xbXY*nAJFd2`g&{W)A4
zE~fxhY&r`!KI_ABsDk-$!#Ax77t7kP7-aQk$&?(X51WOdYTz#E-0zT);=u!Q*2e!0
zlRM<S7_%l{me*#KnEYSfL+kGs2e2PcazQAYc#-`MDcSxae2X^zy}93?Z>obo-&xcB
z;S!Sz71Zm^jEoeV{r#LBLwr1gLln#m4HRO6eI0{6fZ^@w=dNI8V5H#a<KyoP<(mTe
zC<;t0O;8k=m{}?Wd-#X?xcG%A7+V63b8>X{c6Ro6aaAxjHBpFh_HcFfcJ=ph)^iT>
znJlgt>uqMN;O62QreJDnrT~p*V@seZ-kt#p#wLaej((8}#>U19K=p14MwaG4hJulq
XsRD=x6b7p^G5|WmFLLvK#dtFSoanjx

delta 503
zcmY+8&r9P#6vvw=ipCTbam7P@^`cdgWYW|hr%tD-sYx42Vr9`qmL1sLnxo)J3i}5v
z;_O~Lc<>^4u{C;8Fn7V5e@HG~)u~m%xy<{%_xXO`duR&BP2qs{=9U$0SwXFxNlB2|
zUn$cqPiN%tM*2O>4yT4kR0K1wfr~ya*v3o-L`xD`E%igVX4k3NMmi|PC#}TU##m2+
zzdLcT9v`*@Dc{$Yn>6U>GV$F0FXkfiswaOpFhqCa@H-8<;&7AxY;$qwz8B>v=x?sj
zK#ni)2Vajv^&OagHGZLi7@t$6V?TWx9!2?I)EsC>{)qzlrqCH*?pr+Xa<AUpWw#Tn
z!avprv%)CT!4#iTtO4W6r>@9J{?9wfdp+71Wv4LJ&=(aTPL*KaE_*)cxkcFWD%dkU
z-z`^HctZhf+YWitS*||;Ssi@_&;od-vu+owK4@7USHQ#~#3>qpmJn<a(;$}N*kqo#
zHmjt+SxALa(Wrs0W`VCUa0N7-r&#4R&=jpxAbu#Weg(9EfE!DI_+sJ$QkOb?RROyc
IKBl*GFQ)yM*8l(j