franz/fex1.c
/* Nbreak ***************************************************************/
/* If first argument is not nil, this is evaluated and printed.  Then	*/
/* error is called with the "breaking" message.				*/
Nbreak
If first argument is not nil, this is evaluated and printed.  Then
error is called with the "breaking" message.
Nbreak If first argument is not nil this is evaluated and printed . Then error is called with the " breaking " message .
lispval
Nbreak()
{
	register lispval hold; register FILE *port;
	port = okport(Vpoport->a.clb,stdout);
	fprintf(port,"Breaking:");
	if ((hold = lbot->val) != nil && ((hold = hold->d.car) != nil))
	{
		printr(hold,port);
	}
	putc('\n',port);
	dmpport(port);
	return(errorh(Verbrk,"",nil,TRUE,0));
}
lispval Nbreak ( ) { register lispval hold ; register FILE * port ; port = okport ( Vpoport -> a . clb , stdout ) ; fprintf ( port , " " ) ; if ( ( hold = lbot -> val ) != nil && ( ( hold = hold -> d . car ) != nil ) ) { printr ( hold , port ) ; } putc ( ' \n ' , port ) ; dmpport ( port ) ; return ( errorh ( Verbrk , " " , nil , TRUE , 0 ) ) ; }
Nbreak
If first argument is not nil, this is evaluated and printed.
Nbreak If first argument is not nil this is evaluated and printed .