|
|
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.