usr/src/cmd/lisp/h/catchfram.h

/* sccs id  @(#)catchfram.h     34.1  10/3/80  */

struct catchfr {                /* catch and errset frame */
    struct catchfr *link;       /* link to next catchframe */
           lispval flag;                /* Do we print ?  */
           lispval labl;        /* label caught at this point  */
    struct nament *svbnp;       /* saved bnp */
           lispval retenv[11];  /* reset environment - actually a savblock */
           lispval rs[4];       /* regis 6-11 and 13 */
       lispval (*retadr)();     /* address to continue execution */
};

struct savblock {
        lispval envir[10];
        struct savblock *savlnk;
};