// Primitive function to implement the COMMONLISP CAR
// function.
//
// File:	p_car.cc
// Author:      {your name} <{your e-mail address}>
// Assignment:  8

#include "lisp.h"

//  car -- takes a list and returns its first element
//
	object *
prim_car (object * arglist)
{
    return NIL;	// Replace this.
}