From 945df5fbe860f8cda07406283f3743ab39982e2c Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Mon, 29 Nov 2021 22:24:29 -0800
Subject: [PATCH] COMPARE:  Use EQUALALL instead of EQUAL

---
 sources/COMPARE      |  25 +++++++++++++------------
 sources/COMPARE.LCOM | Bin 4041 -> 4049 bytes
 2 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/sources/COMPARE b/sources/COMPARE
index f31ee4ba..25fa92cb 100644
--- a/sources/COMPARE
+++ b/sources/COMPARE
@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 5-Nov-2021 20:53:09" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>COMPARE.;2
 12484  
+
(FILECREATED "29-Nov-2021 14:05:45" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>COMPARE.;3
 12592  
 
-      changes to%:  (FNS COMPAREPRINTN)
+      changes to%:  (FNS COMPARE1)
 
-      previous date%: "16-May-90 14:59:25" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>COMPARE.;1)
+      previous date%: " 5-Nov-2021 20:53:09" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>COMPARE.;2)
 
 
 (* ; "
@@ -33,9 +33,10 @@ Copyright (c) 1987, 1990 by Venue & Xerox Corporation.
     (COMPARE1
 X Y])
 
 (COMPARE1

-  [LAMBDA (X Y)                                              (* lmm "29-AUG-78 18:35")
-          
-          (* ;; "returns T if X and Y are similar;  if LOOSEMATCH then sets DIFFERENCES to changes")
+  [LAMBDA (X Y)
                                             (* ; "Edited 29-Nov-2021 13:49 by rmk:")


+                                                             (* lmm "29-AUG-78 18:35")

+
+    (* ;; "returns T if X and Y are similar;  if LOOSEMATCH then sets DIFFERENCES to changes")

 
     (AND [OR (EQ X Y)
              (COND
@@ -49,7 +50,7 @@ Copyright (c) 1987, 1990 by Venue & Xerox Corporation.
                          (PROG NIL
                            LP  (RETURN (COND
                                           ((NLISTP X)
-                                           (OR (EQUAL X Y)
+                                           (OR (EQUALALL X Y)
                                                (COMPAREFAIL
 X Y)))
                                           ((NLISTP Y)
                                            (COMPAREFAIL
 X Y))
@@ -60,7 +61,7 @@ Copyright (c) 1987, 1990 by Venue & Xerox Corporation.
                                              (SETQ Y (CDR Y))
                                              (GO LP]
                     (T (COMPAREFAIL
 X Y]
-                (T (OR (EQUAL X Y)
+                (T (OR (EQUALALL X Y)
                        (COMPAREFAIL
 X Y]
          (OR LOOSEMATCH T])
 
@@ -305,7 +306,7 @@ Copyright (c) 1987, 1990 by Venue & Xerox Corporation.
 )
 (PUTPROPS COMPARE COPYRIGHT ("Venue & Xerox Corporation" 1987 1990))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (847 12109 (COMPARELST 857 . 1119) (COMPARE1 1121 . 2530) (COMPAREPRINT 2532 . 3489) (
-COMPAREPRINT1 3491 . 7755) (COMPARELISTS 7757 . 9044) (COMPAREPRINTN 9046 . 9890) (COMPARENCHARS 9892
- . 10450) (COMPAREFAIL 10452 . 11579) (COMPAREMAX 11581 . 11818) (COUNTDOWN 11820 . 12107)))))
+  (FILEMAP (NIL (844 12217 (COMPARELST 854 . 1116) (COMPARE1 1118 . 2638) (COMPAREPRINT 2640 . 3597) (
+COMPAREPRINT1 3599 . 7863) (COMPARELISTS 7865 . 9152) (COMPAREPRINTN 9154 . 9998) (COMPARENCHARS 10000
+ . 10558) (COMPAREFAIL 10560 . 11687) (COMPAREMAX 11689 . 11926) (COUNTDOWN 11928 . 12215)))))
 STOP
diff --git a/sources/COMPARE.LCOM b/sources/COMPARE.LCOM
index eb07d99f429576eb2245223ffb4c4a8f9bad9db2..dd09f1364b008dbf6f2a2117880e361cad3d6082 100644
GIT binary patch
delta 353
zcmX>pe^GuyxQLOZu3vtcu91O}p@N}_m4T_1slmkTz<Og%1tlYMBspU%V<RgA6D5VD
zqSWO4+=9%U)D#7-)QW<lVpS^zXMf)S#~@cjh0Ht!CAUx?9|dI1dU|?F3Mq*tKpj{N
zH8fDt<kE2S^l^0#a&-)Gbpa|8#c-C1sglCPIy(+y1ujD)Q%j@Cvl*p?3^f%Bic-rm
z^Gl1t=Brvwwq=x<{D{$>(P**~(=3q~21W)Z2geVa%^XsgH!1FSWZtAa`2v#&kGKQ#
zW(fyJE(Rc&{Dw)}=QM+cxe3A_rf{~Kqo<F8iJ5|HV5p;yqmK{Jt;R+mg}$zSA#OhI
R3P#90psXg>=5XdB9smv7TRQ*%

delta 363
zcmca8e^P!zxQK$Ou3vtcu91O}p@NZtm8r3nf#t;Pz<MK11tntxUH{|~sGN}%P}<N!
zNg=5yH90@GATuX5MS&}|qM)c))k?wH-#5T9$Tc9y(=WtNAu~@w$t~2!M*-OcJv}`o
zg_Oh+pf)Tf8<{F;a%s4E`nWm=xjKeOxVk7PVRPGLKSl=)BLyx)BNGb~h2)IHy!6y!
zg_3-r8#LVff>9kZc_X8+sG*szZ(^mcrGbK>iIu6P70@OHuE_z6c8rFTrI=<JL@+Qi
zFgZAW*lgsG!n{dwza#S|d509n1O_1ZFnhlvl(kvdfqAotgX5RUFPOCD&ogM48^A0x
dR4|3J-5foAG<hf6G0U>>YH0Fqj%P070RV4|UNQgx