2196 |
if (fasl_filename == Cnil) { |
if (fasl_filename == Cnil) { |
2197 |
FILE *f; |
FILE *f; |
2198 |
char b[32],fn[4096];/*FIXME*/ |
char b[32],fn[4096];/*FIXME*/ |
2199 |
int i; |
int i,n; |
2200 |
coerce_to_local_filename(pathname,fn); |
coerce_to_local_filename(pathname,fn); |
2201 |
if (!(f=fopen(fn,"rb"))) |
if (!(f=fopen(fn,"rb"))) |
2202 |
file_error("Cannot open ~S",pathname); |
file_error("Cannot open ~S",pathname); |
2203 |
fread(b,sizeof(b),1,f); |
n=fread(b,sizeof(b),1,f); |
2204 |
fclose(f); |
fclose(f); |
2205 |
for (i=0;i<sizeof(b) && (!iscntrl(b[i]) || isspace(b[i]));i++); |
for (i=0;i<n && (!iscntrl(b[i]) || isspace(b[i]));i++); |
2206 |
if (i<sizeof(b)) |
if (i<n) |
2207 |
fasl_filename = coerce_to_local_namestring(pathname); |
fasl_filename = coerce_to_local_namestring(pathname); |
2208 |
} |
} |
2209 |
|
|