// Primitive function to implement the LISP51 GC-LIMIT
// function.
//
// File:	p_gclim.cc
// Author:	course
// Version:	1

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

//  gc-limit -- returns the gc limit
//
object * prim_gc_limit (object * arglist)
{
    if (! null(arglist))
        error ( "GC-LIMIT: No arguments expected: ",
		arglist );
  
    return make_fixnum (gc_limit());
}