|
|
1.1 ! root 1: struct catchfr { /* catch and errset frame */ ! 2: struct catchfr *link; /* link to next catchframe */ ! 3: lispval flag; /* Do we print ? */ ! 4: lispval labl; /* label caught at this point */ ! 5: struct nament *svbnp; /* saved bnp */ ! 6: lispval retenv[10]; /* reset environment */ ! 7: lispval rs[4]; /* regis 6-11 and 13 */ ! 8: lispval (*retadr)(); /* address to continue execution */ ! 9: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.