2193 |
pathname->pn.pn_type = FASL_string; |
pathname->pn.pn_type = FASL_string; |
2194 |
fasl_filename = coerce_to_local_namestring(pathname); |
fasl_filename = coerce_to_local_namestring(pathname); |
2195 |
} |
} |
2196 |
|
if (fasl_filename == Cnil) { |
2197 |
|
FILE *f; |
2198 |
|
char b[32],fn[4096];/*FIXME*/ |
2199 |
|
int i; |
2200 |
|
coerce_to_local_filename(pathname,fn); |
2201 |
|
if (!(f=fopen(fn,"rb"))) |
2202 |
|
file_error("Cannot open ~S",pathname); |
2203 |
|
fread(b,sizeof(b),1,f); |
2204 |
|
fclose(f); |
2205 |
|
for (i=0;i<sizeof(b) && (!iscntrl(b[i]) || isspace(b[i]));i++); |
2206 |
|
if (i<sizeof(b)) |
2207 |
|
fasl_filename = coerce_to_local_namestring(pathname); |
2208 |
|
} |
2209 |
|
|
2210 |
if (fasl_filename != Cnil && file_exists(fasl_filename)) { |
if (fasl_filename != Cnil && file_exists(fasl_filename)) { |
2211 |
if (verbose != Cnil) { |
if (verbose != Cnil) { |
2212 |
SETUP_PRINT_DEFAULT(fasl_filename); |
SETUP_PRINT_DEFAULT(fasl_filename); |