57 |
|
|
58 |
object sSAinhibit_macro_specialA; |
object sSAinhibit_macro_specialA; |
59 |
|
|
60 |
|
void |
61 |
setq(sym, val) |
setq(object sym, object val) |
|
object sym, val; |
|
62 |
{ |
{ |
63 |
object endp_temp; |
object endp_temp; |
64 |
object vd; |
object vd; |
81 |
} |
} |
82 |
} |
} |
83 |
|
|
84 |
Fsetq(form) |
void |
85 |
object form; |
Fsetq(object form) |
86 |
{ |
{ |
87 |
object endp_temp; |
object endp_temp; |
88 |
object ans; |
object ans; |
104 |
} |
} |
105 |
} |
} |
106 |
|
|
107 |
Fpsetq(arg) |
void |
108 |
object arg; |
Fpsetq(object arg) |
109 |
{ |
{ |
110 |
object endp_temp; |
object endp_temp; |
111 |
object *old_top = vs_top; |
object *old_top = vs_top; |
182 |
RETURN1(function); |
RETURN1(function); |
183 |
} |
} |
184 |
|
|
185 |
Fmultiple_value_setq(form) |
void |
186 |
object form; |
Fmultiple_value_setq(object form) |
187 |
{ |
{ |
188 |
object vars; |
object vars; |
189 |
int n, i; |
int n, i; |
190 |
object endp_temp; |
object endp_temp; |
|
object result; |
|
191 |
|
|
192 |
if (endp(form) || endp(form->c.c_cdr) || |
if (endp(form) || endp(form->c.c_cdr) || |
193 |
!endp(form->c.c_cdr->c.c_cdr)) |
!endp(form->c.c_cdr->c.c_cdr)) |
250 |
RETURN1(sym); |
RETURN1(sym); |
251 |
} |
} |
252 |
|
|
253 |
Fsetf(form) |
void |
254 |
object form; |
Fsetf(object form) |
255 |
{ |
{ |
256 |
object endp_temp; |
object endp_temp; |
257 |
object result; |
object result; |
282 |
} |
} |
283 |
|
|
284 |
object |
object |
285 |
setf(place, form) |
setf(object place, object form) |
|
object place, form; |
|
286 |
{ |
{ |
287 |
object endp_temp; |
object endp_temp; |
288 |
object fun; |
object fun; |
289 |
object *vs = vs_top; |
object *vs = vs_top; |
290 |
int (*f)(); |
void (*f)(); |
291 |
object args; |
object args; |
292 |
object x,result,y; |
object x,result,y; |
293 |
int i; |
int i; |
294 |
extern siLaset(); |
/* extern void siLaset(void); */ |
295 |
extern siLsvset(); |
/* extern void siLsvset(void); */ |
296 |
extern siLelt_set(); |
extern void siLelt_set(); |
297 |
extern siLchar_set(); |
extern void siLchar_set(); |
298 |
extern siLfill_pointer_set(); |
/* extern void siLfill_pointer_set(void); */ |
299 |
extern siLhash_set(); |
extern void siLhash_set(); |
300 |
|
|
301 |
if (type_of(place) != t_cons) { |
if (type_of(place) != t_cons) { |
302 |
setq(place, result=Ieval(form)); |
setq(place, result=Ieval(form)); |
398 |
return Ieval(vs_base[0]); |
return Ieval(vs_base[0]); |
399 |
} |
} |
400 |
|
|
401 |
Fpush(form) |
void |
402 |
object form; |
Fpush(object form) |
403 |
{ |
{ |
404 |
object var; |
object var; |
405 |
object endp_temp; |
object endp_temp; |
430 |
eval(vs_base[0]); |
eval(vs_base[0]); |
431 |
} |
} |
432 |
|
|
433 |
Fpop(form) |
void |
434 |
object form; |
Fpop(object form) |
435 |
{ |
{ |
436 |
object var; |
object var; |
437 |
object endp_temp; |
object endp_temp; |
460 |
eval(vs_base[0]); |
eval(vs_base[0]); |
461 |
} |
} |
462 |
|
|
463 |
Fincf(form) |
void |
464 |
object form; |
Fincf(object form) |
465 |
{ |
{ |
466 |
object var; |
object var; |
467 |
object one_plus(), number_plus(); |
object one_plus(object x), number_plus(object x, object y); |
468 |
object endp_temp; |
object endp_temp; |
469 |
|
|
470 |
if (endp(form)) |
if (endp(form)) |
499 |
eval(vs_base[0]); |
eval(vs_base[0]); |
500 |
} |
} |
501 |
|
|
502 |
Fdecf(form) |
void |
503 |
object form; |
Fdecf(object form) |
504 |
{ |
{ |
505 |
object var; |
object var; |
506 |
object one_minus(), number_minus(); |
object one_minus(object x), number_minus(object x, object y); |
507 |
object endp_temp; |
object endp_temp; |
508 |
|
|
509 |
if (endp(form)) |
if (endp(form)) |
540 |
|
|
541 |
|
|
542 |
object |
object |
543 |
clear_compiler_properties(sym,code) |
clear_compiler_properties(object sym, object code) |
|
object sym; |
|
|
object code; |
|
544 |
{ object tem; |
{ object tem; |
545 |
VFUN_NARGS=2; fSuse_fast_links(Cnil,sym); |
VFUN_NARGS=2; fSuse_fast_links(Cnil,sym); |
546 |
tem = getf(sym->s.s_plist,sStraced,Cnil); |
tem = getf(sym->s.s_plist,sStraced,Cnil); |
581 |
DEF_ORDINARY("TRACED",sStraced,SI,""); |
DEF_ORDINARY("TRACED",sStraced,SI,""); |
582 |
DEF_ORDINARY("VECTOR",sLvector,LISP,""); |
DEF_ORDINARY("VECTOR",sLvector,LISP,""); |
583 |
|
|
584 |
|
void |
585 |
init_assignment() |
init_assignment(void) |
586 |
{ |
{ |
587 |
make_special_form("SETQ", Fsetq); |
make_special_form("SETQ", Fsetq); |
588 |
make_special_form("PSETQ", Fpsetq); |
make_special_form("PSETQ", Fpsetq); |