(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "31-Jan-98 10:02:17" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>sources>LLSTK.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED " 6-Jan-93 18:07:37" |{PELE:MV:ENVOS}SOURCES>LLSTK.;9| 112417 changes to%: ( RECORDS FVARSLOT) previous date%: "17-Dec-92 18:17:01" |{PELE:MV:ENVOS}SOURCES>LLSTK.;8|) \MYARGCOUNT :D8 NIL ,fkHjHlلkHHkHkHpNIL NIL () \ARG0 :D8 (L (0 N)) PfkHjHlلkH@dj(HkHkHp`kH@k@l (77 \LISPERROR) (55 \STACKSPACE) () \SETARG0 :D8 (L (1 VAL 0 N)) NfkHjHlلkH@dj&HkHkHpkdH@kAA@l (75 \LISPERROR) NIL () \HARDRETURN :D8 (L (0 VAL)) l~@NIL NIL () \DOHARDRETURN :D8 NIL ` l~(11 \DOHARDRETURN1) (4 \InterfacePage) () \DOGC1 :D8 NIL h(14 \GCMAPUNSCAN 9 \GCMAPSCAN 4 \GCSCANSTACK) NIL () \DOGC :D8 NIL l~(4 \DOGC1) NIL () \DOHARDRETURN1 :D8 (L (0 HRFRAME)) ik@gk@jk@k@ l bk@jk@k@ l akHjkHkH l YdkHml Z4kHjkHHlkHkH kHIl kJ kIjgkdIZl1kJkJ[lkJdkKkJl h)JkdHjHlلkHZkJjhiPl kIIl\HkI`jkIk iIllh kKkIlLĿkKk`KlԻkKKLlkKkIjIlلkI]kKjkKkK kKkkKjNkKdKIkMdkkIjkIIlkIkI kIkkIjkIkI l Z JkIml ZJ I kHjkHHlkHKl kHKl kKl @Id h(613 \SMASHLINK 604 FLIPCURSORBAR 553 \DECUSECOUNT 546 \INCUSECOUNT 524 \INCUSECOUNT 327 \FREESTACKBLOCK 279 FLIPCURSORBAR 155 \DECUSECOUNT) (11 \CONTEXTSWITCH) () \DOSTACKOVERFLOW :D8 NIL E`0`dh`` l~`d (65 \MOVEFRAME 45 \SETUPUSERSTACK 29 \GATHER-CLEANUP-FORMS) (57 \InterfacePage 40 \NEED.HARDRESET.CLEANUP 35 \InterfacePage 23 \RECLAIM.COUNTDOWN 11 \InterfacePage 4 \NEED.HARDRESET.CLEANUP) () \MOVEFRAME :D8 (L (0 OLDFRAME)) Hl k@QkHlQkHkH]Zl$MkJԽkHMZlkHM@ZJ`Jn4`-ik@@lY@k@`j!k@ki@ll@Zh LJ@kJn[kJk@lIĿkJk`JlԺkJJIlkJk@j@lلk@kJjkJkJ kJkKkJdJ@k@l`j@lI@Il l J(324 FLIPCURSORBAR 316 \MAKEFREEBLOCK 163 \FREESTACKBLOCK 150 \EXTENDSTACK 6 FLIPCURSORBAR) (100 \STACKOVERFLOW 84 \InterfacePage) () \INCUSECOUNT :D8 (L (0 FRAME)) @djk@dkHIIllo@ k@kHdjkHlXll7kHlXl(kHjkHHlkHkH kHk@(45 \MP.ERROR) NIL ( 39 "Stack frame use count maximum exceeded") \DECUSECOUNT :D8 (L (0 FRAME)) @@jhk@jk@dm@k@ml ٸk@j@lلk@k@jk@k@ l ٻk@@ٺk@l`j@lJl؁@J kIjkIlIkI kIdmHKH KbK(180 \DECUSECOUNT 155 \MAKEFREEBLOCK 124 \MAKEFREEBLOCK) NIL () \MAKESTACKP :D8 (L (1 FX 0 ED) P 0 \INTERRUPTABLE) 7 AjA @d@YjI lbk@A@(37 \DECUSECOUNT 12 \INCUSECOUNT) (23 PROCESS) () \SMASHLINK :D8 (L (2 CLINK 1 ALINK 0 CALLER) P 0 \INTERRUPTABLE) #@fbk@ml k@jk@k@ l AyBkJjkJ_kJnk_NOOnOl_Ok԰kHKl[KIK LkHkpM(159 \SLOWRETURN 144 \MAKEFREEBLOCK) NIL () SI::NON-LOCAL-GO :D8 (L (1 PC 0 BLIP)) @h HkHAig (29 CL:ERROR 6 SI::UNWIND-TO-BLIP) (24 ILLEGAL-GO) () SI::NON-LOCAL-RETURN :D8 (L (0 BLIP&VALUES)) Kekai 3Hdllal2JdIK$aL Mh\JkZM&g (72 CL:ERROR 11 SI::UNWIND-TO-BLIP) (67 ILLEGAL-RETURN) () SI::NON-LOCAL-RETURN-VALUES :D8 (L (1 VALUES 0 BLIP)) @i Add$g (29 CL:ERROR 6 SI::UNWIND-TO-BLIP) (24 ILLEGAL-RETURN) () SI::INTERNAL-THROW :D8 (L (0 TAG&VALUES)) Vekag 3Hdllal2JdIK$aL Mh\JkZM&ggka (83 CL:ERROR 15 SI::UNWIND-TO-BLIP) (76 :TAG 71 ILLEGAL-THROW 10 CL:THROW) () SI::INTERNAL-THROW-VALUES :D8 (L (1 VALUES 0 TAG)) *@g Add$gg@ (39 CL:ERROR 10 SI::UNWIND-TO-BLIP) (33 :TAG 28 ILLEGAL-THROW 5 CL:THROW) () SI::UNWIND-TO-BLIP :D8 (L (2 UNWINDER 1 THROWP 0 BLIP)) BfbkHjkHkH l Xj@kHl lHok dg$AJHg YoH h(gA!kHjkHkH l ٸhitHgB IkHIHh(163 SI::UNWIND 105 ERROR 90 SI::PVAR-VALUE-IN-FRAME 66 SI::VARIABLE-NAME-IN-FRAME) (157 ERROR 114 SI::*CATCH-RETURN-FROM* 85 SI::*CATCH-RETURN-PC* 72 SI::*CATCH-RETURN-TO*) ( 99 "Catch return-to frame lacks PC" 59 -2147483648) SI::UNWIND :D8 (L (2 UNWINDER 0 TARGET) I 1 RESETSTATE) w@BFj@!AgbBfbkBjkBkB l ZHJjkJjhJ@hkJgkdJlB IjI(108 \DISCARDFRAME) (86 SI::*UNWIND-PROTECT* 17 ERROR) () SI::VARIABLE-NAME-IN-FRAME :D8 (L (1 CODE 0 FRAME)) _k@`jk@k@1HlHlHлJY(Kj A Id3 djIInJlкKlл(55 EQP 49 \GETBASEFIXP) NIL () SI::PVAR-VALUE-IN-FRAME :D8 (L (1 ATOM# 0 FRAME)) Ulk@IHdA 5IHI Znn k@l JlZjJHlԸ(51 EQP 36 \GETBASEFIXP 23 EQP) NIL () \DISCARDFRAME :D8 (L (0 CHILD) P 0 \INTERRUPTABLE) 5k@ml k@jk@k@ l IJI kJjkJkJ l [k@jk@@lk@Kl k@Kl kkJjJlلkJkJJkJml NKN kJ_jOkJl`jJlMl؁JM kLjkLlLkL EkLdm5kJOkkJjkJJlkJjl kJjl kK(236 \MAKEFREEBLOCK 205 \MAKEFREEBLOCK 164 \DECUSECOUNT 49 \DECUSECOUNT) NIL () \SMASHRETURN :D8 (L (2 STKP 1 FRAME 0 CALLER) F 3 *CURRENT-PROCESS*) f!@HbHZAi!kJjkJkJ l Zdj߿hB Ah@  A SYhH I`mh@ @Ad Bd oIg kA (146 CL:ERROR 136 PROCESSPROP 119 RELSTK 111 \SMASHLINK 103 SI::UNWIND 85 \SMASHLINK 76 \SMASHLINK 67 RELSTK 61 SI::UNWIND) (131 NAME 91 \RUNNING.PROCESS) ( 125 "Attempt to return to a different process: ~A at frame ~S") \GCSCANSTACK :D8 NIL C``BkHdl׿hkHkHl ѺkHdjJdjJlкkٰkH[kH`j?kHkkHkH[lkK\kH`jkHkHHl kHdnnkklظkHѺKHJjJHlԸJlаLM(MhdlHdIhkHԸ lHkHԸkHѺkHlJHlԸJlаHlԸNIL (11 \InterfacePage 4 \InterfacePage) () CLEARSTKA0001 :D8 (L (0 PAGE) F 2 LST F 3 FLG) Jj@XHlIk IjSgIjIRcHlXnIlYhNIL (40 **CLEAR**) () CLEARSTK :D8 (P 0 LST I 0 FLG) lg H(14 \MAPMDS) (9 CLEARSTKA0001) () HARDRESET :D8 NIL k~NIL NIL () RELSTK :D8 (L (0 POS) P 1 \INTERRUPTABLE) @dHjH @j@(23 \DECUSECOUNT) NIL () RELSTKP :D8 (L (0 X)) G@B@Hj7kHjkHkH l jkH`jkHkHihNIL NIL () \SETUPSTACK1 :D8 (L (9 ARGSLENGTH 8 INITFLG 7 ARGS 6 DEFPTR 5 PC 4 NARGS 3 STKEND 2 CLINK 1 ALINK 0 STKP))  GC@Fl @G$DdGGbkHGGĿHGlԸhbDdj `HGdGbHlԸkٰHlj`HhHlԸihkHnkHkpkH@Hlbk@lk@jk@Hk@Al kk@Bl k@Fk@E@l XG0FdnnkkYj`HnHlԸIkٰk@HlXHCH @(280 \MAKEFREEBLOCK) (243 \STACKSPACE 109 \STACKSPACE 71 \STACKSPACE) () \MAKEFRAME :D8 (L (6 ARGLOCN 5 ARGS 4 CLINK 3 ALINK 2 END 1 ST 0 FN)) >@ ACDBjHdnnkjHdnnkHHEhF (59 \SETUPSTACK1) NIL () \RESETSTACK :D8 NIL k~(4 \RESETSTACK0) NIL () \RESETSTACK0 :D8 NIL n` `hIJlk`KJL`K]!Kk[L`]L`]M`gHdnXjd `gHdnXjd `g jggHdnXjd `g jggHdnXjd `gHdnXjd `gHdnXjd `gHdnXjd `H`I$HkHlHl `H h(387 \SETUPUSERSTACK 372 \SETUPGUARDBLOCK 329 \MAKEFRAME 297 \MAKEFRAME 270 \MAKEFRAME 243 \MAKEFRAME 192 \MAKEFRAME 146 \MAKEFRAME 119 \MAKEFRAME) (378 \InterfacePage 353 \NEED.HARDRESET.CLEANUP 344 \InterfacePage 336 \InterfacePage 315 \MISCSTACKBASE 309 \DOMISCAPPLY 304 \InterfacePage 282 \DOSTACKOVERFLOW 277 \InterfacePage 255 \DOGC 250 \InterfacePage 229 \KBDSTACKBASE 223 \DUMMYKEYHANDLER 217 \KEYHANDLER 204 \KEYHANDLER 199 \InterfacePage 177 \DUMMYTELERAID 171 \DOTELERAID 158 \DOTELERAID 153 \InterfacePage 131 \DOHARDRETURN 126 \InterfacePage 104 \FAULTHANDLER 99 \InterfacePage 93 \SAVED.USER.CONTEXT 79 \InterfacePage 67 \InterfacePage 46 \InterfacePage 30 \InterfacePage 14 \NEED.HARDRESET.CLEANUP 7 \RUNNING.PROCESS) () \SETUPUSERSTACK :D8 (L (0 BASE)) qg@`bdn$#kn$@l$k `n#b@jd @l h`` ll~`(70 \SETUPGUARDBLOCK 62 \MAKEFRAME 39 \UNLOCKPAGES) (109 \RECLAIM.COUNTDOWN 104 \RECLAIMMIN 89 \InterfacePage 83 \DOFAULTINIT 77 \NEED.HARDRESET.CLEANUP 45 \InterfacePage 10 \InterfacePage 4 \CODEFORTFRAME) () \SETUPGUARDBLOCK :D8 (L (1 LEN 0 STKP)) k@nk@A@NIL NIL () \MAKEFREEBLOCK :D8 (L (1 SIZE 0 STK)) k@Ak@nnNIL NIL () \REPEATEDLYEVALQT :D8 (P 0 \INTERRUPTABLE) i(14 EVALQT 8 \RESETSYSTEMSTATE) NIL () \DUMMYKEYHANDLER :D8 NIL lgl l~(13 \CONTEXTAPPLY) (6 \CAUSEINTERRUPT) () \DUMMYTELERAID :D8 NIL l~NIL NIL () \CAUSEINTERRUPT :D8 (L (1 FN 0 CNTXT)) G`@H`hkHYAgIdkIHd X `@Hi(54 \MAKEFRAME) (62 \InterfacePage 38 \INTERRUPTFRAME 17 \InterfacePage 4 \InterfacePage) () \CONTEXTAPPLY :D8 (L (2 ARG 1 FN 0 CNTXT)) !fh`@ BkAhH (29 \SMASHLINK 18 \SMASHLINK) (9 \InterfacePage) () \INTERRUPTFRAME :D8 NIL (4 \INTERRUPTED) NIL () \INTERRUPTED :D8 (F 0 \INTERRUPTABLE) Pi(6 INTERRUPTED) (13 \PENDINGINTERRUPT) () \CODEFORTFRAME :D8 (NAME T) g (19 \REPEATEDLYEVALQT 14 INITIALEVALQT 9 CLEARSTK) (4 **CLEAR**) () \DOMISCAPPLY :D8 NIL (4 \DOMISCAPPLY1) NIL () \DOMISCAPPLY1 :D8 NIL (`d0`2`4lH6l~NIL (22 \InterfacePage 15 \InterfacePage 4 \InterfacePage) () \GATHER-CLEANUP-FORMS :D8 (F 3 \PROCESSES) ES!HhYIJdjI``g:HX (65 \GATHER-CLEANUP-FORMS1) (52 ERROR 45 \SAVED.USER.CONTEXT 38 \RUNNING.PROCESS 25 PROCESS 16 PROCESS) () \GATHER-CLEANUP-FORMS1 :D8 (L (0 FRAME)) ``R@jJH@@Ik@lk@`jk@k@^ k@j@lٻik@[HIKkKlkdK[ ~L@NK 5Ndg.hkd@lhJik@j9k@7JgL@g ]gMhhok@ l bg(234 SI::PVAR-VALUE-IN-FRAME 154 \GATHER-SPECIAL-BINDINGS 142 \VALIDADDRESSP 75 \VALIDADDRESSP) (273 ERROR 242 SI::*RESETFORMS* 229 SI::*RESETFORMS* 217 \MAKE.PROCESS0 165 SI::*UNWIND-PROTECT* 11 \InterfacePage 4 \InterfacePage) ( 253 ((NIL SI::RESETUNWIND))) \GATHER-SPECIAL-BINDINGS :D8 (L (2 IVAR 1 NT 0 FRAME)) AjhlAAHZAHA Yn\n KJd3 djJJnZ`JKLdjJBIlhKHlԸnk@l IlYjJIi(52 EQP 36 \GETBASEFIXP) (82 *HARDRESET-IGNORE-VARS*) () \HARDRESET-CLEANUP :D8 (L (0 PROCESS)) @:jhd Hh@h:lH \J[Htd_dhOOOO_h_Ud__O_L _OdO OO%O_O;KdO&OIkYOhL Idklm^lkk]OOhkdjMINOJL (221 \HARDRESET-CLEANUP1 156 PUTHASH 111 MEMB 98 GETHASH 42 HASHARRAY 36 LENGTH) (25 PROCESS 5 PROCESS) () \HARDRESET-CLEANUP1 :D8 (L (5 TABLE 4 VARIABLES 3 MASTERLIST 2 NTSIZE 1 NVARS 0 NNILS) P 15 \INTERRUPTABLE P 9 \INTERRUPTABLE) fkHkdH@YAlmZIHl k[kIl\ DkldBOfJdngnJlkgJBkHj0kHJkHk`kjhCAOOg_LOOE OdlӌlO]3 JOjMфJOMJOnJOkKOO_Ok_Ol_Ol_"d {i_ud_E _oO ULO_O_4OOOO_ NdnOnNjkOOE OlO_i(408 REMHASH 331 HELP 316 GETHASH 298 \HARDRESET-CLEANUP-RUN 209 SHOULDNT 181 GETHASH) (163 ERROR 101 \HARDRESET-CLEANUP 81 \HARDRESET-CLEANUP) ( 324 "HARDRESET miscalculation -- Trying to unbind var that is not bound") \HARDRESET-CLEANUP-RUNA0001 :D8 (L (0 C)) gi (10 RETFROM) (4 \HARDRESET-CLEANUP-RUN) () \HARDRESET-CLEANUP-RUN :D8 (L (0 CLEANUPFN) P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS*) ggQj@hNIL (9 \HARDRESET-CLEANUP-RUNA0001 4 CL:ERROR) () \DORETCALL :D8 (L (1 RETURNER 0 NARGS)) `kHjkHkH l ٹjkIkIKJlKJkѼkIjkIkI l ٽkI@վM H `nM _LOdkOMdkN@  o _O(157 RAID 145 \MAKEFRAME 119 \FREESTACKBLOCK 105 \DECUSECOUNT 99 \INCUSECOUNT) (110 \InterfacePage 4 \InterfacePage) ( 152 "couldn't make a frame") \RETCALL :D8 (L (0 NARGS) P 0 \INTERRUPTABLE) +`g0`@2`h4l~`6NIL (38 \InterfacePage 27 \InterfacePage 19 \InterfacePage 12 \DORETCALL 7 \InterfacePage) () \DOSTACKFULLINTERRUPTA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS*) ghhdPci (20 STACK.FULL.WARNING) (4 \CLEANUP.STACKFULL) () \DOSTACKFULLINTERRUPT :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) -`jPjdhS!g $(38 SI::RESETUNWIND 33 \MVLIST 28 \DOSTACKFULLINTERRUPTA0003) (23 SI::RESETUNWIND 4 \INTERRUPTSTATE) () STACK.FULL.WARNING :D8 (I 0 FLG) @hbdl h(13 \LISPERROR) NIL () \CLEANUP.STACKFULL :D8 (F 0 RESETSTATE) H`d1dgdgP`Pdgdgih h(69 HARDRESET) (64 \STACKOVERFLOW 49 RESET 41 ERROR 30 AUTOHARDRESETFLG 21 RESET 13 ERROR 4 AUTOHARDRESETFLG) () (PRETTYCOMPRINT LLSTKCOMS) (RPAQQ LLSTKCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS BF FX FSB STK) (CONSTANTS \#ALINK.OFFSET) ( GLOBALVARS \PENDINGINTERRUPT \KBDSTACKBASE \MISCSTACKBASE \STACKOVERFLOW) (MACROS \MYALINK ADDSTACKBASE STACKADDBASE STACKGETBASE STACKGETBASEPTR STACKPUTBASE STACKPUTBASEPTR \MISCAPPLY*) ( RECORDS STACKP) (CONSTANTS * STACKTYPES) (CONSTANTS \StackAreaSize (\InitStackSize (ITIMES \StackAreaSize 12))) (CONSTANTS \MAXSAFEUSECOUNT) (RECORDS NAMETABLESLOT FVARSLOT PVARSLOT STKTEMPSLOT BINDMARKSLOT) (CONSTANTS \NT.IVAR \NT.PVAR \NT.FVAR)) (RECORDS STACKCELL)) (COMS (* ; "For LAMBDA* and Common Lisp functions.") (FNS \MYARGCOUNT \ARG0 \SETARG0)) (COMS (* ; "basic spaghetti for allocating, moving and reclaiming stack frames") (FNS \HARDRETURN \DOHARDRETURN \DOGC1 \DOGC \DOHARDRETURN1 \DOSTACKOVERFLOW \MOVEFRAME \INCUSECOUNT \DECUSECOUNT \MAKESTACKP \SMASHLINK \FREESTACKBLOCK \EXTENDSTACK)) (COMS (* ; "Some ugly stack-munging ufns") (FNS \SLOWRETURN \COPY.N.UFN \POP.N.UFN \STORE.N.UFN \UNWIND.UFN)) (COMS (* ; "The unwinder") (FNS SI::NON-LOCAL-GO SI::NON-LOCAL-RETURN SI::NON-LOCAL-RETURN-VALUES SI::INTERNAL-THROW SI::INTERNAL-THROW-VALUES SI::UNWIND-TO-BLIP SI::UNWIND SI::VARIABLE-NAME-IN-FRAME SI::PVAR-VALUE-IN-FRAME) (FNS \DISCARDFRAME \SMASHRETURN)) (COMS (* ; "parsing stack for gc") (FNS \GCSCANSTACK)) (COMS (* ; "setting up stack from scratch") (FNS CLEARSTK HARDRESET RELSTK RELSTKP) (FNS SETUPSTACK \SETUPSTACK1 \MAKEFRAME \RESETSTACK \RESETSTACK0 \SETUPUSERSTACK \SETUPGUARDBLOCK \MAKEFREEBLOCK \REPEATEDLYEVALQT \DUMMYKEYHANDLER \DUMMYTELERAID \CAUSEINTERRUPT \CONTEXTAPPLY \INTERRUPTFRAME \INTERRUPTED \CODEFORTFRAME \DOMISCAPPLY \DOMISCAPPLY1) (INITVARS \SAVED.USER.CONTEXT \NEED.HARDRESET.CLEANUP) ( GLOBALVARS \SAVED.USER.CONTEXT \NEED.HARDRESET.CLEANUP)) (COMS (* ; "HARDRESET recovery code") (FNS \GATHER-CLEANUP-FORMS \GATHER-CLEANUP-FORMS1 \GATHER-SPECIAL-BINDINGS \HARDRESET-CLEANUP \HARDRESET-CLEANUP1 \HARDRESET-CLEANUP-RUN) (VARS *HARDRESET-IGNORE-VARS*) (GLOBALVARS *HARDRESET-IGNORE-VARS*)) (COMS (* ; "Ufns for RETCALL") (FNS \DORETCALL \RETCALL)) (INITVARS ( STACKTESTING T)) (COMS (* ; "Stack overflow handler") (FNS \DOSTACKFULLINTERRUPT STACK.FULL.WARNING \CLEANUP.STACKFULL) (INITVARS (\PENDINGINTERRUPT) (\STACKOVERFLOW) (AUTOHARDRESETFLG T)) (ADDVARS ( RESETFORMS (SETQ \STACKOVERFLOW))) (GLOBALVARS AUTOHARDRESETFLG)) (DECLARE%: DONTCOPY (ADDVARS ( INEWCOMS (FNS SETUPSTACK \SETUPSTACK1 \SETUPGUARDBLOCK \MAKEFREEBLOCK) (ALLOCAL (ADDVARS (LOCKEDFNS \RESETSTACK0 \MAKEFRAME \SETUPSTACK1 \MAKEFREEBLOCK \FAULTHANDLER \KEYHANDLER \DUMMYKEYHANDLER \DOTELERAID \DUMMYTELERAID \DOHARDRETURN \DOGC \CAUSEINTERRUPT \INTERRUPTFRAME \CODEFORTFRAME \DOSTACKOVERFLOW \UNLOCKPAGES \DOMISCAPPLY) (LOCKEDVARS \InterfacePage \DEFSPACE \STACKSPACE \KBDSTACKBASE \MISCSTACKBASE \SAVED.USER.CONTEXT \RUNNING.PROCESS \NEED.HARDRESET.CLEANUP)))) ( EXPANDMACROFNS ADDSTACKBASE STACKADDBASE)) EVAL@COMPILE (ADDVARS (DONTCOMPILEFNS SETUPSTACK))) ( LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA SI::INTERNAL-THROW SI::NON-LOCAL-RETURN))))) (RPAQ? \SAVED.USER.CONTEXT NIL) (RPAQ? \NEED.HARDRESET.CLEANUP NIL) (RPAQQ *HARDRESET-IGNORE-VARS* (SI::*CLEANUP-FORMS* SI::*DUMMY-FOR-CATCH* SI::*CATCH-RETURN-FROM* SI::*CATCH-RETURN-TO* *FORM* *ARGVAL* *FN* *TAIL* *FIRSTTAIL* \INTERNAL \INTERRUPTABLE SI::*NLSETQFLAG* *PROCEED-CASES*)) (RPAQ? STACKTESTING T) (RPAQ? \PENDINGINTERRUPT) (RPAQ? \STACKOVERFLOW) (RPAQ? AUTOHARDRESETFLG T) (ADDTOVAR RESETFORMS (SETQ \STACKOVERFLOW)) (PRETTYCOMPRINT LLSTKCOMS) (RPAQQ LLSTKCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS BF FX FSB STK) (CONSTANTS \#ALINK.OFFSET) ( GLOBALVARS \PENDINGINTERRUPT \KBDSTACKBASE \MISCSTACKBASE \STACKOVERFLOW) (MACROS \MYALINK ADDSTACKBASE STACKADDBASE STACKGETBASE STACKGETBASEPTR STACKPUTBASE STACKPUTBASEPTR \MISCAPPLY*) ( RECORDS STACKP) (CONSTANTS * STACKTYPES) (CONSTANTS \StackAreaSize (\InitStackSize (ITIMES \StackAreaSize 12))) (CONSTANTS \MAXSAFEUSECOUNT) (RECORDS NAMETABLESLOT FVARSLOT PVARSLOT STKTEMPSLOT BINDMARKSLOT) (CONSTANTS \NT.IVAR \NT.PVAR \NT.FVAR)) (RECORDS STACKCELL)) (COMS (* ; "For LAMBDA* and Common Lisp functions.") (FNS \MYARGCOUNT \ARG0 \SETARG0)) (COMS (* ; "basic spaghetti for allocating, moving and reclaiming stack frames") (FNS \HARDRETURN \DOHARDRETURN \DOGC1 \DOGC \DOHARDRETURN1 \DOSTACKOVERFLOW \MOVEFRAME \INCUSECOUNT \DECUSECOUNT \MAKESTACKP \SMASHLINK \FREESTACKBLOCK \EXTENDSTACK)) (COMS (* ; "Some ugly stack-munging ufns") (FNS \SLOWRETURN \COPY.N.UFN \POP.N.UFN \STORE.N.UFN \UNWIND.UFN)) (COMS (* ; "The unwinder") (FNS SI::NON-LOCAL-GO SI::NON-LOCAL-RETURN SI::NON-LOCAL-RETURN-VALUES SI::INTERNAL-THROW SI::INTERNAL-THROW-VALUES SI::UNWIND-TO-BLIP SI::UNWIND SI::VARIABLE-NAME-IN-FRAME SI::PVAR-VALUE-IN-FRAME) (FNS \DISCARDFRAME \SMASHRETURN)) (COMS (* ; "parsing stack for gc") (FNS \GCSCANSTACK)) (COMS (* ; "setting up stack from scratch") (FNS CLEARSTK HARDRESET RELSTK RELSTKP) (FNS SETUPSTACK \SETUPSTACK1 \MAKEFRAME \RESETSTACK \RESETSTACK0 \SETUPUSERSTACK \SETUPGUARDBLOCK \MAKEFREEBLOCK \REPEATEDLYEVALQT \DUMMYKEYHANDLER \DUMMYTELERAID \CAUSEINTERRUPT \CONTEXTAPPLY \INTERRUPTFRAME \INTERRUPTED \CODEFORTFRAME \DOMISCAPPLY \DOMISCAPPLY1) (INITVARS \SAVED.USER.CONTEXT \NEED.HARDRESET.CLEANUP) ( GLOBALVARS \SAVED.USER.CONTEXT \NEED.HARDRESET.CLEANUP)) (COMS (* ; "HARDRESET recovery code") (FNS \GATHER-CLEANUP-FORMS \GATHER-CLEANUP-FORMS1 \GATHER-SPECIAL-BINDINGS \HARDRESET-CLEANUP \HARDRESET-CLEANUP1 \HARDRESET-CLEANUP-RUN) (VARS *HARDRESET-IGNORE-VARS*) (GLOBALVARS *HARDRESET-IGNORE-VARS*)) (COMS (* ; "Ufns for RETCALL") (FNS \DORETCALL \RETCALL)) (INITVARS ( STACKTESTING T)) (COMS (* ; "Stack overflow handler") (FNS \DOSTACKFULLINTERRUPT STACK.FULL.WARNING \CLEANUP.STACKFULL) (INITVARS (\PENDINGINTERRUPT) (\STACKOVERFLOW) (AUTOHARDRESETFLG T)) (ADDVARS ( RESETFORMS (SETQ \STACKOVERFLOW))) (GLOBALVARS AUTOHARDRESETFLG)) (DECLARE%: DONTCOPY (ADDVARS ( INEWCOMS (FNS SETUPSTACK \SETUPSTACK1 \SETUPGUARDBLOCK \MAKEFREEBLOCK) (ALLOCAL (ADDVARS (LOCKEDFNS \RESETSTACK0 \MAKEFRAME \SETUPSTACK1 \MAKEFREEBLOCK \FAULTHANDLER \KEYHANDLER \DUMMYKEYHANDLER \DOTELERAID \DUMMYTELERAID \DOHARDRETURN \DOGC \CAUSEINTERRUPT \INTERRUPTFRAME \CODEFORTFRAME \DOSTACKOVERFLOW \UNLOCKPAGES \DOMISCAPPLY) (LOCKEDVARS \InterfacePage \DEFSPACE \STACKSPACE \KBDSTACKBASE \MISCSTACKBASE \SAVED.USER.CONTEXT \RUNNING.PROCESS \NEED.HARDRESET.CLEANUP)))) ( EXPANDMACROFNS ADDSTACKBASE STACKADDBASE)) EVAL@COMPILE (ADDVARS (DONTCOMPILEFNS SETUPSTACK))) ( LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA SI::INTERNAL-THROW-VALUES SI::INTERNAL-THROW SI::NON-LOCAL-RETURN-VALUES SI::NON-LOCAL-RETURN))) )) (PUTPROPS LLSTK COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 1992 1993)) NIL