(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "11-Sep-2021 12:54:24" ("compiled on " {DSK}larry>medley>sources>ASTACK.;2) "10-Sep-2021 22:59:49" brecompiled changes%: STKARGNAME in "FULL 10-Sep-2021 ..." dated "10-Sep-2021 21:00:52") (FILECREATED "11-Sep-2021 12:54:19" {DSK}larry>medley>sources>ASTACK.;2 43098 changes to%: (FNS STKARGNAME) previous date%: "23-May-91 14:25:00" {DSK}larry>medley>sources>ASTACK.;1) ARG :D8 (L (1 M 0 VAR)) `@A, ÐÉ(12 \ARGPTR) (4 \STACKSPACE) () SETARG :D8 (L (2 X 1 M 0 VAR)) `@A, B,HIÐJÎJ(12 \ARGPTR) (4 \STACKSPACE) () \ARG :D8 (L (1 M 0 VAR)) `@A ÐÉ(11 \ARGPTR) (4 \STACKSPACE) () \ARGPTR :D8 (L (1 N 0 VAR)) Ìf@gÁ ÉCHjð˜@l ¿kHÑÉdJð²K¿HI \²2LkdHÑÊðjð”HlÙ„kHÑÈ[ÑÈKkKÑÈÙâkKÑÊpÙkÙ]àÔð³PkHÑÈmþål ÙX°£Èdnÿñ•nÿÿÙkÙmÿð²áHI ²ØkHÑÊðjð”HlÙ„kHÑÈ[^kNÑÈÙâkNÑÊpÙ½AdjóŸdMó«¿kKÑÈAkÙàÔl (201 \LISPERROR 135 \VAROFFSET 44 \VAROFFSET 25 \LISPERROR) (6 \INTERPRETER) () \SETARG :D8 (L (2 X 1 M 0 VAR)) `@A ÐBÎB(11 \ARGPTR) (4 \STACKSPACE) () \RETURN :D8 (L (0 X)) -@ @hfkHÑÊðjð•kHÑÈ„kHÑÈ l Ùd¿(41 \SMASHLINK 5 RAID) NIL () \STACKARGPTR :D8 (L (0 POS)) O@d§Ã²L@ÈHjð³6kHÑÊðjð•kHÑÈ„kHÑÈ l Ùjð²$kHÑÊ`jð¥kHÑÉ„kHÑÉÉið¨@l Hf@@dªl ¿±Ôið²$kHÑÊðjð•kHÑÈ„kHÑÈ l ÙYjð’±²I¸°à@3µkHÑÊðjð²okHÑÈ°mjØYdjð’¿kYjñ²&kHÑÈmþål ÙXjðš@l ¿°oIkÙYjð³g°ÞjIÙ¹kHÑÊðjð•kHÑÈ„kHÑÈ l ÙXjðš@l ¿°;IkÙYjð³3°ÒkHÑÈ l ÙXdjð›¿@l ¿° Z@ð¬@¢±ÿdJ@¢±ÿ]lÈkHÑÊ‡ñ§@l H(331 \LISPERROR 296 \STKNAME 288 \LISPERROR 253 \LISPERROR 201 \LISPERROR 100 \LISPERROR 82 \LISPERROR) (9 PROCESS) () STKNTH :D8 (L (2 OPOS 1 IPOS 0 N)) s@µmÿ!jHñ•i¹jHÙ¸AµHdjðŸ¿@l Š „mÿÔ¸fºJjð—B hHjð—BJ I²kJÑÊðjð•kJÑÈkJÑÈ ‡kJÑÈmþål ÙºHkÙ¸°À(70 \MAKESTACKP 57 RELSTK 40 \STACKARGPTR 34 \LISPERROR) NIL () STKNTHNAME :D8 (L (1 POS 0 N)) }@µmÿ!jHñ•i¹jHÙ¸AµHdjðŸ¿@l Š „mÿÔ¸fºJjð‘hHjð²kJÑÊ`jð¥kJÑÉ„kJÑÉÉI²kJÑÊðjð•kJÑÈkJÑÈ ‡kJÑÈmþål ÙºHkÙ¸°¶(40 \STACKARGPTR 34 \LISPERROR) NIL () STKNAME :D8 (L (0 POS)) @ (10 \STKNAME 5 \STACKARGPTR) NIL () SETSTKNAME :D8 (L (1 NAME 0 POS) P 5 \INTERRUPTABLE P 4 \INTERRUPTABLE P 3 \INTERRUPTABLE P 2 \INTERRUPTABLE) å@ kHÑÊ`jð³ykHÑÉ¹kHÑjÏ`¿IÒkð²$IdÈnðåAÒnÿåäÍ¿IlkØÐAÓÍ°0IÉ¿A¿IdÈnðåAÒnÿåäÍ¿IlkØÐAÓÍkHÑkÏ`¿kjðhð°ZkHÑÉ ¹IÉ¿A¿IdÈnðåAÒnÿåäÍ¿IlkØÐAÓÍkHÑjÏ0¿kHÑIÎ¿kHÑkÏ`¿kjðhðA(147 \COPYFNHEADER 5 \STACKARGPTR) NIL () STKPOS :D8 (L (3 OPOS 2 IPOS 1 N 0 FRAMENAME)) fBµf„ AµmÿjIñ”jIÙYºH @ðžIkÙYjñ§CH J²kHÑÊðjð•kHÑÈkHÑÈ ‡kHÑÈmþål ÙXdjð²Â¿C h(98 RELSTK 49 \MAKESTACKP 32 \STKNAME 9 \STACKARGPTR) NIL () STKSCAN :D8 (L (2 OPOS 1 IPOS 0 VAR)) @@d3@ð´9Aµf„ @HI —BH kHÑÈmþål ÙXdjð²â¿B h(60 RELSTK 35 \MAKESTACKP 27 \FRAMESCAN 16 \STACKARGPTR) NIL () RETFROM :D8 (L (2 FLG 1 VAL 0 POS)) <@ kHÑÊðjð•kHÑÈ„kHÑÈ l ÙXjð´Al ¿hHB´@A(56 \SMASHRETURN 44 \LISPERROR 5 \STACKARGPTR) NIL () RETTO :D8 (L (2 FLG 1 VAL 0 POS)) "@dið–¿ hHB´@A(30 \SMASHRETURN 16 \STACKARGPTR 10 RESET) NIL () RESUME :D8 (L (2 VAL 1 TOPTR 0 FROMPTR) P 2 \INTERRUPTABLE) \@ÈAÈIjð³kIÑÊðjð•kIÑÈ„kIÑÈ l Ùjð˜Al ¿Hjð¦H ¿@fÍ¿AjÍ¿I B(88 \RESUME 71 \DECUSECOUNT 57 \LISPERROR) (13 STACKP 5 STACKP) () \RESUME :D8 (L (0 FRAME)) /fkHÑÊðjð™kHÑHlÙÍ¿kHÑ@l ØÍ ¿kHÑ@l ØkØÍ@NIL NIL () STKARG :D8 (L (2 DEFAULT 1 POS 0 N)) %oH@A BHXð—@l H(33 \LISPERROR 22 \STKARG 15 \STACKARGPTR) NIL ( 4 "NO SUCH ARG") \STKARG :D8 (L (3 NOSUCH 2 DEFAULT 1 FRAME 0 N)) %@aA [@d3@ðœA@KµC¸kHñ³úK¢±¥A ²6Hjñ²èHkAÑÊðjð”AlÙ„kAÑÈY]kMÑÈÙâkMÑÊpÙñ³ÁkIÑÈ±¬HKÈ\âýñ²¯KHmÿØàÐÉ²¤KLHkÙàØlØÐ[j ããnÀådjð²¿kdAÑÊðjð”AlÙ„kAÑÈÑÈŽn€ð”Al Ø„Kj lÿå°HHkAÑÊðjð”AlÙ„kAÑÈY^kNÑÈÙâkNÑÊpÙZñ¦kIÑÈ°HJÙXkAÑÉÊñ’±ÿAl ØHkÙàØ¸kHÑÊjð¡BkHÑÉ(196 \GETBASEFIXP 189 SHOULDNT 138 \GETBASEFIXP 45 \SPREADFRAMEP 24 \FRAMESCAN 9 \INTERPFRAMENT) NIL () SETSTKARG :D8 (L (2 VAL 1 POS 0 N)) A @RH \@d3@ð²H@Lµ @l ¹kIñ“I±¼L²lILÈ]âýñ›LlIkÙàØÐÉ£I± LMlØIàØÐ\j ããnÀådjð²¿kdHÑÊðjð”HlÙ„kHÑÈÑÈŽn€ð”Hl Ø„Lj lÿåàØ°UIkHÑÊðjð”HlÙ„kHÑÈZ^kNÑÈÙâkNÑÊpÙ[ñ«kJÑÈIkÙàØ°"IKÙYkHÑÉÊñ©Hl ØIkÙàØ‡@l YkIÑÊjð—kIÑBÎB@l (268 \LISPERROR 242 \LISPERROR 152 \GETBASEFIXP 145 SHOULDNT 94 \GETBASEFIXP 41 \LISPERROR 31 \FRAMESCAN 15 \INTERPFRAMENT 5 \STACKARGPTR) NIL () STKARGNAME :D8 (L (2 NOERROR 1 POS 0 N)) F A @rH ZId3@ð˜HIJ¹J²DH ‘hIjñ²*IJÈýñ²"JImÿØàÐÉ]d3 Ÿd“¿jM†ããMnÿÿåÑµ o@ kHÑÊ`jð¥kHÑÉ„kHÑÉZIdjñ§¿o°ckHÑÊðjð”HlÙ„kHÑÈ^kNÑÈÙâkNÑÊpÙ\ñ¦jIkÙØ°=ILÙYJÊñ³"kHl ØIkÙàØÑÊjð´‚±ÿZoIkÙØB’±ÿJo@ YldJÈØ_¿_¿JOÐÉ[´‚±ÿ^IJO ²Kd3 ¢±ÿFd”¿jKÑããKnÿÿåÑOlÔ_¿OlÔ_¿°¹(278 EQP 273 \GETBASEFIXP 237 LISPERROR 99 LISPERROR 40 \SPREADFRAMEP 30 \FRAMESCAN 15 \INTERPFRAMENT 5 \STACKARGPTR) NIL ( 231 "ILLEGAL STACK ARG" 216 -2147483648 132 "ILLEGAL STACK ARG" 93 "ILLEGAL STACK ARG") \SPREADFRAMEP :D8 (L (0 FRAME)) ; `kd@ÑÊðjð”@lÙ„k@ÑÈYÑÈIkIÑÈÙâkIÑÊpÙkÙXàØÐÉHðNIL (7 \STACKSPACE) () SETSTKARGNAME :D8 (L (2 NAME 1 POS 0 N) P 10 \INTERRUPTABLE) fA @‚ H ZId3@ð˜HIJ¹J²=Ijñ²/IJÈâýñ²&JImÿØàÐÉ\d3 Ÿd“¿jL†ããLnÿÿåÑµ‚±ÿ@l kHÑÊ`jð¥kHÑÉ„kHÑÉ ZIdjñ³K¿@l YldJÈàØ_¿_¿JOÐÉ´‚±²IJO ¢±¡JÉBdlð²HÓ°QkHÑÊðjð”HlÙ„kHÑÈ]kMÑÈÙâkMÑÊpÙ[ñ¦jIkÙØ°–IKÙYJÊñ³ƒoIkÙØ±ÿ€lð‘B„_¿¾O3 ˜NOÐjOÑ…NOÐOÎ¿ kHÑjÏ0¿kHÑJÎ¿kHÑkÏ`¿kjðhðhOlÔ_¿OlÔ_¿±ÿ4(277 SHOULDNT 175 EQP 170 \GETBASEFIXP 134 \LISPERROR 118 \COPYFNHEADER 92 \LISPERROR 30 \FRAMESCAN 15 \INTERPFRAMENT 5 \STACKARGPTR) (185 ARRAYP) ( 258 -2147483648) STKNARGS :D8 (L (1 INCLUDEPVARS 0 POS)) Ó@ QkHÑÊ`jð¥kHÑÉ„kHÑÉÉgð²(kHÑÊðjð”HlÙ„kHÑÈ[kKÑÈÙâkKÑÊpÙdkÙH Z²MH ²'kHÑÊðjð”HlÙ„kHÑÈ\kLÑÈÙâkLÑÊpÙkÙJÈâYddjñ²¿ImÿÔ¹JImÿØàÐÉ²òIkHÑÊðjð”HlÙ„kHÑÈ]kMÑÈÙâkMÑÊpÙYA²ÚdkHÑÉÊØ(91 \SPREADFRAMEP 82 \INTERPFRAMENT 5 \STACKARGPTR) (35 \INTERPRETER) () FRAMESCAN :D8 (L (1 POS 0 ATOM)) A H@d3@ð´@H (28 \FRAMESCAN 23 \INTERPFRAMENT 5 \STACKARGPTR) NIL () \INTERPFRAMENT :D8 (L (0 FX)) k@ÑÊ`jðhð´k@ÑÈkð´k@ÑÉNIL NIL () \FRAMESCAN :D8 (L (2 INTERPNT 1 ATOM# 0 FRAME)) ©lBµk@ÑÊ`jð¥k@ÑÉ„k@ÑÉ"IHÐÉµhAð²yB—HlÙâkØIHIÈØ ZããnÀådjð—¿JlÿåkØdn€ð²>¿k@l ØJlÿåZàØÑÊjð²5Jk@ÑÊðjð”@lÙ„k@ÑÈ[kKÑÈÙâkKÑÊpÙØkØnÀð³‹¿HlÔ¸±ÿw(158 RAID 61 \GETBASEFIXP) NIL () \VAROFFSET :D8 (L (1 ATN 0 FRAME)) lk@ÑÊ`jð¥k@ÑÉ„k@ÑÉIHÐÉµhAð²aIHIÈØ ZããnÀådjð²!¿kd@ÑÊðjð”@lÙ„k@ÑÈÑÈJlÿåàØdn€ð²¿k@l ØJlÿåàØZÑÊjðJnÀð³£¿HlÔ¸°(131 RAID 48 \GETBASEFIXP) NIL () \RECLAIMSTACKP :D8 (L (0 PTR)) @ÈHjð¥H h(15 \DECUSECOUNT) NIL () (PRETTYCOMPRINT ASTACKCOMS) (RPAQQ ASTACKCOMS ((COMS (* ; "ARG and SETARG, unusual cases") (FNS ARG SETARG \ARG \ARGPTR \SETARG)) (COMS (FNS \RETURN \STACKARGPTR)) (COMS (* ; "User level stack management") (FNS STKNTH STKNTHNAME STKNAME SETSTKNAME) (FNS STKPOS STKSCAN RETFROM RETTO RESUME \RESUME) (FNS STKARG \STKARG SETSTKARG STKARGNAME \SPREADFRAMEP SETSTKARGNAME STKNARGS FRAMESCAN \INTERPFRAMENT \FRAMESCAN \VAROFFSET)) (COMS (* ; "finalization for stackps") (FNS \RECLAIMSTACKP)) (LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML SETARG ARG) (LAMA))))) (PUTPROPS ASTACK COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1991)) NIL