Rmk158 Remake files to convert the 247Q package-delimiter in DEFINE-FILE-INFO to 30Q (#2506)

* Remake files to convert the 247Q package-delimiter in DEFINE-FILE-INFO expressions to 30Q

* Remake TRANSOR after removing HIST command

* Remake TRANSOR-LOADTRAN after changing the filecoms variable

lispusers/LAMBDATRAN

@@ -1,41 +1,38 @@
-(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
-
(FILECREATED "19-Feb-87 10:40:43" {QV}<LFG>PARSER>NEXT>LAMBDATRAN.;2
 9556   
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-      changes to%:  (FNS FNTYP1 LTDWIMUSERFN LTSTKNAME NARGS)
+
(FILECREATED "18-Feb-2026 16:30:17" {WMEDLEY}<lispusers>LAMBDATRAN.;2
 9157   
 
-      previous date%: "19-Feb-87 09:56:18" {QV}<LFG>PARSER>NEXT>LAMBDATRAN.;1)
+      :EDIT-BY rmk
 
+      :PREVIOUS-DATE "19-Feb-87 10:40:43" {WMEDLEY}<lispusers>LAMBDATRAN.;1)
 
-(* "
-Copyright (c) 1984, 1987 by Xerox Corporation.  All rights reserved.
-")
 
 (PRETTYCOMPRINT LAMBDATRANCOMS)
 
-(RPAQQ LAMBDATRANCOMS
 [(* Translation machinery for new LAMBDA words)
-                       (LOCALVARS . T)
-                       [DECLARE%: FIRST (P (VIRGINFN 'ARGLIST T)
-                                           (MOVD? 'ARGLIST 'OLDARGLIST)
-                                           (VIRGINFN 'NARGS T)
-                                           (MOVD? 'NARGS 'OLDNARGS)
-                                           (VIRGINFN 'ARGTYPE T)
-                                           (MOVD? 'ARGTYPE 'OLDARGTYPE)
-                                           (MOVD? 'NILL 'LTDWIMUSERFN]
-                       (FNS ARGLIST ARGTYPE FNTYP1 LTDWIMUSERFN LTSTKNAME NARGS)
-                       (ADDVARS (DWIMUSERFORMS (LTDWIMUSERFN)))
-                       (PROP VARTYPE LAMBDATRANFNS)
-                       (ALISTS (LAMBDATRANFNS))
-                       (PROP MACRO LTSTKNAME)
-                       (P (PUTHASH 'LTSTKNAME '(NIL) MSTEMPLATES))
-                       (P (RELINK 'WORLD))
-                       (DECLARE%: EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T))
-                              (GLOBALVARS CLISPARRAY COMMENTFLG LAMBDASPLST LAMBDATRANFNS BOUNDPDUMMY
-                                     ))
-                       (DECLARE%: DONTCOPY (RECORDS LAMBDAWORD))
-                       (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
-                              (ADDVARS (NLAMA)
-                                     (NLAML LTSTKNAME)
-                                     (LAMA])
+(RPAQQ LAMBDATRANCOMS

+       [(* Translation machinery for new LAMBDA words)
+        (LOCALVARS . T)
+        [DECLARE%: FIRST (P (VIRGINFN 'ARGLIST T)
+                            (MOVD? 'ARGLIST 'OLDARGLIST)
+                            (VIRGINFN 'NARGS T)
+                            (MOVD? 'NARGS 'OLDNARGS)
+                            (VIRGINFN 'ARGTYPE T)
+                            (MOVD? 'ARGTYPE 'OLDARGTYPE)
+                            (MOVD? 'NILL 'LTDWIMUSERFN]
+        (FNS ARGLIST ARGTYPE FNTYP1 LTDWIMUSERFN LTSTKNAME NARGS)
+        (ADDVARS (DWIMUSERFORMS (LTDWIMUSERFN)))
+        (PROP VARTYPE LAMBDATRANFNS)
+        (ALISTS (LAMBDATRANFNS))
+        (PROP MACRO LTSTKNAME)
+        (P (PUTHASH 'LTSTKNAME '(NIL)
+                  MSTEMPLATES))
+        (P (RELINK 'WORLD))
+        (DECLARE%: EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T))
+               (GLOBALVARS CLISPARRAY COMMENTFLG LAMBDASPLST LAMBDATRANFNS BOUNDPDUMMY))
+        (DECLARE%: DONTCOPY (RECORDS LAMBDAWORD))
+        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
+                                                                             (NLAML LTSTKNAME)
+                                                                             (LAMA])
 
 
 
@@ -46,12 +43,19 @@ Copyright (c) 1984, 1987 by Xerox Corporation.  All rights reserved.
 (LOCALVARS . T)
 )
 (DECLARE%: FIRST 
+
 (VIRGINFN 'ARGLIST T)
+
 (MOVD? 'ARGLIST 'OLDARGLIST)
+
 (VIRGINFN 'NARGS T)
+
 (MOVD? 'NARGS 'OLDNARGS)
+
 (VIRGINFN 'ARGTYPE T)
+
 (MOVD? 'ARGTYPE 'OLDARGTYPE)
+
 (MOVD? 'NILL 'LTDWIMUSERFN)
 )
 (DEFINEQ
@@ -190,14 +194,18 @@ Copyright (c) 1984, 1987 by Xerox Corporation.  All rights reserved.
 
 (ADDTOVAR DWIMUSERFORMS
 (LTDWIMUSERFN))
 
-(PUTPROPS LAMBDATRANFNS VARTYPE
 ALIST)
+(PUTPROPS LAMBDATRANFNS
 VARTYPE
 ALIST)
 
 (ADDTOVAR LAMBDATRANFNS
 )
 
-(PUTPROPS LTSTKNAME MACRO
 (X (CONS COMMENTFLG X)))
-(PUTHASH 'LTSTKNAME '(NIL) MSTEMPLATES)
+(PUTPROPS LTSTKNAME
 MACRO
 (X (CONS COMMENTFLG X)))
+
+(PUTHASH 'LTSTKNAME '(NIL)
+       MSTEMPLATES)
+
 (RELINK 'WORLD)
 (DECLARE%: EVAL@COMPILE DONTCOPY 
+
 (RESETSAVE DWIMIFYCOMPFLG T)
 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -219,8 +227,7 @@ Copyright (c) 1984, 1987 by Xerox Corporation.  All rights reserved.
 
 (ADDTOVAR LAMA
 )
 )
-(PUTPROPS LAMBDATRAN COPYRIGHT ("Xerox Corporation" 1984 1987))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2224 8821 (ARGLIST 2234 . 3188) (ARGTYPE 3190 . 3544) (FNTYP1 3546 . 4455) (
-LTDWIMUSERFN 4457 . 7957) (LTSTKNAME 7959 . 8483) (NARGS 8485 . 8819)))))
+  (FILEMAP (NIL (1871 8468 (ARGLIST 1881 . 2835) (ARGTYPE 2837 . 3191) (FNTYP1 3193 . 4102) (
+LTDWIMUSERFN 4104 . 7604) (LTSTKNAME 7606 . 8130) (NARGS 8132 . 8466)))))
 STOP