src/kprint.c
/************************************************************************/
/*									*/
/*				P R I N T				*/
/*									*/
/*	Equivalent to the Lisp function PRINT,  prints the object.	*/
/*									*/
/************************************************************************/
P R I N T

Equivalent to the Lisp function PRINT,  prints the object.
P R I N T Equivalent to the Lisp function PRINT prints the object .
LispPTR print(LispPTR x) {
  Printdepth = 0;
  prindatum(x & POINTERMASK);
  return (x);
}
LispPTR print ( LispPTR x ) { Printdepth = 0 ; prindatum ( x & POINTERMASK ) ; return ( x ) ; }
P R I N T
P R I N T
/* printf("\n"); */ /* print CR */