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; |
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 |
|
|
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 |
|
|
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 |
|
|
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 |
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) { |
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); |
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); |
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); |
548 |
@(return smbl) |
@(return smbl) |
549 |
@) |
@) |
550 |
|
|
551 |
|
void |
552 |
Lsymbol_package() |
Lsymbol_package() |
553 |
{ |
{ |
554 |
check_arg(1); |
check_arg(1); |
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); |
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); |
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); |
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); |
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); |
628 |
} |
} |
629 |
|
|
630 |
|
|
631 |
|
void |
632 |
odd_plist(place) |
odd_plist(place) |
633 |
object place; |
object place; |
634 |
{ |
{ |
636 |
} |
} |
637 |
|
|
638 |
|
|
639 |
|
void |
640 |
init_symbol() |
init_symbol() |
641 |
{ |
{ |
642 |
string_register = alloc_simple_string(0); |
string_register = alloc_simple_string(0); |
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); |