Restore package/reatable eval in define file fino (#415)

* Adds fields to reader-environment to remember evaluation forms for reprinting

For package and readtable, not for base or external format.  This restores previous package/readtable behavior.

ATBL also is now not radix 8

* THINFILES:  now can add extensions/file names to operate on

Not related to other things in this branch, just a useful extension to a simple lispusers package.  You can now add dribble as an extension, and things like I-NEW as a name, to make it easy to clean up the tmp/ loadup directory in particular.

lispusers/THINFILES

@@ -1,23 +1,30 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED " 1-May-92 16:49:39" {DSK}<project>lfg>parser>THINFILES.;5
 8005   
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
+
(FILECREATED " 8-Aug-2021 15:05:08" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;3
 8422   
 
-      changes to%:  (FNS FB.THINP)
+      changes to%:  (VARS THINFILESCOMS)
+                    (FNS FB.THINP)
 
-      previous date%: "28-Sep-89 16:38:11" {DSK}<project>lfg>parser>THINFILES.;2)
+      previous date%: " 8-Aug-2021 15:00:48" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;2)
 
 
 (* ; "
-Copyright (c) 1987, 1988, 1989, 1992 by Xerox Corporation.  All rights reserved.
+Copyright (c) 1987-1989, 1992, 2021 by Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT THINFILESCOMS)
 
-(RPAQQ THINFILESCOMS
 [(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
-                                                                  FILEBROWSER))
-                          (FNS FB.THINCOMMAND FB.THINP)
-                          (APPENDVARS (FB.MENU.ITEMS (Thin FB.THINCOMMAND 
+(RPAQQ THINFILESCOMS

+       [(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
+                                                FILEBROWSER))
+        (FNS FB.THINCOMMAND FB.THINP)
+        (INITVARS [THINEXTENSIONS (UNION *COMPILED-EXTENSIONS*
+                                         '(SYSOUT DCOM DATABASE LCOM DFASL MCOM MFASL DRIBBLE]
+               (THINNAMES NIL))
+        (APPENDVARS (FB.MENU.ITEMS (Thin FB.THINCOMMAND 
                      "Delvers non-source files and removes all but the last source file of each day."
-                                                           ])
+                                         ])
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 
 (FILESLOAD (LOADCOMP)
@@ -110,34 +117,41 @@ Copyright (c) 1987, 1988, 1989, 1992 by Xerox Corporation.  All rights reserved.
 
 (FB.THINP

   [LAMBDA (FILENAME AGE DELTATIMESTAMP OLDESTVERSION? ONEDAY)

-                                                             (* ; "Edited  1-May-92 16:49 by rmk:")

-    (LET [(EXT (U-CASE (FILENAMEFIELD FILENAME 'EXTENSION]
-         (COND
-            ((OR (FMEMB EXT '(SYSOUT DCOM DATABASE LCOM DFASL MCOM MFASL))
-                 (FMEMB EXT *COMPILED-EXTENSIONS*))          (* ; 
+                                                            (* ; "Edited  8-Aug-2021 15:05 by rmk:")

+    (COND
+       ((FMEMB (U-CASE (FILENAMEFIELD FILENAME 'EXTENSION))
+               THINEXTENSIONS)                               (* ; 
 
                                   "always delver files that can be reconstructed from the source.")

-             T)
-            (OLDESTVERSION?                                  (* ; 
+        T)
+       ((AND THINNAMES (EQMEMB (U-CASE (FILENAMEFIELD FILENAME 'NAME))
+                              THINNAMES))
+        T)
+       (OLDESTVERSION?                                       (* ; 
 
                                                 "don't delete the oldest version of source files.")

-                   NIL)
-            ((ILESSP AGE ONEDAY)                             (* ; 
+              NIL)
+       ((ILESSP AGE ONEDAY)                                  (* ; 
 
                                                   "don't delete anything written within 24 hours.")

-             NIL)
-            ((ILESSP (ITIMES DELTATIMESTAMP 3)
-                    ONEDAY)                                  (* ; 
+        NIL)
+       ((ILESSP (ITIMES DELTATIMESTAMP 3)
+               ONEDAY)                                       (* ; 
 
         "delete anything that occurs on the same day as something else (except for the first day)")

-             T)
-            ((ILESSP DELTATIMESTAMP (IQUOTIENT AGE 30))
+        T)
+       ((ILESSP DELTATIMESTAMP (IQUOTIENT AGE 30))
 
-             (* ;; "after one month, delete things that are within a day of each other, after two months, within two days, etc.")

+        (* ;; "after one month, delete things that are within a day of each other, after two months, within two days, etc.")

 
-             T])
+        T])
 )
 
+(RPAQ? THINEXTENSIONS
 (UNION *COMPILED-EXTENSIONS*
+                                 '(SYSOUT DCOM DATABASE LCOM DFASL MCOM MFASL DRIBBLE)))
+
+(RPAQ? THINNAMES
 NIL)
+
 (APPENDTOVAR FB.MENU.ITEMS
 (Thin FB.THINCOMMAND 
                      "Delvers non-source files and removes all but the last source file of each day."
                                      ))
-(PUTPROPS THINFILES COPYRIGHT ("Xerox Corporation" 1987 1988 1989 1992))
+(PUTPROPS THINFILES COPYRIGHT ("Xerox Corporation" 1987 1988 1989 1992 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (925 7713 (FB.THINCOMMAND 935 . 6343) (FB.THINP 6345 . 7711)))))
+  (FILEMAP (NIL (1159 7953 (FB.THINCOMMAND 1169 . 6577) (FB.THINP 6579 . 7951)))))
 STOP