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

Diff of /gcl/o/package.d

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

revision 1.7 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.8 by camm, Sun Oct 6 03:59:40 2002 UTC
# Line 608  object s, p; Line 608  object s, p;
608          object *ip;          object *ip;
609    
610          find_symbol(s, p);          find_symbol(s, p);
611          if (intern_flag == INTERNAL || intern_flag == EXTERNAL)          if (intern_flag == INTERNAL || intern_flag == EXTERNAL) {
612                    p->p.p_shadowings = make_cons(s, p->p.p_shadowings);
613                  return;                  return;
614            }
615          j = pack_hash(s);          j = pack_hash(s);
616          ip = &P_INTERNAL(p ,j);          ip = &P_INTERNAL(p ,j);
617          vs_push(make_symbol(s));          vs_push(make_symbol(s));

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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