/*
 * Lisp read print loop test
 * Don Hopkins
 */

#include "lisp.h"

main()
{
  object obj;

  init_atoms();
  
  Ob_Push();

  fprintf(stderr, "Entering error print loop.\n");

  while (1) {
    Ob_Save(obj = error("Debug test"));
    printf(stderr, "Debug ==> ");
    show_object(obj);
    Ob_Unbind();
  }
}