Change LAFITEDECLS to LAFITE-DECLS in UNDIGESTIFY (#1746)

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