/[gcl]/gcl/o/file.d
ViewVC logotype

Diff of /gcl/o/file.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by camm, Fri Nov 1 04:09:34 2002 UTC revision 1.17 by camm, Mon Nov 11 03:43:06 2002 UTC
# Line 1429  char *s; Line 1429  char *s;
1429          object filename, strm, x;          object filename, strm, x;
1430          vs_mark;          vs_mark;
1431    
1432            if (user_match(s,strlen(s)))
1433                    return;
1434          filename = make_simple_string(s);          filename = make_simple_string(s);
1435          vs_push(filename);          vs_push(filename);
1436          strm = open_stream(filename, smm_input, Cnil, sKerror);          strm = open_stream(filename, smm_input, Cnil, sKerror);
# Line 1757  object sSAload_pathnameA; Line 1759  object sSAload_pathnameA;
1759          pathname = merge_pathnames(pathname, defaults, sKnewest);          pathname = merge_pathnames(pathname, defaults, sKnewest);
1760          pntype = pathname->pn.pn_type;          pntype = pathname->pn.pn_type;
1761          filename = coerce_to_namestring(pathname);          filename = coerce_to_namestring(pathname);
1762            if (user_match(filename->st.st_self,filename->st.st_fillp))
1763                    @(return Cnil)
1764          old_bds_top=bds_top;          old_bds_top=bds_top;
1765          if (pntype == Cnil || pntype == sKwild ||          if (pntype == Cnil || pntype == sKwild ||
1766              (type_of(pntype) == t_string &&              (type_of(pntype) == t_string &&

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26