franz/lam1.c
/*
 * (pntlen thing) returns the length it takes to print out
 * an atom or number.
 */
(pntlen thing) returns the length it takes to print out
an atom or number.
( pntlen thing ) returns the length it takes to print out an atom or number .
lispval
Lpntlen()
{
	return(inewint((long)Ipntlen()));
}
lispval Lpntlen ( ) { return ( inewint ( ( long ) Ipntlen ( ) ) ) ; }
(pntlen thing) returns the length it takes to print out
 an atom or number.
( pntlen thing ) returns the length it takes to print out an atom or number .