franz/lam8.c
/*
 * Lpurep returns t if the given arg is in pure space
 */
Lpurep returns t if the given arg is in pure space
Lpurep returns t if the given arg is in pure space
lispval
Lpurep()
{
    lispval Ipurep();
    chkarg(1,"purep");
    return(Ipurep(lbot->val));
}
lispval Lpurep ( ) { lispval Ipurep ( ) ; chkarg ( 1 , " " ) ; return ( Ipurep ( lbot -> val ) ) ; }
Lpurep returns t if the given arg is in pure space
Lpurep returns t if the given arg is in pure space