(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "26-Jan-98 13:41:05" ("compiled on " |{DSK}disk2>jdstools>lc3>lispcore3.0>sources>STACKFNS.;1|) "30-Mar-95 20:33:04" |bcompl'd| |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "17-May-90 15:48:43" |{DSK}local>lde>lispcore>sources>STACKFNS.;2| 6154 |changes| |to:| (VARS STACKFNSCOMS) |previous| |date:| "30-Nov-86 17:10:26" |{DSK}local>lde>lispcore>sources>STACKFNS.;1|) STKARGS :D8 (L (0 POS)) ,@ k2IHJI@ K Lh[IkYL&(22 STKARG 5 STKNARGS) NIL () MAPDL :D8 (I 1 MAPDLPOS I 0 MAPDLFN) 3Ag jA bmAd bd Al@(41 STKNAME 31 STKNTH 19 STKNTH 11 STKPOS) (6 MAPDL) () SEARCHPDL :D8 (P 0 SRCHX I 1 SRCHPOS I 0 SRCHFN) ;Ag jA bmAd bd XAl@HA(44 STKNAME 34 STKNTH 22 STKNTH 14 STKPOS) (9 SEARCHPDL) () VARIABLES :D8 (P 1 L P 0 N I 0 POS) * @ XjHd IH@ IHkٰ(32 STKARGNAME 22 \\FZEROP 8 STKNARGS) NIL () REALFRAMEP :D8 (I 1 INTERPFLG I 0 POS) @ A (11 \\REALFRAMEP 5 \\STACKARGPTR) NIL () \\REALFRAMEP :D8 (P 1 BFLINK P 0 NAME I 1 INTERPFLG I 0 FRAME F 2 \\INTERNAL) k@Hd3@HdgQdgigl@ ghHgHdgh@ Rdgdghd3@h(Hd`A l\hH H`(148 EXPRP 135 CHCON1 91 \\SMASHLINK 56 \\STKARG) (156 BRKINFOLST 126 OPENFNS 106 SELECTQ 98 INTERNAL 80 APPLY 71 EVAL 61 INTERNAL 45 ERRORSET 36 \\INTERPRETER 27 *ENV*) () REALSTKNTH :D8 (P 1 K P 0 FX I 3 OLDPOS I 2 INTERPFLG I 1 POS I 0 N) WA j@j@ـ@j@kHjkHkH kHml XdjhB IkYjCH (84 \\MAKESTACKP 67 \\REALFRAMEP 5 \\STACKARGPTR) NIL () (PRETTYCOMPRINT STACKFNSCOMS) (RPAQQ STACKFNSCOMS ((FNS STKARGS MAPDL SEARCHPDL VARIABLES REALFRAMEP \\REALFRAMEP REALSTKNTH) ( DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA STKARGS))) )) (PRETTYCOMPRINT STACKFNSCOMS) (RPAQQ STACKFNSCOMS ((FNS STKARGS MAPDL SEARCHPDL VARIABLES REALFRAMEP \\REALFRAMEP REALSTKNTH) ( DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (PUTPROPS STACKFNS COPYRIGHT ("Venue & Xerox Corporation" 1986 1990)) NIL