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

Diff of /gcl/o/pathname.d

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

revision 1.20 by mjthomas, Tue Jul 27 05:58:14 2004 UTC revision 1.21 by camm, Wed Dec 1 17:46:32 2004 UTC
# Line 267  pathname_case_word(word, casekey) Line 267  pathname_case_word(word, casekey)
267  object word, casekey;  object word, casekey;
268  {  {
269          object x=word;          object x=word;
270    
271    #ifdef ANSI_COMMON_LISP
272    
273          int seen_lower=0;          int seen_lower=0;
274          int seen_upper=0;          int seen_upper=0;
275          int i;          int i;
# Line 289  object word, casekey; Line 292  object word, casekey;
292                  }                  }
293              } else              } else
294              if (casekey == sKdowncase) {              if (casekey == sKdowncase) {
 #ifdef ANSI_COMMON_LISP  
295                  if ((seen_lower != seen_upper) || pathname_resolve(pathKansi))                  if ((seen_lower != seen_upper) || pathname_resolve(pathKansi))
 #else  
                 if (seen_lower != seen_upper)  
 #endif  
296                  {   x=copy_simple_string(word);                  {   x=copy_simple_string(word);
297                      for (i=0; i<word->st.st_fillp; i++)                      for (i=0; i<word->st.st_fillp; i++)
298                          if (isupper(word->st.st_self[i]))                          if (isupper(word->st.st_self[i]))
# Line 301  object word, casekey; Line 300  object word, casekey;
300                  }                  }
301              }              }
302          }          }
303            #endif  
304    
305          vs_push(x); /* make-pathname will vs_reset later */          vs_push(x); /* make-pathname will vs_reset later */
306          return(x);          return(x);
307  }  }

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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