(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "19-Jul-2022 22:26:08" ("compiled on " {DSK}kaplan>Local>medley3.5>working-medley>lispusers>GREP.;11) "19-Jul-2022 18:31:42" brecompiled exprs%: DOGREP in "FULL 19-Jul-2022 ..." dated "19-Jul-2022 18:31:48") (FILECREATED "19-Jul-2022 22:26:08" {DSK}kaplan>Local>medley3.5>working-medley>lispusers>GREP.;11 4725 :CHANGES-TO (FNS DOGREP) :PREVIOUS-DATE "26-Jun-2022 14:36:21" {DSK}kaplan>Local>medley3.5>working-medley>lispusers>GREP.;9) DOGREPA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 4 C P 3 POS P 2 FOUND P 1 STR I 0 SI::*CLEANUP-FORMS* F 5 OUTSTREAM F 6 STREAM F 7 DEFAULTFONT F 8 STRS F 9 A0042 F 10 COMMENTFONT F 11 BOLDFONT) W!Vgg ¿Hµh hc¿$d¢¹hƒ¹H¸Vj ¿IVhddd` [¢±ÆJ³IU ¿WU ¿oU ¿V U ¿oU ¿WU ¿U ¿iºVUVg dl ðž¿V ¿V ‚³ájK ¿WU ¿VUKdI Ô[ ¿WU ¿Vg \l ð¢Lµ U ¿±ÿ3U ¿°Û±þþ(275 PRINTCCODE 265 TERPRI 250 \INCCODE.EOLC 235 DSPFONT 226 COPYCHARS 219 NCHARS 208 DSPFONT 199 COPYCHARS 189 GETFILEPTR 182 \INCCODE.EOLC 170 \BACKCCODE.EOLC 154 TERPRI 147 CHANGEFONT 138 PRIN1 126 PRIN1 120 FULLNAME 113 PRIN1 101 CHANGEFONT 92 TERPRI 78 FFILEPOS 57 SETFILEPTR 31 \MVLIST 20 SETFILEINFO) (245 ANY 165 ANY 72 UPPERCASEARRAY 15 NILL 10 ENDOFSTREAMOP) ( 132 ")" 107 "(from ") DOGREPA0002 :D8 (F 0 STREAM F 1 A0042) PgQ (11 CL:CLOSE) (5 :ABORT) () DOGREP :D8 (P 2 A0042 P 1 STREAM P 0 FILE I 2 OUTSTREAM I 1 FILES I 0 STRS) …Aµ8oA ²0@Ahoo b¿b¿°×d@HB µðhA µ>Ai µAgg ig IgJ ¿$(126 CL:CLOSE 114 \MVLIST 109 DOGREPA0001 95 OPEN 77 FINDFILE 68 DIRECTORYNAMEP 55 DOGREP 34 DIRECTORY 14 STRPOS) (120 :ABORT 104 DOGREPA0002 90 :INPUT 85 :DIRECTION) ( 29 "" 24 "" 8 "*") GREPA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 OUTSTREAM F 1 SI::*RESETFORMS* F 2 STRS F 3 FILES) ,gghP PhhhdQcRSiP (41 DOGREP 16 DSPFONT) (9 DSPFONT 4 PROGN) () GREP :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 OUTSTREAM I 1 FILES I 0 STRS F 3 LISPXHIST) $B£ib¿S!g ¿$(29 SI::RESETUNWIND 24 \MVLIST 19 GREPA0001) (14 SI::RESETUNWIND) () PHONE :D8 (I 0 NAME F 0 PHONELISTFILES) @Pµ o (18 GREP 13 PROMPTFORWORD) NIL ( 8 "Name of directory file: ") (PRETTYCOMPRINT GREPCOMS) (RPAQQ GREPCOMS ((FNS DOGREP GREP PHONE) (INITVARS (PHONELISTFILES)))) (RPAQ? PHONELISTFILES) (PUTPROPS GREP COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL