/[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.8.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.8.6.2 by camm, Thu Nov 6 16:16:53 2003 UTC
# Line 309  object s, v, p; Line 309  object s, v, p;
309    
310    
311  /* done in the right order for efficient setf.. */  /* done in the right order for efficient setf.. */
312  object  STATD object
313  sputprop(s, p, v)  FFN(sputprop)(s, p, v)
314  object s, v, p;  object s, v, p;
315  {  {
316          if (type_of(s) != t_symbol)          if (type_of(s) != t_symbol)
# Line 318  object s, v, p; Line 318  object s, v, p;
318          s->s.s_plist = putf(s->s.s_plist, v, p);          s->s.s_plist = putf(s->s.s_plist, v, p);
319          return(v);          return(v);
320  }  }
321    #ifdef STATIC_FUNCTION_POINTERS
322    object
323    sputprop(object s, object p, object v) {
324            return FFN(sputprop)(s,p,v);
325    }
326    #endif
327    
328  /*  /*
329          Remf(p, i) removes property i          Remf(p, i) removes property i
# Line 381  object s; Line 386  object s;
386          @(return `getf(sym->s.s_plist, indicator, deflt)`)          @(return `getf(sym->s.s_plist, indicator, deflt)`)
387  @)  @)
388    
389  void  LFD(Lremprop)()
 Lremprop()  
390  {  {
391          check_arg(2);          check_arg(2);
392    
# Line 394  Lremprop() Line 398  Lremprop()
398          vs_popp;          vs_popp;
399  }  }
400    
401  void  LFD(Lsymbol_plist)()
 Lsymbol_plist()  
402  {  {
403          check_arg(1);          check_arg(1);
404    
# Line 449  object y; Line 452  object y;
452      return(y);      return(y);
453  }  }
454    
455  void  LFD(Lsymbol_name)()
 Lsymbol_name()  
456  {  {
457          check_arg(1);          check_arg(1);
458          vs_base[0]=symbol_name(vs_base[0]);          vs_base[0]=symbol_name(vs_base[0]);
459  }  }
460    
461  void  LFD(Lmake_symbol)()
 Lmake_symbol()  
462  {  {
463          check_arg(1);          check_arg(1);
464    
# Line 498  DEFVAR("*GENSYM-COUNTER*",sLgensym_count Line 499  DEFVAR("*GENSYM-COUNTER*",sLgensym_count
499          if (x==gensym_prefix)          if (x==gensym_prefix)
500                  sLgensym_counter->s.s_dbind=number_plus(sLgensym_counter->s.s_dbind,small_fixnum(1));                  sLgensym_counter->s.s_dbind=number_plus(sLgensym_counter->s.s_dbind,small_fixnum(1));
501  /*         FIXME: come up with a better call sequence */  /*         FIXME: come up with a better call sequence */
502          VFUN_NARGS=3;          this_gensym_counter_string=fLformat_1(Cnil,make_simple_string("~S"),this_gensym_counter);
         this_gensym_counter_string=fLformat(Cnil,make_simple_string("~S"),this_gensym_counter);  
503          i=this_gensym_counter_string->st.st_fillp;          i=this_gensym_counter_string->st.st_fillp;
504          i += this_gensym_prefix->st.st_fillp;          i += this_gensym_prefix->st.st_fillp;
505          set_up_string_register("");          set_up_string_register("");
# Line 551  ONCE_MORE: Line 551  ONCE_MORE:
551          @(return smbl)          @(return smbl)
552  @)  @)
553    
554  void  LFD(Lsymbol_package)()
 Lsymbol_package()  
555  {  {
556          check_arg(1);          check_arg(1);
557    
# Line 560  Lsymbol_package() Line 559  Lsymbol_package()
559          vs_base[0] = vs_base[0]->s.s_hpack;          vs_base[0] = vs_base[0]->s.s_hpack;
560  }  }
561    
562  void  LFD(Lkeywordp)()
 Lkeywordp()  
563  {  {
564          check_arg(1);          check_arg(1);
565    
# Line 576  Lkeywordp() Line 574  Lkeywordp()
574          returns the new property list with value for property indicator.          returns the new property list with value for property indicator.
575          It will be used in SETF for GETF.          It will be used in SETF for GETF.
576  */  */
577  void  LFD(siLput_f)()
 siLput_f()  
578  {  {
579          check_arg(3);          check_arg(3);
580    
# Line 596  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  LFD(siLrem_f)()
 siLrem_f()  
597  {  {
598          check_arg(2);          check_arg(2);
599    
# Line 607  siLrem_f() Line 603  siLrem_f()
603                  vs_base[1] = Cnil;                  vs_base[1] = Cnil;
604  }  }
605    
606  void  LFD(siLset_symbol_plist)(void)
 siLset_symbol_plist(void)  
607  {  {
608          check_arg(2);          check_arg(2);
609    
# Line 618  siLset_symbol_plist(void) Line 613  siLset_symbol_plist(void)
613          vs_popp;          vs_popp;
614  }  }
615    
616  void  LFD(siLputprop)()
 siLputprop()  
617  {  {
618          check_arg(3);          check_arg(3);
619    

Legend:
Removed from v.1.8.6.1  
changed lines
  Added in v.1.8.6.2

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