franz/lam1.c
/*
 * (print 'expression ['port]) prints the given expression to the given
 * port or poport if no port is given.  The amount of structure
 * printed is a function of global lisp variables plevel and
 * plength.
 */
(print 'expression ['port]) prints the given expression to the given
port or poport if no port is given.  The amount of structure
printed is a function of global lisp variables plevel and
plength.
( print ' expression [ ' port ] ) prints the given expression to the given port or poport if no port is given . The amount of structure printed is a function of global lisp variables plevel and plength .
lispval
Lprint()
{
	register lispval handy;
	extern int plevel,plength;
	handy = nil;			
	switch(np-lbot) 
	{
	    case 2: handy = lbot[1].val;
	    case 1: break;
	    default: argerr("print");
	}
	chkrtab(Vreadtable->a.clb);
	if(TYPE(Vprinlevel->a.clb) == INT)
	{ 
	   plevel = Vprinlevel->a.clb->i;
	}
	else plevel = -1;
	if(TYPE(Vprinlength->a.clb) == INT)
	{
	    plength = Vprinlength->a.clb->i;
	}
	else plength = -1;
	printr(lbot->val,okport(handy,okport(Vpoport->a.clb,poport)));
	return(nil);
}
lispval Lprint ( ) { register lispval handy ; extern int plevel , plength ; handy = nil ; switch ( np - lbot ) { case 2 : handy = lbot [ 1 ] . val ; case 1 : break ; default : argerr ( " " ) ; } chkrtab ( Vreadtable -> a . clb ) ; if ( TYPE ( Vprinlevel -> a . clb ) == INT ) { plevel = Vprinlevel -> a . clb -> i ; } else plevel = -1 ; if ( TYPE ( Vprinlength -> a . clb ) == INT ) { plength = Vprinlength -> a . clb -> i ; } else plength = -1 ; printr ( lbot -> val , okport ( handy , okport ( Vpoport -> a . clb , poport ) ) ) ; return ( nil ) ; }
(print 'expression ['port]) prints the given expression to the given
 port or poport if no port is given.
( print ' expression [ ' port ] ) prints the given expression to the given port or poport if no port is given .
/* port is optional, default nil */