if (obj)
{
if (!lisp_integer_p(lisp_car(obj)))
- st_abort("LispReader expected type integer at token: ", name);
+ {
+ //st_abort("LispReader expected type integer at token: ", name); /* Instead of giving up, we return with false now. */
+ return false;
+ }
*i = lisp_integer(lisp_car(obj));
return true;
}
if (has_suffix(filename.c_str(), ".gz"))
{
return lisp_read_from_gzfile(filename.c_str());
-#if 0
- lisp_object_t* obj = 0;
- gzFile in = gzopen(filename, "r");
-
- if (in)
- {
- lisp_stream_init_gzfile(&stream, in);
- obj = lisp_read(&stream);
- gzclose(in);
- }
- return obj;
-#endif
}
else
{
obj = lisp_read(&stream);
fclose(in);
}
- else {
- std::cerr << "LispReader: File not found: " << filename << endl;
- st_abort("aborting", "");
- }
-
-
return obj;
}