From 824e0f20b2c86ea05791808186b53964a0ae5ede Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Thu, 25 Nov 2021 08:08:35 -0800
Subject: [PATCH] COMPARE: better alignment in header printing

---
 sources/COMPARE      |  28 +++++++++++++++++-----------
 sources/COMPARE.LCOM | Bin 3930 -> 4041 bytes
 2 files changed, 17 insertions(+), 11 deletions(-)

diff --git a/sources/COMPARE b/sources/COMPARE
index 028bad44..f31ee4ba 100644
--- a/sources/COMPARE
+++ b/sources/COMPARE
@@ -1,13 +1,15 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED "16-May-90 14:59:25" {DSK}<usr>local>lde>lispcore>sources>COMPARE.;2
 12260  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-      changes to%:  (VARS COMPARECOMS)
+
(FILECREATED " 5-Nov-2021 20:53:09" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>COMPARE.;2
 12484  
 
-      previous date%: "20-Jan-87 12:44:37" {DSK}<usr>local>lde>lispcore>sources>COMPARE.;1)
+      changes to%:  (FNS COMPAREPRINTN)
+
+      previous date%: "16-May-90 14:59:25" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>COMPARE.;1)
 
 
 (* ; "
-Copyright (c) 1987, 1990 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1987, 1990 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT COMPARECOMS)
@@ -214,7 +216,11 @@ Copyright (c) 1987, 1990 by Venue & Xerox Corporation.  All rights reserved.
           (TERPRI STREAM])
 
 (COMPAREPRINTN

-  [LAMBDA (N SPACE FLG STREAM)                               (* ; "Edited 29-Dec-86 11:56 by jds")
+  [LAMBDA (N SPACE FLG STREAM)
                              (* ; "Edited  5-Nov-2021 20:53 by rmk:")


+                                                             (* ; "Edited 29-Dec-86 11:56 by jds")

+
+    (* ;; "RMK:  Added STREAM to POSITION and LINELENGTH")

+
     [COND
        ((NEQ N 0)
         (COND
@@ -223,9 +229,9 @@ Copyright (c) 1987, 1990 by Venue & Xerox Corporation.  All rights reserved.
         (SELECTQ N
             (1 (PRIN1 '& STREAM))
             (PROGN (COND
-                      ((NOT (ILESSP (IPLUS (POSITION)
+                      ((NOT (ILESSP (IPLUS (POSITION STREAM)
                                            7)
-                                   (LINELENGTH)))
+                                   (LINELENGTH NIL STREAM)))
                        (TERPRI STREAM)))
                    (PRIN1 '- STREAM)
                    (PRIN2 N STREAM)
@@ -299,7 +305,7 @@ Copyright (c) 1987, 1990 by Venue & Xerox Corporation.  All rights reserved.
 )
 (PUTPROPS COMPARE COPYRIGHT ("Venue & Xerox Corporation" 1987 1990))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (823 11885 (COMPARELST 833 . 1095) (COMPARE1 1097 . 2506) (COMPAREPRINT 2508 . 3465) (
-COMPAREPRINT1 3467 . 7731) (COMPARELISTS 7733 . 9020) (COMPAREPRINTN 9022 . 9666) (COMPARENCHARS 9668
- . 10226) (COMPAREFAIL 10228 . 11355) (COMPAREMAX 11357 . 11594) (COUNTDOWN 11596 . 11883)))))
+  (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)))))
 STOP
diff --git a/sources/COMPARE.LCOM b/sources/COMPARE.LCOM
index e18483e03c32b43d24761447b92e22f1e5c8fa27..eb07d99f429576eb2245223ffb4c4a8f9bad9db2 100644
GIT binary patch
delta 861
zcmbtSzi-n}5Kc-E<UxYEQK>2?OGHj3NB)@~E;1O$ZmqhuiIV||p{`>!fh3ONv?4+%
zBQx@bx-&3#VPj&b)PWHp{sx3t5fYa)R8;EL<$HJc?%jRgz5BLya<4$wb;GoE#xO0N
zF>S+vHCNTP)lD5J({Abw%k*68?efa>vFho-u|-1YS+ds9)uvtt3M9sk4jG>1IpA4Y
z5@fbU0Zj!_f7tDXZHNY#L|)as?bi=laX5;V7yhv44-_j3{GQSe+r4lilq97;Va^;S
zjt)ja7%Q5y<Ejn4w80mrKnX141mi^~UdCozm4dxdc;1SHFNdS}z6^_pZUZ&g&_xDD
z%d+7A3Z+tsg0??KhL=?4C8~HqDE7Zx=@o?m;drqsLeTLC`(X^@2<g*??OoJ>`iG<N
zup1r3bJCbZab;%5pD;BRI8l~rGIGA^oVg-djL!0!AlIveHh~Arags0Ty);RLrIR!{
z{<CzH#^YV)^EEtnZ*HKM9Ayh+Kb1;l9zFkg+)7TfcXN`K#Xzce<7-DF$&aiu<yaOx
z+%VmPY8ht#!$C!y8$6W%MI;e$_3#!%2`t=COSd<hTOdf_I-c1y9UC}dQ3(I3$^rxB
z8SoV-VBlPat!=3dPi0w_o5?|%ABchYi+r5fw|*nOzx@m`lM4_#b3DyGMZ1vSMSPR5
nAb!fPB7V=WtP;B6s!txm`eIPb8Mk%dizHdTQ@>7Z(;|NXEH~{V

delta 748
zcmaJ<O=}ZT6ire?L+VQqRIrqK8L%eB3G?2}WRi)*j>*K1olN3P5QHvFlOatrW<sVB
zib&LdAVJ-Tzd`86ohui`AE5Xvx^m;jn=b?rH|M^4-{stM5BKc)kIhu7tXB+6=PQP(
z^M+Na!KSTi<%V|G)PXashHjgNQ|De^x-w3a)U>UH4Gp~v9FzI`%|4&c0i~)$RVr|h
z;#&TbLDzHJ;P-)pXJu#a`E9Qo3|jusEe8H**m8qnsaCCPww@`_G!RY{_-b>==Vf4m
zDvGKgad0r@@ou)Ei!@cY?YX@Zpc1c*I@88XCc{Cyd5m+oKUFHLOi`sA_qSA<#R(^T
zUO);}&Z|sbN*e{kqUX1oUeRm2#ih{6%kbqfWh^T|>#*7HxB(pdH&jTGhnnrcLOup3
z4TGWkwCj(8nH=olm@xAtrvPQDB&nkE|6%`dg``O-G55%H8laYQWFkh6!esIxauz11
zhb!;H7^2ZHD;U1U3Ybk+<6F1dp-||;&e8d)t-b4&;+TbAbq^w+cY5b<JJakVi%o;K
z`aL$;j~B;z1)RE8(jCZ&P`3?>f<k8x2H9mrrhtclzaTL%@m@^by4TnRQG$BSF&akA
z0xB+u(0fGz9^@%71-7t&>&&;YO1o&FCI|wZZ?(QwLFvu4Pl)Rme<5Ba`-lN)A%2@-
wA@K;`ZxW9Ye<l>fOmYKpFL`Z)r0lx(;0|mr2Jmxf+rZLf@*-J|63Z~jZ{mf<*Z=?k