- /* allocator test */
- for (j = 0; j < 10; j++) {
- list = 0;
- string = ao_lisp_string_new(0);
- for (i = 0; i < 2; i++) {
- string = ao_lisp_string_cat(string, "a");
- list = ao_lisp_cons_cons(ao_lisp_string_poly(string), list);
- list = ao_lisp_cons_cons(ao_lisp_int_poly(i), list);
- atom = ao_lisp_atom_intern("ant");
- atom->val = ao_lisp_cons_poly(list);
- list = ao_lisp_cons_cons(ao_lisp_atom_poly(atom), list);
- }
- ao_lisp_poly_print(ao_lisp_cons_poly(list));
- printf("\n");
+int
+ao_lisp_os_restore_save(struct ao_lisp_os_save *save, int offset)
+{
+ FILE *restore = fopen(save_file, "r");
+ size_t ret;
+
+ if (!restore) {
+ perror(save_file);
+ return 0;