// Primitive function to implement the COMMONLISP GC
// function.
//
// File:	p_gc.cc
// Author:	course
// Version:	1

#include "lisp.h"
#include "gc.h"

//  gc -- takes no arguments and invokes garbage
//	  collection
//
	object *
prim_gc (object * arglist)
{
    if (!null (arglist))
	error ("GC: No arguments expected: ", arglist);
    gc();
    return NIL;
}