franz/fexr.c
/*  Nopval  *************************************************************/
/*									*/
/*  Routine which allows system registers and options to be examined	*/
/*  and modified.  Calls copval, the routine which is called by c code	*/
/*  to do the same thing from inside the system.			*/
Nopval
Routine which allows system registers and options to be examined
and modified.  Calls copval, the routine which is called by c code
to do the same thing from inside the system.
Nopval Routine which allows system registers and options to be examined and modified . Calls copval the routine which is called by c code to do the same thing from inside the system .
lispval 
Nopval()
	{
	lispval quant;
	if( TYPE(lbot->val) != DTPR )
		return(error("BAD CALL TO OPVAL",TRUE));
	quant = eval(lbot->val->d.car);	
	while( TYPE(quant) != ATOM )
		quant = error("FIRST ARG TO OPVAL MUST BE AN ATOM",TRUE);
	if( (vtemp=lbot->val->d.cdr) != nil && TYPE(lbot->val->d.cdr) != DTPR )
		return(error("BAD ARG LIST FOR OPVAL",TRUE));
	return(copval(
		quant,
		vtemp==nil ? (lispval)CNIL : eval(vtemp->d.car)
		));
	}
lispval Nopval ( ) { lispval quant ; if ( TYPE ( lbot -> val ) != DTPR ) return ( error ( " " , TRUE ) ) ; quant = eval ( lbot -> val -> d . car ) ; while ( TYPE ( quant ) != ATOM ) quant = error ( " " , TRUE ) ; if ( ( vtemp = lbot -> val -> d . cdr ) != nil && TYPE ( lbot -> val -> d . cdr ) != DTPR ) return ( error ( " " , TRUE ) ) ; return ( copval ( quant , vtemp == nil ? ( lispval ) CNIL : eval ( vtemp -> d . car ) ) ) ; }
Nopval
Routine which allows system registers and options to be examined
and modified.
Nopval Routine which allows system registers and options to be examined and modified .
/*  evaluate name of sys variable  */