From ff250018148ec76f8ed9e096c5bcfa61266dddd5 Mon Sep 17 00:00:00 2001
From: rmkaplan <69548581+rmkaplan@users.noreply.github.com>
Date: Mon, 10 Jun 2024 14:55:48 -0700
Subject: [PATCH] Change LAFITEDECLS to LAFITE-DECLS in UNDIGESTIFY (#1746)

---
 lispusers/UNDIGESTIFY      |  24 ++++++++----------------
 lispusers/UNDIGESTIFY.LCOM | Bin 7294 -> 7326 bytes
 2 files changed, 8 insertions(+), 16 deletions(-)

diff --git a/lispusers/UNDIGESTIFY b/lispusers/UNDIGESTIFY
index 1f49658d..466456f9 100644
--- a/lispusers/UNDIGESTIFY
+++ b/lispusers/UNDIGESTIFY
@@ -1,19 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "24-Sep-2023 14:26:57" {WMEDLEY}<lispusers>UNDIGESTIFY.;3
 17040  
+
(FILECREATED " 3-Jun-2024 23:02:57" {WMEDLEY}<lispusers>UNDIGESTIFY.;5
 16776  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (VARS UNDIGESTIFYCOMS)
-                  (FNS OPEN-SPACE-IN-FILE)
 
-      :PREVIOUS-DATE "29-Jul-87 08:47:18" {WMEDLEY}<lispusers>UNDIGESTIFY.;1)
+      :PREVIOUS-DATE " 3-Jun-2024 23:01:00" {WMEDLEY}<lispusers>UNDIGESTIFY.;4)
 
 
-(* ; "
-Copyright (c) 1986-1987 by Xerox Corporation.
-")
-
 (PRETTYCOMPRINT UNDIGESTIFYCOMS)
 
 (RPAQQ UNDIGESTIFYCOMS

@@ -22,8 +17,7 @@ Copyright (c) 1986-1987 by Xerox Corporation.
         (FNS INSTALL-UNDIGESTIFY LAFITE-DISPLAY LAFITE-TRUNCATE-FILE LAFITE-UNDIGESTIFY MOVE-TO-EOL 
              OPEN-SPACE-IN-FILE PARSE-AND-MAYBE-MERGE-HEADER SKIP-EOLS BACKUP-PTR 
              TEDIT.FIND.NOT.CASELESS)
-        (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (FROM library/LAFITE)
-                                                LAFITEDECLS))
+        (DECLARE%: EVAL@COMPILE DONTCOPY (FILES LAFITE-DECLS))
         (P (INSTALL-UNDIGESTIFY))))
 
 (RPAQ? *DELETE-DIGEST-FLAG*
 NIL)
@@ -312,15 +306,13 @@ Copyright (c) 1986-1987 by Xerox Corporation.
 )
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 
-(FILESLOAD (FROM
 library/LAFITE)
-       LAFITEDECLS)
+(FILESLOAD LAFITE-DECLS)
 )
 
 (INSTALL-UNDIGESTIFY
)
-(PUTPROPS UNDIGESTIFY COPYRIGHT ("Xerox Corporation" 1986 1987))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1183 16831 (INSTALL-UNDIGESTIFY 1193 . 3206) (LAFITE-DISPLAY 3208 . 3507) (
-LAFITE-TRUNCATE-FILE 3509 . 3920) (LAFITE-UNDIGESTIFY 3922 . 13578) (MOVE-TO-EOL 13580 . 14040) (
-OPEN-SPACE-IN-FILE 14042 . 14762) (PARSE-AND-MAYBE-MERGE-HEADER 14764 . 15984) (SKIP-EOLS 15986 . 
-16297) (BACKUP-PTR 16299 . 16461) (TEDIT.FIND.NOT.CASELESS 16463 . 16829)))))
+  (FILEMAP (NIL (1016 16664 (INSTALL-UNDIGESTIFY 1026 . 3039) (LAFITE-DISPLAY 3041 . 3340) (
+LAFITE-TRUNCATE-FILE 3342 . 3753) (LAFITE-UNDIGESTIFY 3755 . 13411) (MOVE-TO-EOL 13413 . 13873) (
+OPEN-SPACE-IN-FILE 13875 . 14595) (PARSE-AND-MAYBE-MERGE-HEADER 14597 . 15817) (SKIP-EOLS 15819 . 
+16130) (BACKUP-PTR 16132 . 16294) (TEDIT.FIND.NOT.CASELESS 16296 . 16662)))))
 STOP
diff --git a/lispusers/UNDIGESTIFY.LCOM b/lispusers/UNDIGESTIFY.LCOM
index c9b599291a5c272affe17264dedccc9ae373f33c..6043526498b46c607395f80296de9d7ceee914a2 100644
GIT binary patch
delta 524
zcmZvZKWp1S7{-waj=4f><2seo<&7MSRFJVGOL7E-D%PpF<RS_Ei76dQf(tDP_Ru(x
zsb3-HpwOjDmSonD?~x^QrVRNGrsw>JWO=#geeSv6-M!Q9zm=nY1q^k4JXH0z-T~ck
z+WO>&RW}ttl5VS;+lRM~w&Iw!W9pN$53i}~lN75SNh0cgVV}wi0%Cs_!-ZsnL@Ewx
z0;_IsBa751jRCQ#DE5C2LGm+7;pw5RR!f4x_Wt()yacl)1<5|4xEEtL#U4n{?#igp
zoHs$UY};aog1+oTG2S9!mZ%<&JWps&yUjwOA$0Or1$pirl64C<iRV!a7EtV`oT(t@
zmTT-=ak$8RledG<=^AL--RfpbepUQc5>Wp2&4Iw*e_kH*x>jlM)?TGi;Nqz2&W!3u
zUdwN<MI?72A&wK{1gBZhCxLehtJZc)C?Ir3o?KS*zqOr06UiL|(h(R2;Lzuz0UXC+
x%oAW~Af+P*`2Vma@%KZPoruAsn2N^_B0sG&p>jVs+@p!2fQ;DA`-{05_&;#4e_8+l

delta 625
zcmZutO^ee|6eUHbLoi6CL#H#K*9gOVLTdBTBn>K*<fVO*CLteFyO>2~3Kq+xcBZ0;
z3?c}k3x_P+`6se)CxXAgl}mqs;9d~%)sY!dH|O1Z&pr2^``)yFn6CyEMU&$3Oj4SP
z3bJM?`q3S|u43RtMLlH{)sj_9GmhR~ISfMLOL5q-i9~(Lr5=IF9_x2g&x1cjjYdO+
z-O<5#7ydJ>rHPnFOSv79PC^{k^tTtQWr*--&?k;ZhL5jJC;PKS{*^mlW?qe^*38Q#
z<py&782&Yd!3ra?O@lO+95$bgZ%a29Q^_=-X|h`^*%X1#KXaEjxp-1SXKDgcbm&uu
zZ37)V;wD%?SjgY6Jl$Yii<SIt(gRuk9sQz<o$~%FClnvg-RC$V?^PBI-&HO%+$q<J
zZ<Vtp7Oqq~OR{>M;j`+Obpe?WQ_G4-Op??eP~SOT_I&N`s^C*^xw-hhwkT~0NK+xn
zKvjVRF8g92Q4~b19dsGQB(p$dE?=)7o(S^`b^kQEw^_?y)L)(yii;aLw}sp&=mS5U
z+@6o-53hP1mnH<m@#_%Vi!lb2f7tv)P?#oR6ofIPzC*htPN+KsI|zpn?e-Et;;r#K
bdjNJepJnsW!6e%gL2jG+5)6!ab`Sp(E|;Dt