(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "15-Oct-86 16:53:18" ("compiled on " {ERIS}SOURCES>INSPECTFRAME.;3) "15-Oct-86 10:15:45" bcompl'd in NIL dated NIL) (FILECREATED "15-Oct-86 15:14:43" {ERIS}SOURCES>INSPECTFRAME.;3 changes to%: (VARS INSPECTFRAMECOMS) previous date%: "14-Oct-86 10:42:02" {ERIS}SOURCES>INSPECTFRAME.;2) PROPERTIES.FROM.FRAMESPEC D1 (P 27 ARGNAME P 23 ARGN P 17 I P 15 ARGLST P 14 ARGNAMES P 13 VALUEMARGIN P 12 VALUE P 11 NOVALUE P 10 FNNAME P 9 NARGS1 P 8 NARGS P 3 STKPOS P 1 N I 2 EMBEDDEDCALLFLG I 1 LOTSFLG I 0 POS) 2@dAk2HJJ0KAi dILNMh_M&O HIkԹi @ @ oDAOlO O _Ok2O"dO O$_OhOOkCO*RO0@ !OoOo A gO" O__(O&O(h_&_$O"k_"O(&_&_6O.O,O6(OO.@O _O6O.h_4O2O4h_2_0O.k_.O*_*lO4&_2(253 STKARG 190 PACK* 177 PACK* 157 STKARGNAME 107 SMARTARGLIST 101 CCODEP 79 STKNAME 75 STKNARGS 71 STKNARGS 57 \NCONC2 26 PROPERTIES.FROM.FRAMESPEC) (185 *var*) ( 174 "*" 167 "*" 83 "") STACKFRAMEVALUECOMMANDFN D1 (I 3 WINDOW I 2 DATUM I 1 PROP I 0 VALUE) A @ABC @BC (20 INSPECT/AS/FUNCTION 10 DEFAULT.INSPECTW.VALUECOMMANDFN) NIL () PROPERTIES.FROM.FRAMESPEC.LOTS D1 (I 0 POS) @i (4 PROPERTIES.FROM.FRAMESPEC) NIL () WINDOWTITLE2 D1 (I 1 WINDOW I 0 DATUM) A ((3 \INSUREWINDOW) NIL () NEWSTKNPVARS D1 (I 0 POS) @i @ (8 STKNARGS 4 STKNARGS) NIL () MYSMARTARGLIST D1 (P 1 I I 1 NARGS I 0 FN) 4@i @ Ak2IHoI K Lh[IkYL&J(28 PACK* 9 SMARTARGLIST 4 FNCHECK) NIL ( 24 "*arg") FETCHSTKARG D1 (I 1 WHICHSPEC I 0 FRAMESPEC) &AA@ Ad@ A Abb(25 NTH 19 STKARG) NIL () \RELEASEWINDOWSTKDATUM D1 (P 1 STKPTR P 0 X I 0 WINDOW) *@g Xd HdI H(33 RELSTK 17 RELSTK 9 GETWINDOWUSERPROP) (6 DATUM) () BTITEMWINDOWCLOSEFN D1 (I 0 W) @ @g (10 PUTWINDOWPROP 3 \RELEASEWINDOWSTKDATUM) (7 SELECTABLEITEMS) () STACKFRAMEPROPPRINTFN D1 (L (1 DATUM 0 PROP)) @ A@h@NIL NIL () (PRETTYCOMPRINT INSPECTFRAMECOMS) (RPAQQ INSPECTFRAMECOMS ((FNS PROPERTIES.FROM.FRAMESPEC STACKFRAMEVALUECOMMANDFN PROPERTIES.FROM.FRAMESPEC.LOTS WINDOWTITLE2 NEWSTKNPVARS MYSMARTARGLIST FETCHSTKARG \RELEASEWINDOWSTKDATUM BTITEMWINDOWCLOSEFN STACKFRAMEPROPPRINTFN) (COMS (* ; "stack functions") ( DECLARE%: DONTCOPY (RECORDS ARGSPEC)) (DECLARE%: DOCOPY DONTEVAL@LOAD (P (MOVD? (QUOTE NEWSTKNPVARS) ( QUOTE STKNPVARS))))))) (MOVD? (QUOTE NEWSTKNPVARS) (QUOTE STKNPVARS)) (PUTPROPS INSPECTFRAME COPYRIGHT ("Xerox Corporation" 1986)) NIL