(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 8-Sep-94 20:23:23" ("compiled on " {DSK}lispusers>DEFAULTSUBITEMFN.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 4-Mar-87 15:59:01" {PHYLUM}LYRIC>DEFAULTSUBITEMFN.;1 1299 previous date%: "31-Jan-86 17:45:55" {PHYLUM}KOTO>LISPUSERS>DEFAULTSUBITEMFN.;1) DEFAULTSUBITEMFN :D8 (P 0 TEMP I 1 ITEM I 0 MENU) <A´5AX´/HX´)HX´#HXdgð“¿Hgð´ H (57 EVAL) (46 EVAL 35 SUBITEMS) () (PRETTYCOMPRINT DEFAULTSUBITEMFNCOMS) (RPAQQ DEFAULTSUBITEMFNCOMS ((* * redefine the DEFAULTSUBITEMFN to add the EVAL keyword to the subitem menu field) (FNS DEFAULTSUBITEMFN))) (PUTPROPS DEFAULTSUBITEMFN COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL