/[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.3 by camm, Fri Jul 12 22:00:49 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:56 2002 UTC
# Line 27  Foundation, 675 Mass Ave, Cambridge, MA Line 27  Foundation, 675 Mass Ave, Cambridge, MA
27    
28  object siSpname;  object siSpname;
29    
30  set_up_string_register(s)  void
31  char *s;  set_up_string_register(char *s) {
 {  
32          string_register->st.st_fillp =          string_register->st.st_fillp =
33          string_register->st.st_dim = strlen(s);          string_register->st.st_dim = strlen(s);
34          string_register->st.st_self = s;          string_register->st.st_self = s;
# Line 76  object Line 75  object
75  make_ordinary(s)  make_ordinary(s)
76  char *s;  char *s;
77  {  {
78          int i, j;          int j;
79          object x, l, *ep;          object x, l, *ep;
80          vs_mark;          vs_mark;
81    
# Line 141  object Line 140  object
140  make_si_ordinary(s)  make_si_ordinary(s)
141  char *s;  char *s;
142  {  {
143          int i, j;          int j;
144          object x, l, *ep;          object x, l, *ep;
145          vs_mark;          vs_mark;
146    
# Line 206  object Line 205  object
205  make_keyword(s)  make_keyword(s)
206  char *s;  char *s;
207  {  {
208          int i, j;          int j;
209          object x, l, *ep;          object x, l, *ep;
210          vs_mark;          vs_mark;
211    
# Line 255  object place, indicator, deflt; Line 254  object place, indicator, deflt;
254          }          }
255          if(l==Cnil) return deflt;          if(l==Cnil) return deflt;
256          FEerror("Bad plist ~a",1,place);                  FEerror("Bad plist ~a",1,place);        
257            return Cnil;
258  }  }
259    
260  object  object
# Line 274  object Line 274  object
274  putf(p, v, i)  putf(p, v, i)
275  object p, v, i;  object p, v, i;
276  {  {
277          object endp_temp;          object l;
   
         object l, l0 = p;  
278          vs_mark;          vs_mark;
279    
280          for (l = p;  !cendp(l);  l = l->c.c_cdr->c.c_cdr) {          for (l = p;  !cendp(l);  l = l->c.c_cdr->c.c_cdr) {
# Line 381  object s; Line 379  object s;
379          @(return `getf(sym->s.s_plist, indicator, deflt)`)          @(return `getf(sym->s.s_plist, indicator, deflt)`)
380  @)  @)
381    
382    void
383  Lremprop()  Lremprop()
384  {  {
385          check_arg(2);          check_arg(2);
# Line 390  Lremprop() Line 389  Lremprop()
389                  vs_base[0] = Ct;                  vs_base[0] = Ct;
390          else          else
391                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
392          vs_pop;          vs_popp;
393  }  }
394    
395    void
396  Lsymbol_plist()  Lsymbol_plist()
397  {  {
398          check_arg(1);          check_arg(1);
# Line 443  object y; Line 443  object y;
443                          y->st.st_self[i] = x->s.s_self[i];                          y->st.st_self[i] = x->s.s_self[i];
444          }          }
445     x->s.s_plist = putf(x->s.s_plist, y, siSpname);     x->s.s_plist = putf(x->s.s_plist, y, siSpname);
446          vs_pop;          vs_popp;
447     END_NO_INTERRUPT;    }           END_NO_INTERRUPT;    }      
448      return(y);      return(y);
449  }  }
450    
451    void
452  Lsymbol_name()  Lsymbol_name()
453  {  {
454          check_arg(1);          check_arg(1);
455          vs_base[0]=symbol_name(vs_base[0]);          vs_base[0]=symbol_name(vs_base[0]);
456  }  }
457    
458    void
459  Lmake_symbol()  Lmake_symbol()
460  {  {
461          check_arg(1);          check_arg(1);
# Line 546  ONCE_MORE: Line 548  ONCE_MORE:
548          @(return smbl)          @(return smbl)
549  @)  @)
550    
551    void
552  Lsymbol_package()  Lsymbol_package()
553  {  {
554          check_arg(1);          check_arg(1);
# Line 554  Lsymbol_package() Line 557  Lsymbol_package()
557          vs_base[0] = vs_base[0]->s.s_hpack;          vs_base[0] = vs_base[0]->s.s_hpack;
558  }  }
559    
560    void
561  Lkeywordp()  Lkeywordp()
562  {  {
563          check_arg(1);          check_arg(1);
# Line 569  Lkeywordp() Line 573  Lkeywordp()
573          returns the new property list with value for property indicator.          returns the new property list with value for property indicator.
574          It will be used in SETF for GETF.          It will be used in SETF for GETF.
575  */  */
576    void
577  siLput_f()  siLput_f()
578  {  {
579          check_arg(3);          check_arg(3);
# Line 588  siLput_f() Line 593  siLput_f()
593    
594          It will be used for macro REMF.          It will be used for macro REMF.
595  */  */
596    void
597  siLrem_f()  siLrem_f()
598  {  {
599          check_arg(2);          check_arg(2);
# Line 598  siLrem_f() Line 604  siLrem_f()
604                  vs_base[1] = Cnil;                  vs_base[1] = Cnil;
605  }  }
606    
607    void
608  siLset_symbol_plist()  siLset_symbol_plist()
609  {  {
610          check_arg(2);          check_arg(2);
# Line 605  siLset_symbol_plist() Line 612  siLset_symbol_plist()
612          check_type_symbol(&vs_base[0]);          check_type_symbol(&vs_base[0]);
613          vs_base[0]->s.s_plist = vs_base[1];          vs_base[0]->s.s_plist = vs_base[1];
614          vs_base[0] = vs_base[1];          vs_base[0] = vs_base[1];
615          vs_pop;          vs_popp;
616  }  }
617    
618    void
619  siLputprop()  siLputprop()
620  {  {
621          check_arg(3);          check_arg(3);
# Line 620  siLputprop() Line 628  siLputprop()
628  }  }
629    
630    
631    void
632  odd_plist(place)  odd_plist(place)
633  object place;  object place;
634  {  {
# Line 627  object place; Line 636  object place;
636  }  }
637    
638    
639    void
640  init_symbol()  init_symbol()
641  {  {
642          string_register = alloc_simple_string(0);          string_register = alloc_simple_string(0);
# Line 646  init_symbol() Line 656  init_symbol()
656          enter_mark_origin(&token);          enter_mark_origin(&token);
657  }  }
658    
659    void
660  init_symbol_function()  init_symbol_function()
661  {  {
662          make_function("GET", Lget);          make_function("GET", Lget);

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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