(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "29-Mar-2022 10:53:16" ("compiled on " {DSK}kaplan>Local>medley3.5>my-medley>sources>DIRECTORY.;15) "29-Mar-2022 08:55:42" brecompiled exprs%: DIRECTORY in "FULL 29-Mar-2022 ..." dated "29-Mar-2022 08:55:49") (FILECREATED "29-Mar-2022 10:53:16" {DSK}kaplan>Local>medley3.5>my-medley>sources>DIRECTORY.;15 28665 :CHANGES-TO (FNS DIRECTORY) :PREVIOUS-DATE "29-Mar-2022 08:29:33" {DSK}kaplan>Local>medley3.5>my-medley>sources>DIRECTORY.;14) DODIR :D8 (P 2 CONJ P 1 TAIL P 0 FILE I 4 NOP I 3 DEFAULTVERS I 2 DEFAULTEXT I 1 EXTRACOMS I 0 LISPXLINE) P@@I ZŸHJIh¸IY°êA—IA ¹D³gI¯gI§gI¹HIBC(77 DIRECTORY 40 \APPEND2 13 DIRCONJ) (65 P 57 PP 49 P) () FILDIR :D8 (I 1 DEPTH I 0 FILEGROUP) @A´ggAh (23 DIRECTORY) (13 DEPTH 8 COLLECT) () DIRECTORYA0009 :D8 (NAME SI::*UNWIND-PROTECT* P 3 X P 2 I I 0 SI::*CLEANUP-FORMS* F 4 SI::*RESETFORMS* F 5 COMTAIL F 6 OUTFILE F 7 FILEGROUP F 8 COMMANDS F 9 PRINTFLG F 10 PFLG F 11 HEADINGS F 12 PROMPTFLG F 13 FILES F 14 \MACHINETYPE F 15 \MAIKO) ¶hdW WcWW:ohdTc¿W¥V£W²uW²g` hhTc¿gVµi°*idµ!gVg chhdTc¿V hhTc¿WµUWµ%ic¿jd ¿W ’±W´ jd Hµ‚±µh²Ð¿W lIµ‚±¬°³gð³¦Wc ¿ Udgð§dgðœ¿Iµi¸UYc °ädgð³,dgð³#dgð³dgð¯dgð§dgð–¿Uc °Â¿H²!UWð³IWU¿Hið¥Hd„Wc¿±ÿYšIµ‚±ÿGi±ÿCHX±ÿ5»J ¿K—K ¿JKÔºIY±ÿ3WW ±þí(433 DODIRCOMMANDS 411 PRIN1 400 TAB 210 REVERSE 202 TERPRI 181 TAB 166 DIRECTORY.NEXTFILE 158 TAB 129 OUTPUT 109 OPENSTREAM 91 GETSTREAM 63 SETTERMTABLE 8 DIRECTORY.PARSE) (323 NEWERTHAN 315 OLDERTHAN 307 OUT 298 @ 289 COLUMNS 280 BY 259 PP 251 P 232 PAUSE 104 OUTPUT 98 CLOSEF? 78 OUTPUT 58 ASKUSERTTBL 53 SETTERMTABLE) ( 26 (AND RESETSTATE (\UFS.ABORT.DIRECTORY))) DIRECTORY :D8 (P 27 RESETSTATE P 26 SI::*RESETFORMS* P 25 LISPXHIST P 21 TEM P 20 COM P 19 COMTAIL P 13 VALUES-WANTED P 12 HEADINGS P 11 PFLG P 10 DESIREDPROPS P 9 LASTHOST&DIR P 8 PROMPTFLG P 7 OUTFILE P 6 PRINTFLG P 5 FILEGROUP P 4 DELETEDONLY P 3 NAMEFLG P 2 COLUMNS P 1 VALUE P 0 FILING.ENUMERATION.DEPTH I 3 DEFAULTVERS I 2 DEFAULTEXT I 1 COMMANDS I 0 FILES F 28 FILING.ENUMERATION.DEPTH F 29 LISPXHIST) B§gb¿C§gb¿W8ñ0Ad–h ˆµghb!O&_(gð³O(gðªO(dgð˜¿O&^_±ûgð²O&d3 ¨kO&¿O&±ÞO(dgð²¿O&_&d ¿gO_±´gð•i_±§O(dgð’±šdgðŸ¿j¹gO_±‚gð«O(dgð²/¿O&_&¿hO& hO_¿O(gð•i_±Hi^±Cgð²8O&_&_( ²O&O(o¿i[±gO( ¢±i[±O(dgð²¿O&ºi¾O&d_¿gO±Þgð²O&_¿O&d_¿gO±»O(gð«O(dgð²¿o ¿i\±–gð«O(dgð²z¿ggO_¿O(gðšgO_¿O&_&d_(d3²4¿O(o_ d³o o Ùi¿O ÖÙ µ O( ±gð²CO&dŸ¿jO&ñ¥O&°#O& o “nÿÿˆO& ¸O&d±ÃO( ²O&O( O&_"¿gO"¿±ýO(`_*²O(O_¿O(O*hO_¿i^°uO(d´¿O&O(O& _$O$¿±ý90`°d_,¿O.µ O,h_0‚O,&_.¿µçO0` hO&hdihg ’±üñoO( ¿O&_&µ‚±üÛgA bW:!g ¿$I µ O£$h(912 DREVERSE 901 SI::RESETUNWIND 896 \MVLIST 891 DIRECTORYA0009 874 DREMOVE 850 ERROR 834 FIXSPELL 816 \NCONC2 754 \APPEND2 676 MKSTRING 665 STRINGP 648 \ILLEGAL.ARG 634 MEMB 624 U-CASE 581 \ILLEGAL.ARG 572 IDATE 556 IDATE 546 IDATE 523 IDATE 441 ERROR 326 FREEVARS 295 FNTYP 245 NCHARS 146 MKSTRING 37 \APPEND2) (886 SI::RESETUNWIND 868 DEPTH 828 MUSTAPPROVE 811 DIRCOMMANDS 774 FILEINFOTYPES 703 FILEINFOTYPES 688 PRINT 590 DEPTH 497 IREADDATE 490 OLDERTHAN 476 IWRITEDATE 471 ICREATIONDATE 462 NEWERTHAN 452 OLDERTHAN 427 UNDELETE 417 DELETED 403 NOP 380 OUT 368 NOP 344 COLUMNS 319 FILENAME 279 @ 261 PROMPT 226 PRINT 216 PROMPT 203 SIZE 193 COUNTSIZE 182 DELETE 166 COLLECT 153 AUTHOR 130 BY 98 OLDVERSIONS 82 PP 72 P 62 PAUSE 45 COLLECT 16 * 6 *) ( 843 "invalid DIRECTORY command" 629 (T ALL) 551 "1-JAN-77 00:00" 541 "2-JAN-77 00:00" 530 (CONS NIL NIL) 436 "DELETED/UNDELETE directory commands are not supported" 306 (FILENAME)) DIRECTORY.PARSE :D8 (P 0 TEMP I 0 FG F 1 FILEGROUP F 2 DEFAULTEXT F 3 DEFAULTVERS F 4 DESIREDPROPS) q@d³!RSbToQc@ Xµ.@ Xµo@ @ @ @ @ (108 DIRECTORY.PARSE 99 DIRECTORY.PARSE 89 DIRECTORY.PARSE 80 DIRECTORY.PARSE 71 ERROR 55 DIRCONJ 45 DIRCONJ 37 DIRECTORY.MATCH.SETUP 27 \GENERATEFILES 14 DIRECTORY.FILL.PATTERN) NIL ( 63 "Bad file-group conjunction" 22 (SORT RESETLST)) DIRECTORY.FILL.PATTERN :D8 (I 2 DEFAULTVERS I 1 DEFAULTEXT I 0 PATTERN) Kg@gggBµggAµgg@g hð´` (72 PACKFILENAME.STRING 57 FILENAMEFIELD.STRING) (66 \CONNECTED.DIRECTORY 52 HOST 46 DIRECTORY 41 * 33 EXTENSION 28 * 20 VERSION 15 * 10 NAME 4 BODY) () DIRCONJ :D8 (L (0 CONJ)) D@gð¨@dgð•ggð¨@dgð•ggð¨@gð´gNIL (65 ANDNOT 57 ANDNOT 49 - 43 AND 36 * 27 AND 21 OR 14 + 5 OR) () DIRECTORY.NEXTFILE :D8 (P 0 TEM I 0 FG) Z@h Xµ@d@¿´;°äd—¿H X ˜@H¿@h°@Hd3@ð´H ´H¿@H @(85 MKSTRING 73 U-CASEP 48 STRINGP 42 CONCATCODES 13 \GENERATENEXTFILE) NIL () DMATCH :D8 (I 1 TESTNAME I 0 PAT) g@ið¢@µidgð²¿@A µë@b°Ýdgð²¿@A ´Ï@b°Ágð²@A hð´³@b°¥@A (100 DIRECTORY.MATCH 82 DMATCH 56 DMATCH 28 DMATCH) (70 ANDNOT 43 AND 15 OR) () DIRECTORY.MATCH.SETUP :D8 (P 2 TAIL P 1 BASE I 0 FILENAME) N@ bdl{ð¿@@b¿l}ð²ö@HZµ@dlð“l*°Jdlÿó©¿IJ €¿J°Ú(68 GETCASEARRAY 32 UPPERCASEARRAY 5 CHCON) NIL () DIRECTORY.MATCH :D8 (P 0 FIRSTCHAR I 1 TESTNAME I 0 PATTERN) <kAk dl{ð¥dl[ð²¿AHkÔX dl}ð¥dl]ð²ì¿HkÔX¿@AH(57 DIRECTORY.MATCH1 32 NTHCHARCODE 10 NTHCHARCODE) NIL () DIRECTORY.MATCH1 :D8 (P 5 PAT P 3 TESTCHAR P 2 PATCHAR P 1 NAMELIMIT P 0 CASEBASE I 2 FIRSTCHAR I 1 TESTNAME I 0 PATTERN) ä`ÉA 2BIñ²*o¼@¡i@dl*ð”b°ó@b¿L ´qL°ß@µJl;ðZdl*ð²^¿@bhðµT@Mdl.ð²]l*ð”M]µoABhð´Ml;ð´M]hðµMl*ðµ@AB³BkÔbIñ²ïhAB [dlÿó£¿HKÂð³Jdl#ð’¿iˆl;ð´ßKl!ð´Ù@b¿BkÔb±ÿ6(180 NTHCHARCODE 160 DIRECTORY.MATCH1 126 STRPOS 59 MEMB 17 NCHARS) (9 ARRAYP 4 UPPERCASEARRAY) ( 119 "." 30 (46 59)) DODIRCOMMANDS :D8 (P 9 TYPE P 8 DT P 7 COMDATE P 6 ATTRVALUE P 5 NAMEPRINTED P 4 FILE P 3 COM P 2 FILENAME P 1 I P 0 COMTAIL I 1 FILEGROUP I 0 COMMANDS F 10 COLUMNS F 11 VALUE F 12 NAMEFLG) ® @jACW²"WØmÿØWÛWÚYlÙýñ¢jY¿HµhH¸[dgð˜¿A °ægð˜Ai °ÖKdgð²¿WAg Ôc°¹gðœi ¿IlØ°¤Kdgð²¿W–A ¿HH¸ ³…°†gðªKdgð²g¿HH¸KgðAg _˜OOñhðµAg _´ OOñhðð³Kgð²Ag _™OOñ£±ÿ±ÿgð²0HH¸»Ag ^¢±þðKNhddd` ’±þÛ±þÛKdgð²1¿IdlÔkÔ¹j ¿A •o„o ±þžgð²HH¸ ’±þ‰±þ‰Kdgð¿HH¸ ±þngðA Wc±þYKdgð²C¿Hkðªo ¿A ghgJ ’±þHX±þgð’±þKdgð’±ýøgð’±ýïK` O²WIdOÔkÔ¹j ¿AK ^²BNd3 ²¿OµgOhN ° ŸNd› ‹N „¿±ý‚(679 SHOULDNT 673 PRIN1 666 PRINTDEF 661 POSITION 647 PRINTNUM 613 DIRGETFILEINFO 605 TAB 533 STRING.EQUAL 528 INFILEP 523 PACKFILENAME 506 INFILEP 501 DIRFILENAME 494 ERROR 460 DIRFILENAME 444 DPRIN1 417 DREAD 396 PRIN1 379 DELFILE 374 DIRFILENAME 367 TAB 335 STRPOS 313 DIRGETFILEINFO 271 DIRGETFILEINFO 237 DIRGETFILEINFO 214 DIRGETFILEINFO 166 EVAL 155 DIRFILENAME 128 READC 110 DIRGETFILEINFO 84 DIRPRINTNAME 68 DIRPRINTNAME 34 LINELENGTH 16 POSITION) (634 FIX 581 FILEINFOTYPES 570 NOP 560 UNDELETE 548 DELETED 517 BODY 511 VERSION 475 OLDVERSIONS 452 COLLECT 431 PRINT 404 PROMPT 349 DELETE 329 UPPERCASEARRAY 308 AUTHOR 293 BY 266 IREADDATE 257 OLDERTHAN 232 IWRITEDATE 209 ICREATIONDATE 202 OLDERTHAN 184 NEWERTHAN 175 OLDERTHAN 142 @ 120 PAUSE 105 SIZE 93 COUNTSIZE 75 PP 59 P) ( 489 "can't count more than 1 version" 391 "can't delete" 385 "deleted") DIRPRINTNAME :D8 (P 9 I P 7 LASTCHAR P 6 THISCHAR P 5 I P 4 DIRECTORYEND P 3 DIFFERENT P 2 LASTNAME P 1 FULLNAME P 0 STREAM I 1 FLG I 0 FILEGROUP F 10 LASTHOST&DIR F 11 NAMEPRINTED F 12 I) 0 W’±hg @W#k!IM ^d³pK’Lµ2WdlÔkÔc¿j LµjkØA¢±ÁIM l;ð¢±³±»Wð”KLó³Çjd ¿¿l ¿Lk OOó²jILhc¿°šl}ð³Nl<ð®Nl>ð©Nl/ð¤Nl)ð‘M¼K³:JM _²,Olÿó”ON°Nlÿó³`O `N ð¢M[€MkÔ½±ÿ-HIO ¿OkÔ_±ÿ~HIM µ¿k ich ¿MkÔ½±ÿ(294 \OUTCHAR 284 SPACES 274 NTHCHARCODE 256 \OUTCHAR 251 NTHCHARCODE 230 GETCASEARRAY 219 GETCASEARRAY 186 NTHCHARCODE 125 SPACES 117 TERPRI 111 TAB 83 NTHCHARCODE 62 TAB 35 NTHCHARCODE 16 GETSTREAM) (224 UPPERCASEARRAY 212 UPPERCASEARRAY 11 OUTPUT) () DPRIN1 :D8 (I 0 STR F 0 I) Pd@ ÔkÔc¿j @ (25 PRIN1 19 TAB 7 NCHARS) NIL () DIRFILENAME :D8 (I 0 FILEGROUP F 0 FILENAME F 1 *UPPER-CASE-FILE-NAMES* F 2 FILE) %@µ @cQŸd ¨P c€Pc@P(23 U-CASE 16 U-CASEP) NIL () DIRGETFILEINFO :D8 (I 1 ATTRIBUTE I 0 FILEGROUP) @A (10 \GENERATEFILEINFO) NIL () DREAD :D8 (I 0 PROMPT F 0 I) ˆPj ¿@ ¿i dgð§dgðŸ¿oi ¿i°!dgð¨dgð²¿oi ¿hP@ ÔlÔc¿gðoi ¿°Šoi ¿±ÿ|(130 PRIN1 116 PRIN1 90 NCHARS 81 PRIN1 48 PRIN1 20 READC 13 PRIN1 6 TAB) (103 ? 66 n 58 N 34 y 26 Y) ( 124 "" 110 "Y or N: " 75 "No" 42 "Yes") (PRETTYCOMPRINT DIRECTORYCOMS) (RPAQQ DIRECTORYCOMS ((* DIRECTORY) (LISPXMACROS DIR NDIR) (FNS DODIR FILDIR DIRECTORY DIRECTORY.PARSE DIRECTORY.FILL.PATTERN DIRCONJ DIRECTORY.NEXTFILE DMATCH DIRECTORY.MATCH.SETUP DIRECTORY.MATCH DIRECTORY.MATCH1 DODIRCOMMANDS DIRPRINTNAME DPRIN1 DIRFILENAME DIRGETFILEINFO DREAD) (INITVARS ( *UPPER-CASE-FILE-NAMES* T)) (P (CL:PROCLAIM (QUOTE (CL:SPECIAL *UPPER-CASE-FILE-NAMES*)))) (VARS DIRCOMMANDS FILEINFOTYPES) (DECLARE%: DONTCOPY (RECORDS FILEGROUP) (MACROS DTAB) (GLOBALVARS DIRCOMMANDS ASKUSERTTBL FILEINFOTYPES)))) (ADDTOVAR LISPXMACROS (DIR (DODIR (NLAMBDA.ARGS LISPXLINE))) (NDIR (DODIR (NLAMBDA.ARGS LISPXLINE) ( QUOTE (P COLUMNS 20)) (QUOTE *) ""))) (RPAQ? *UPPER-CASE-FILE-NAMES* T) (CL:PROCLAIM (QUOTE (CL:SPECIAL *UPPER-CASE-FILE-NAMES*))) (RPAQQ DIRCOMMANDS ((- . PAUSE) (AU . AUTHOR) BY COLLECT (COLLECT? PROMPT " ? " COLLECT) COUNTSIZE (DA . CREATIONDATE) (DATE . CREATIONDATE) (DEL . DELETE) (DEL? . DELETE?) DELETE (DELETE? PROMPT " delete? " DELETE) DELETED (LE LENGTH "(" BYTESIZE ")") NEWERTHAN OLDVERSIONS (OLD OLDERTHAN 90) OLDERTHAN (OU . OUT) OUT P PAUSE (PR . PROTECTION) PROMPT (SI . SIZE) (TI . WRITEDATE) UNDELETE ( VERBOSE AUTHOR CREATIONDATE SIZE READDATE WRITEDATE) TRIMTO (DELVER OLDVERSIONS DELETE) DEPTH)) (RPAQQ FILEINFOTYPES ((WRITEDATE 22) (READDATE 22) (CREATIONDATE 22) (LENGTH 9) (BYTESIZE 2) ( PROTECTION 6 FIX 6 8) (SIZE 5) (AUTHOR 11) (READER 11) (TYPE 7) (FILETYPE 6 FIX 6 8))) (PUTPROPS DIRECTORY COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1992)) NIL