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); |
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"); |
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); |
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; |
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); |