franz/fex1.c
/* Ngo ******************************************************************/
/* First argument only is checked - and must be an atom or evaluate	*/
/* to one.								*/
Ngo
First argument only is checked - and must be an atom or evaluate
to one.
Ngo First argument only is checked - and must be an atom or evaluate to one .
lispval
Ngo() 
{
    register lispval temp;
    chkarg(1,"go");
    temp = (lbot->val)->d.car;
    if (TYPE(temp) != ATOM)
    {
	temp = eval(temp);
	while(TYPE(temp) != ATOM) 
	  temp = errorh1(Vermisc,"Illegal tag to go to",nil,TRUE, 0,lbot->val);
    }
    Inonlocalgo(C_GO,temp,nil);
}
lispval Ngo ( ) { register lispval temp ; chkarg ( 1 , " " ) ; temp = ( lbot -> val ) -> d . car ; if ( TYPE ( temp ) != ATOM ) { temp = eval ( temp ) ; while ( TYPE ( temp ) != ATOM ) temp = errorh1 ( Vermisc , " " , nil , TRUE , 0 , lbot -> val ) ; } Inonlocalgo ( C_GO , temp , nil ) ; }
Ngo
First argument only is checked - and must be an atom or evaluate
to one.
Ngo First argument only is checked - and must be an atom or evaluate to one .
/* NOT REACHED */