(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "26-Jan-98 13:56:09" ("compiled on " |{DSK}disk2>jdstools>lc3>lispcore3.0>sources>WTFIX.;1|) "30-Mar-95 20:33:04" |bcompl'd| |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "18-May-90 01:12:06" |{DSK}local>lde>lispcore>sources>WTFIX.;2| 8078 |changes| |to:| (VARS WTFIXCOMS) |previous| |date:| "24-Mar-88 10:35:24" |{DSK}local>lde>lispcore>sources>WTFIX.;1|) FINDATOM :D8 (P 5 X P 3 REALPOS P 2 NAME P 1 TEM P 0 XTAIL I 2 BLIP I 1 POS I 0 ATOM F 6 PARENT F 7 SUBPARENT F 8 FORMSFLG F 9 EXPR) ]PB²%@BX²Bcdgð©gð´VcHmÿAi[ Zgð² BŒd\–@LcX¤µòh¿Hc¿±æ@gA Yð¢±±I¸J ².Jd³d3@ð–J ‰g c¿HVð´Hc¿±Jgðc²#kK ŽdHM ¤µðhc¿°pJgð²gmþKd[ gð²PkK ŽdHM ¤µðhc²0HVð´Hc¿°$I²@IðšIXc¿ic¿ŒW˜@WcXµ K V´HVð´Hc¿ic¿°è(327 RELSTK 263 TAILP 250 STKARG 235 STKNAME 229 FSTKNTH 198 TAILP 185 STKARG 150 HELP 139 GETD 121 EXPRP 106 BLIPVAL 55 STKNAME 49 REALSTKNTH) (240 SELECTQ 217 PROGN 173 COND 145 FINDATOM 100 *TAIL* 61 PROG 30 SAVESETQ 22 SETQ) () FIXAPPLY1 :D8 (P 3 N P 1 LST P 0 XTAIL I 3 *FORM*BLIP I 2 NEW I 1 OLD I 0 POS F 4 EXPR F 5 TYPE-IN? F 6 PARENT) •0@ Kjð«Kd² Ÿ`Að²°bK@ Að˜K@B¿KkÙ[°ÊU‘TCµ g@ Y°dZgð™JAð“JX¤µéh”Ic¿‡TžATX™HBH¿@ H(145 RELSTK 138 /RPLNODE 86 BLIPVAL 61 SETSTKARG 50 FSTKARG 26 \\FZEROP 8 STKNARGS) (98 FUNCTION 80 *FORM* 33 LISPXHISTORY) () FIXLISPX/ :D8 (I 1 FN I 0 X F 0 TYPE-IN? F 1 VARS) P¡@@AQ(11 LISPX/) NIL () (PRETTYCOMPRINT WTFIXCOMS) (RPAQQ WTFIXCOMS ((FNS FINDATOM FIXAPPLY1 FIXLISPX/) (SPECVARS TYPE-IN? VARS EXPR PARENT BREAKFLG SUBPARENT FORMSFLG TAIL HELPFIXTAIL HELPFIXFLG TYPE-IN? VARS EXPR PARENT) (GLOBALVARS CLEARSTKLST SPELLINGS2 USERWORDS SPELLINGS3 LISPXHISTORY))) (PUTPROPS WTFIX COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1985 1986 1988 1990)) NIL