* Copyright (c) 1988, 1989, 1990 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* %sccs.include.redist.c%
static char sccsid
[] = "@(#)lstFirst.c 5.3 (Berkeley) %G%";
* Return the first node of a list
*-----------------------------------------------------------------------
* Return the first node on the given list.
* The first node or NILLNODE if the list is empty.
*-----------------------------------------------------------------------
if (!LstValid (l
) || LstIsEmpty (l
)) {
return ((LstNode
)((List
)l
)->firstPtr
);