franz/fex2.c
/*
 * function
 * In the interpreter, function is the same as quote
 */
function
In the interpreter, function is the same as quote
function In the interpreter function is the same as quote
lispval
Nfunction()
{
	if((lbot->val == nil) || (lbot->val->d.cdr != nil))
		argerr("function");
	return(lbot->val->d.car);
}
lispval Nfunction ( ) { if ( ( lbot -> val == nil ) || ( lbot -> val -> d . cdr != nil ) ) argerr ( " " ) ; return ( lbot -> val -> d . car ) ; }
function
 In the interpreter, function is the same as quote
function In the interpreter function is the same as quote