franz/eval.c
/* unprot
 * returns the top thing on the name stack.  Underflow had better not
 * occur.
 */
unprot
returns the top thing on the name stack.  Underflow had better not
occur.
unprot returns the top thing on the name stack . Underflow had better not occur .
lispval
unprot()
    {
    return((--np)->val);
    }
lispval unprot ( ) { return ( ( -- np ) -> val ) ; }
unprot
 returns the top thing on the name stack.
unprot returns the top thing on the name stack .