318 |
void (*f)(); |
void (*f)(); |
319 |
object args; |
object args; |
320 |
object x,result,y; |
object x,result,y; |
321 |
int i; |
int i,nka=0; |
322 |
/* extern void siLaset(void); */ |
/* extern void siLaset(void); */ |
323 |
/* extern void siLsvset(void); */ |
/* extern void siLsvset(void); */ |
324 |
extern void siLelt_set(); |
extern void siLelt_set(); |
354 |
if (fun == sLchar) { f = siLchar_set; goto EVAL; } |
if (fun == sLchar) { f = siLchar_set; goto EVAL; } |
355 |
if (fun == sLschar) { f = siLchar_set; goto EVAL; } |
if (fun == sLschar) { f = siLchar_set; goto EVAL; } |
356 |
if (fun == sLfill_pointer) { f = siLfill_pointer_set; goto EVAL; } |
if (fun == sLfill_pointer) { f = siLfill_pointer_set; goto EVAL; } |
357 |
if (fun == sLgethash) { f = siLhash_set; goto EVAL; } |
if (fun == sLgethash) { f = siLhash_set; nka=2; goto EVAL; } |
358 |
if (fun == sLcar) { |
if (fun == sLcar) { |
359 |
x = Ieval(Mcar(args)); |
x = Ieval(Mcar(args)); |
360 |
result = Ieval(form); |
result = Ieval(form); |
418 |
eval_push(args->c.c_car); |
eval_push(args->c.c_car); |
419 |
} |
} |
420 |
eval_push(form); |
eval_push(form); |
421 |
|
if (nka && vs_top-vs>nka) { |
422 |
|
vs[nka]=vs_base[0]; |
423 |
|
vs_top=vs+nka+1; |
424 |
|
} |
425 |
|
nka=0; |
426 |
vs_base = vs; |
vs_base = vs; |
427 |
(*f)(); |
(*f)(); |
428 |
return vs_base[0]; |
return vs_base[0]; |