(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "31-Aug-94 14:45:56" ("compiled on " {DSK}lispusers>autosamedir.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 28-Jul-94 ..." dated "28-Jul-94 17:35:29") (FILECREATED "17-Sep-87 19:37:29" {PHYLUM}LYRIC>AUTOSAMEDIR.;2 1551 changes to%: (VARS AUTOSAMEDIRCOMS) (FNS AUTOSAMEDIR) previous date%: "15-Dec-85 13:02:11" {PHYLUM}LYRIC>AUTOSAMEDIR.;1) AUTOSAMEDIR :D8 (P 1 DIR P 0 LOADEDFILE I 0 FILE F 2 AUTOSAMEDIRFLG) _ R“Y@ o g X“:id gHg gHg Yšhš“I (92 /CNDIR 80 PACKFILENAME 75 FILENAMEFIELD 59 FILENAMEFIELD 43 DIRECTORYNAME 31 GETPROP 21 CL:INTERN 11 CL:SYMBOL-NAME) (70 DIRECTORY 64 DIRECTORY 54 HOST 48 HOST 26 FILEDATES) ( 16 "IL") (PRETTYCOMPRINT AUTOSAMEDIRCOMS) (RPAQQ AUTOSAMEDIRCOMS ((* ; "extension to SAMEDIR") (FILES (SYSLOAD FROM LISPUSERS) SAMEDIR) ( INITVARS (AUTOSAMEDIRFLG)) (FNS AUTOSAMEDIR) (P (EDITV MAKEFILEFORMS F CHECKSAMEDIR (IF (NEQ (QUOTE AUTOSAMEDIR) (%## 0 2 1)) ((MBD (OR (AUTOSAMEDIR FILE) &))) NIL)) (UNMARKASCHANGED (QUOTE MAKEFILEFORMS) T)))) (FILESLOAD (SYSLOAD FROM LISPUSERS) SAMEDIR) (RPAQ? AUTOSAMEDIRFLG) (EDITV MAKEFILEFORMS F CHECKSAMEDIR (IF (NEQ (QUOTE AUTOSAMEDIR) (%## 0 2 1)) ((MBD (OR (AUTOSAMEDIR FILE) &))) NIL)) (UNMARKASCHANGED (QUOTE MAKEFILEFORMS) T) (PUTPROPS AUTOSAMEDIR COPYRIGHT ("Xerox Corporation" 1987)) NIL