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

Diff of /gcl/o/symbol.d

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

revision 1.16 by camm, Sat Jul 23 08:55:13 2005 UTC revision 1.17 by camm, Thu Oct 6 20:30:09 2005 UTC
# Line 88  char *s; Line 88  char *s;
88          set_up_string_register(s);          set_up_string_register(s);
89          j = pack_hash(string_register);          j = pack_hash(string_register);
90          ep = &P_EXTERNAL(lisp_package,j);          ep = &P_EXTERNAL(lisp_package,j);
91          for (l = *ep;  type_of(l) == t_cons;  l = l->c.c_cdr)          for (l = *ep;  consp(l);  l = l->c.c_cdr)
92                  if (string_eq(l->c.c_car, string_register))                  if (string_eq(l->c.c_car, string_register))
93                          return(l->c.c_car);                          return(l->c.c_car);
94          x = make_symbol(string_register);          x = make_symbol(string_register);
# Line 153  char *s; Line 153  char *s;
153          set_up_string_register(s);          set_up_string_register(s);
154          j = pack_hash(string_register);          j = pack_hash(string_register);
155          ep = & P_EXTERNAL(system_package,j);          ep = & P_EXTERNAL(system_package,j);
156          for (l = *ep;  type_of(l) == t_cons;  l = l->c.c_cdr)          for (l = *ep;  consp(l);  l = l->c.c_cdr)
157                  if (string_eq(l->c.c_car, string_register))                  if (string_eq(l->c.c_car, string_register))
158                          return(l->c.c_car);                          return(l->c.c_car);
159          for (l =  P_EXTERNAL(lisp_package,j);          for (l =  P_EXTERNAL(lisp_package,j);
160               type_of(l) == t_cons;               consp(l);
161               l = l->c.c_cdr)               l = l->c.c_cdr)
162                  if (string_eq(l->c.c_car, string_register))                  if (string_eq(l->c.c_car, string_register))
163                      error("name conflict --- can't make_si_ordinary");                      error("name conflict --- can't make_si_ordinary");
# Line 218  char *s; Line 218  char *s;
218          set_up_string_register(s);          set_up_string_register(s);
219          j = pack_hash(string_register);          j = pack_hash(string_register);
220          ep = &P_EXTERNAL(keyword_package,j);          ep = &P_EXTERNAL(keyword_package,j);
221          for (l = *ep;  type_of(l) == t_cons;  l = l->c.c_cdr)          for (l = *ep;  consp(l);  l = l->c.c_cdr)
222                  if (string_eq(l->c.c_car, string_register))                  if (string_eq(l->c.c_car, string_register))
223                          return(l->c.c_car);                          return(l->c.c_car);
224          x = make_symbol(string_register);          x = make_symbol(string_register);
# Line 251  object place, indicator, deflt; Line 251  object place, indicator, deflt;
251  {  {
252    
253          object l;          object l;
254  #define cendp(obj) ((type_of(obj)!=t_cons))  #define cendp(obj) ((!consp(obj)))
255          for (l = place;  !cendp(l);  l = l->c.c_cdr->c.c_cdr) {          for (l = place;  !cendp(l);  l = l->c.c_cdr->c.c_cdr) {
256                  if (cendp(l->c.c_cdr))                  if (cendp(l->c.c_cdr))
257                          break;                          break;
# Line 439  object x; Line 439  object x;
439  {  {
440  object y;  object y;
441   if (type_of(x)!=t_symbol) FEwrong_type_argument(sLsymbol,x);   if (type_of(x)!=t_symbol) FEwrong_type_argument(sLsymbol,x);
442    for (y=x->s.s_plist; type_of(y)==t_cons ; y=y->c.c_cdr->c.c_cdr)    for (y=x->s.s_plist; consp(y) ; y=y->c.c_cdr->c.c_cdr)
443     {if(y->c.c_car==siSpname) return(y->c.c_cdr->c.c_car);}     {if(y->c.c_car==siSpname) return(y->c.c_cdr->c.c_car);}
444     {BEGIN_NO_INTERRUPT;             {BEGIN_NO_INTERRUPT;        
445      y = alloc_simple_string(x->s.s_fillp);      y = alloc_simple_string(x->s.s_fillp);

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