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) |
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 |
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 |
|
|
398 |
vs_popp; |
vs_popp; |
399 |
} |
} |
400 |
|
|
401 |
void |
LFD(Lsymbol_plist)() |
|
Lsymbol_plist() |
|
402 |
{ |
{ |
403 |
check_arg(1); |
check_arg(1); |
404 |
|
|
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 |
|
|
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(""); |
551 |
@(return smbl) |
@(return smbl) |
552 |
@) |
@) |
553 |
|
|
554 |
void |
LFD(Lsymbol_package)() |
|
Lsymbol_package() |
|
555 |
{ |
{ |
556 |
check_arg(1); |
check_arg(1); |
557 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
613 |
vs_popp; |
vs_popp; |
614 |
} |
} |
615 |
|
|
616 |
void |
LFD(siLputprop)() |
|
siLputprop() |
|
617 |
{ |
{ |
618 |
check_arg(3); |
check_arg(3); |
619 |
|
|