From db2d30eeae3e2cc967034582c7b7929b0e6afed4 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Tue, 17 Dec 2024 21:04:14 -0800
Subject: [PATCH] COMAPARETEXT:  was trying to set EOL to ANY on a Tedit stream

---
 lispusers/COMPARETEXT.LCOM | Bin 11404 -> 11355 bytes
 lispusers/comparetext      |  20 ++++++++++----------
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/lispusers/COMPARETEXT.LCOM b/lispusers/COMPARETEXT.LCOM
index 9907241b91729e080b6b41ffd87909b32706ca6a..ef58cdfff31aa6b0b7f2f8eb965a223ea475a115 100644
GIT binary patch
delta 258
zcmeB)yd5ziLfBl_B{f;s$iT=%!N|bM#N5iraALNpwuz<!my#i>q_L5ep|O%eQc-Gh
zer`c#PHKumYDGcO#IrhqNDB4z^pq61QW8sm(%4KeSJLFtaP#zWbq;cM3~_bAPy}&9
zwJN)bf{BHxh4JJv#yAe3+l&o>=1#0t-OR}3EWo&Iva3+^<c&gsYR0Atp1#ihz5$Lw
xu6iDh!5#{RhGq)Et|1^x0z!fm3=K>b+$UQIyKx#ADEPSgxrcaco+|uZ0s!sDLeT&K

delta 275
zcmcZ|(Gxi#V)7A2(TTany2hFcTuO!}x?YKSx<&>@CJF`yRz@aPMy5&%Nkys2`MCv|
zIjJcM$r*`x>8TS>>sTWx)zi~cQs7ESECDLOVurDSk|vjio2QSfbC9cJh^x!wgNzar
zYn9oJ6-+EljV&jaFvf8h8d{l{08IgkGa7CF$LJ!!xP7v-P_%$gIs*`Z32qQ;@?4=H
zGgBi4PhV$$-vGxTS3M8MU=IaDV`GJ2*AS2`0U<#OhDJsT?hvl0pPRpep@ES?@MKY8
iH*rIA1s_*G_Ye;SOLGNBzeoj3BL!D~pUo-4-z5OLpGMpO

diff --git a/lispusers/comparetext b/lispusers/comparetext
index da3fbbe3..e54e6e25 100644
--- a/lispusers/comparetext
+++ b/lispusers/comparetext
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "14-Jan-2024 13:20:30" {WMEDLEY}<lispusers>COMPARETEXT.;133
 48539  
+
(FILECREATED "17-Dec-2024 20:47:21" {WMEDLEY}<lispusers>COMPARETEXT.;134
 48583  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS IMCOMPARE.COLLECT.HASH.CHUNKS)
 
-      :PREVIOUS-DATE "14-Jan-2024 13:11:44" {WMEDLEY}<lispusers>COMPARETEXT.;132)
+      :PREVIOUS-DATE "14-Jan-2024 13:20:30" {WMEDLEY}<lispusers>COMPARETEXT.;133)
 
 
 (PRETTYCOMPRINT COMPARETEXTCOMS)
@@ -291,7 +291,8 @@
                 TITLE TEXTWIDTH TEXTHEIGHT])
 
 (IMCOMPARE.COLLECT.HASH.CHUNKS

-  [LAMBDA (CHUNK HASH.TYPE)
                                  (* ; "Edited 14-Jan-2024 13:20 by rmk")


+  [LAMBDA (CHUNK HASH.TYPE)
                                  (* ; "Edited 17-Dec-2024 20:46 by rmk")


+                                                             (* ; "Edited 14-Jan-2024 13:20 by rmk")


                                                              (* ; "Edited 18-Oct-2023 17:45 by rmk")


                                                              (* ; "Edited 20-Jan-2022 23:09 by rmk")


                                                              (* ; "Edited 24-Dec-2021 22:30 by rmk")


@@ -315,7 +316,6 @@
                                                   (OPENTEXTSTREAM STREAM NIL NIL NIL
                                                          `(OBJECTBYTE ,(CHARCODE *
]
                                              '(PROGN (CLOSEF? OLDVALUE])
-                                  (SETFILEINFO STREAM 'EOL 'ANY)
                                   (CL:UNLESS (fetch
 (IMCOMPARE.CHUNK CHUNKLENGTH) of
 CHUNK)
 
                                       (* ;; 
@@ -780,12 +780,12 @@
        GRAPHER)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1234 40907 (COMPARETEXT 1244 . 2884) (COMPARETEXT.WINDOW 2886 . 6684) (
+  (FILEMAP (NIL (1234 40951 (COMPARETEXT 1244 . 2884) (COMPARETEXT.WINDOW 2886 . 6684) (
 COMPARETEXT.TSTREAM 6686 . 9907) (COMPARETEXT.SETSEL 9909 . 10814) (CHUNKNODELABEL 10816 . 11937) (
 IMCOMPARE.BOXNODE 11939 . 12915) (IMCOMPARE.CHUNKS 12917 . 17525) (IMCOMPARE.COLLECT.HASH.CHUNKS 17527
- . 20676) (IMCOMPARE.DISPLAYGRAPH 20678 . 28757) (IMCOMPARE.HASH 28759 . 33117) (
-IMCOMPARE.MERGE.CONNECTED.CHUNKS 33119 . 36615) (IMCOMPARE.MERGE.UNCONNECTED.CHUNKS 36617 . 38572) (
-IMCOMPARE.SHOW.DIST 38574 . 39020) (IMCOMPARE.UPDATE.SYMBOL.TABLE 39022 . 40905)) (40908 47392 (
-IMCOMPARE.LEFTBUTTONFN 40918 . 43822) (IMCOMPARE.MIDDLEBUTTONFN 43824 . 46940) (IMCOMPARE.COPYBUTTONFN
- 46942 . 47390)) (47445 48136 (TAIL1 47455 . 47809) (TAIL2 47811 . 48134)))))
+ . 20720) (IMCOMPARE.DISPLAYGRAPH 20722 . 28801) (IMCOMPARE.HASH 28803 . 33161) (
+IMCOMPARE.MERGE.CONNECTED.CHUNKS 33163 . 36659) (IMCOMPARE.MERGE.UNCONNECTED.CHUNKS 36661 . 38616) (
+IMCOMPARE.SHOW.DIST 38618 . 39064) (IMCOMPARE.UPDATE.SYMBOL.TABLE 39066 . 40949)) (40952 47436 (
+IMCOMPARE.LEFTBUTTONFN 40962 . 43866) (IMCOMPARE.MIDDLEBUTTONFN 43868 . 46984) (IMCOMPARE.COPYBUTTONFN
+ 46986 . 47434)) (47489 48180 (TAIL1 47499 . 47853) (TAIL2 47855 . 48178)))))
 STOP