/[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.16 by camm, Sat Feb 15 00:38:28 2003 UTC revision 1.16.6.1 by camm, Thu Sep 4 02:15:05 2003 UTC
# Line 220  int isize,esize; Line 220  int isize,esize;
220    
221          x = find_package(n);          x = find_package(n);
222          if (x == Cnil) {          if (x == Cnil) {
223    #ifdef ANSI_COMMON_LISP
224                  FEpackage_error(n,"No such package");                    FEpackage_error(n,"No such package");  
225                  return Cnil;                  return Cnil;
226  /*              x = make_package(n, ns, ul,isize,esize);  */  #else
227  /*              goto L;  */                  x = make_package(n, ns, ul,isize,esize);
228                    goto L;
229    #endif
230          }          }
231          if (isize) rehash_pack(&(x->p.p_internal),          if (isize) rehash_pack(&(x->p.p_internal),
232                  &x->p.p_internal_size,isize);                  &x->p.p_internal_size,isize);
# Line 243  int isize,esize; Line 246  int isize,esize;
246          }          }
247          for (;  !endp(ul);  ul = ul->c.c_cdr)          for (;  !endp(ul);  ul = ul->c.c_cdr)
248                  use_package(ul->c.c_car, x);                  use_package(ul->c.c_car, x);
249  /* L:  */  #ifndef ANSI_COMMON_LISP
250    L:
251    #endif
252          sLApackageA->s.s_dbind = x;          sLApackageA->s.s_dbind = x;
253          vs_reset;          vs_reset;
254          return(x);          return(x);

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

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