franz/fex1.c
/* this was changed from throw to *throw 21nov79
   it is now a lambda and really should be called Lthrow
*/
this was changed from throw to *throw 21nov79
it is now a lambda and really should be called Lthrow
this was changed from throw to * throw 21nov79 it is now a lambda and really should be called Lthrow
lispval
Nthrow()
{
	switch(np-lbot) {
	case 0:
		protect(nil);
	case 1:
		protect(nil);
	case 2: break;
	default:
		argerr("throw");
	}
	Inonlocalgo(C_THROW,lbot->val,(lbot+1)->val);
}
lispval Nthrow ( ) { switch ( np - lbot ) { case 0 : protect ( nil ) ; case 1 : protect ( nil ) ; case 2 : break ; default : argerr ( " " ) ; } Inonlocalgo ( C_THROW , lbot -> val , ( lbot + 1 ) -> val ) ; }
this was changed from throw to *throw 21nov79
it is now a lambda and really should be called Lthrow
this was changed from throw to * throw 21nov79 it is now a lambda and really should be called Lthrow
/* NOT REACHED */