/*
 * lispdev.c
 */

#include "scanner.h"
#include "parse.h"
#include "lisp.h"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
extern Sp varlist, funclist;

void main(void)
{
	Sp s;
	inittrueatom();
	initlispstuff();
	writesexpr(trueatom);
	while(1) {
		s = sexpr();
                if ((s != NULL) &&
			(ctype(s) == a) &&
			(strcmp(chars(s),"HALT") == 0)) exit(0);
		writesexpr(eval(s));
	}
}