franz/lam7.c
/*** Iunbindvars :: unbind the variable stacked by Ibindvars
     called by compiled progv's
 ***/
Iunbindvars :: unbind the variable stacked by Ibindvars
called by compiled progv's
Iunbindvars :: unbind the variable stacked by Ibindvars called by compiled progv ' s
lispval
Iunbindvars()
{
    struct nament *oldbnp;
    chkarg(1,"int:unbindvars");
    oldbnp = (struct nament *) (lbot[0].val->i);
    if((oldbnp < orgbnp)  || ( oldbnp > bnp))
       errorh1(Vermisc,"int:unbindvars: bad bnp value given ",nil,FALSE,0,
       		lbot[0].val);
    popnames(oldbnp);
    return(nil);
}
lispval Iunbindvars ( ) { struct nament * oldbnp ; chkarg ( 1 , " " ) ; oldbnp = ( struct nament * ) ( lbot [ 0 ] . val -> i ) ; if ( ( oldbnp < orgbnp ) || ( oldbnp > bnp ) ) errorh1 ( Vermisc , " " , nil , FALSE , 0 , lbot [ 0 ] . val ) ; popnames ( oldbnp ) ; return ( nil ) ; }
Iunbindvars :: unbind the variable stacked by Ibindvars
called by compiled progv's
Iunbindvars :: unbind the variable stacked by Ibindvars called by compiled progv ' s