(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 9-Oct-2021 00:35:17" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;11) " 9-Oct-2021 00:17:00" brecompiled exprs%: FB.THINP in "FULL 9-Oct-2021 ..." dated " 9-Oct-2021 00:17:06") (FILECREATED " 9-Oct-2021 00:35:17" {DSK}kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;11 8621 changes to%: (FNS FB.THINP) previous date%: " 7-Oct-2021 12:40:24" {DSK}kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;8) FB.THINCOMMAND :D8 (P 15 LASTTIMESTAMP P 14 TIMESTAMP P 13 CREATIONDATE P 12 LASTNAME P 11 THISNAME P 10 DATA P 9 FILE P 8 TAIL P 7 %#DELETED P 5 SORT# P 4 ONEDAY P 3 NOW P 2 FILES P 1 NDELETED P 0 TBROWSER I 0 FBROWSER) `@Xg Z@dgJ gJg Jg Z [o o \g@gg og ]JjN_%OY@g @ioIo __MO _d _@ioO O_O lOmOgOOo LOKOOOOhOO hL HO Ok_O_O_O(371 FB.DELETE.FILE 361 FB.THINP 352 CL::SIMPLE-STRING-EQUAL 307 HELP 271 CL::SIMPLE-STRING-EQUAL 252 FB.PROMPTWPRINT 235 IDATE 226 CL:NTH 197 FB.PROMPTWPRINT 178 FB.UPDATE.COUNTERS 151 HELP 134 CL:POSITION 104 IDATE 94 IDATE 83 IDATE 78 DATE 72 SORT 60 FB.SORT.VERSIONS 21 TB.COLLECT.ITEMS) (345 FBFILEDATA 338 TABLEITEM 295 FBFILEDATA 260 FBFILEDATA 219 FBFILEDATA 206 TABLEITEM 173 DELETED 146 CREATIONDATE 129 CAR 124 :KEY 117 FILEBROWSER 111 CREATIONDATE 67 FB.NAMES.DECREASING.VERSION 55 FB.DECREASING.VERSION 47 FB.NAMES.INCREASING.VERSION 36 FB.NAMES.DECREASING.VERSION 28 FILEBROWSER 16 FB.IS.NOT.SUBDIRECTORY.ITEM 8 FILEBROWSER) ( 302 "is out of order." 245 "No creation date for " 191 " files marked for deletion." 185 "Done, " 141 "Couldn't find sort attribute" 99 "30-Aug-87 09:06:06" 89 "31-Aug-87 09:06:06") FB.THINP :D8 (P 4 TN P 2 FE P 1 FN I 4 ONEDAY I 3 OLDESTVERSION? I 2 DELTATIMESTAMP I 1 AGE I 0 FILENAME F 5 THINEXTENSIONS F 6 THINNAMES) @ bdg HU UHUin@g @g VKdNC4hKhKKILg JLg LiDABdlDAli(115 FILENAMEFIELD 100 FILENAMEFIELD 61 FILENAMEFIELD 50 FILENAMEFIELD 18 FILENAMEFIELD 5 U-CASE) (110 EXTENSION 95 NAME 56 EXTENSION 45 NAME 13 EXTENSION) () (PRETTYCOMPRINT THINFILESCOMS) (RPAQQ THINFILESCOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) FILEBROWSER)) (FNS FB.THINCOMMAND FB.THINP) (INITVARS (THINEXTENSIONS (UNION *COMPILED-EXTENSIONS* (QUOTE (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."))))) (RPAQ? THINEXTENSIONS (UNION *COMPILED-EXTENSIONS* (QUOTE (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 2021)) NIL