264 |
vs_top=(vs_base=old_base)+1; |
vs_top=(vs_base=old_base)+1; |
265 |
vs_base[0]=x; |
vs_base[0]=x; |
266 |
} |
} |
267 |
|
|
268 |
|
static void |
269 |
|
set_cclosure_env(object cc,object val) { |
270 |
|
if (type_of(cc)==t_cclosure) |
271 |
|
cc->cc.cc_env=val; |
272 |
|
} |
273 |
|
|
274 |
|
/* function definition for SET-CCLOSURE-ENV */ |
275 |
|
|
276 |
|
static void L11() |
277 |
|
{ object *old_base=vs_base; |
278 |
|
set_cclosure_env( |
279 |
|
vs_base[0], |
280 |
|
vs_base[1]); |
281 |
|
vs_top=(vs_base=old_base)+1; |
282 |
|
vs_base[0]=Cnil; |
283 |
|
} |
284 |
|
/* function definition for %SET-CCLOSURE-ENV */ |
285 |
|
|
286 |
|
static void L12() |
287 |
|
{ object *old_base=vs_base; |
288 |
|
set_cclosure_env( |
289 |
|
vs_base[0], |
290 |
|
vs_base[1]); |
291 |
|
vs_top=(vs_base=old_base)+1; |
292 |
|
vs_base[0]=Cnil; |
293 |
|
} |
294 |
|
|
295 |
|
static object |
296 |
|
cclosurep(object o) { |
297 |
|
return type_of(o)==t_cclosure ? Ct : Cnil; |
298 |
|
} |
299 |
|
|
300 |
|
/* function definition for CCLOSUREP */ |
301 |
|
|
302 |
|
static void L13() |
303 |
|
{ object *old_base=vs_base; |
304 |
|
object x; |
305 |
|
x= |
306 |
|
cclosurep( |
307 |
|
vs_base[0]); |
308 |
|
vs_top=(vs_base=old_base)+1; |
309 |
|
vs_base[0]=x; |
310 |
|
} |
311 |
|
|
312 |
|
static object |
313 |
|
cclosure_env(object o) { |
314 |
|
return type_of(o)==t_cclosure ? o->cc.cc_env : Cnil; |
315 |
|
} |
316 |
|
|
317 |
|
/* function definition for CCLOSURE-ENV */ |
318 |
|
|
319 |
|
static void L14() |
320 |
|
{ object *old_base=vs_base; |
321 |
|
object x; |
322 |
|
x= |
323 |
|
cclosure_env( |
324 |
|
vs_base[0]); |
325 |
|
vs_top=(vs_base=old_base)+1; |
326 |
|
vs_base[0]=x; |
327 |
|
} |
328 |
|
/* function definition for %CCLOSURE-ENV */ |
329 |
|
|
330 |
|
static void L15() |
331 |
|
{ object *old_base=vs_base; |
332 |
|
object x; |
333 |
|
x= |
334 |
|
cclosure_env( |
335 |
|
vs_base[0]); |
336 |
|
vs_top=(vs_base=old_base)+1; |
337 |
|
vs_base[0]=x; |
338 |
|
} |
339 |
|
|
340 |
|
static void |
341 |
|
set_compiled_function_name(object o,object n) { |
342 |
|
/* check type here */ |
343 |
|
o->cf.cf_name=n; |
344 |
|
} |
345 |
|
|
346 |
|
/* function definition for SET-COMPILED-FUNCTION-NAME */ |
347 |
|
|
348 |
|
static void L16() |
349 |
|
{ object *old_base=vs_base; |
350 |
|
set_compiled_function_name( |
351 |
|
vs_base[0], |
352 |
|
vs_base[1]); |
353 |
|
vs_top=(vs_base=old_base)+1; |
354 |
|
vs_base[0]=Cnil; |
355 |
|
} |
356 |
|
/* function definition for %SET-COMPILED-FUNCTION-NAME */ |
357 |
|
|
358 |
|
static void L17() |
359 |
|
{ object *old_base=vs_base; |
360 |
|
set_compiled_function_name( |
361 |
|
vs_base[0], |
362 |
|
vs_base[1]); |
363 |
|
vs_top=(vs_base=old_base)+1; |
364 |
|
vs_base[0]=Cnil; |
365 |
|
} |
366 |
|
|
367 |
|
static object |
368 |
|
__fboundp(object o) { |
369 |
|
/* FIXME check type here*/ |
370 |
|
return o->s.s_gfdef==OBJNULL ? Cnil : Ct; |
371 |
|
} |
372 |
|
|
373 |
|
/* function definition for %FBOUNDP */ |
374 |
|
|
375 |
|
static void L18() |
376 |
|
{ object *old_base=vs_base; |
377 |
|
object x; |
378 |
|
x= |
379 |
|
__fboundp( |
380 |
|
vs_base[0]); |
381 |
|
vs_top=(vs_base=old_base)+1; |
382 |
|
vs_base[0]=x; |
383 |
|
} |
384 |
/* local entry for function MAKE-FUNCTION-INLINE */ |
/* local entry for function MAKE-FUNCTION-INLINE */ |
385 |
|
|
386 |
static object LI11(V35) |
static object LI19(V35) |
387 |
|
|
388 |
register object V35; |
register object V35; |
389 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
452 |
} |
} |
453 |
/* macro definition for DEFINE-INLINES */ |
/* macro definition for DEFINE-INLINES */ |
454 |
|
|
455 |
static void L12() |
static void L20() |
456 |
{register object *base=vs_base; |
{register object *base=vs_base; |
457 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
458 |
vs_check; |
vs_check; |
570 |
} |
} |
571 |
/* local entry for function %FBOUNDP */ |
/* local entry for function %FBOUNDP */ |
572 |
|
|
573 |
static object LI13(V71) |
static object LI21(V71) |
574 |
|
|
575 |
object V71; |
object V71; |
576 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
582 |
} |
} |
583 |
/* local entry for function %SYMBOL-FUNCTION */ |
/* local entry for function %SYMBOL-FUNCTION */ |
584 |
|
|
585 |
static object LI14(V74) |
static object LI22(V74) |
586 |
|
|
587 |
object V74; |
object V74; |
588 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
594 |
} |
} |
595 |
/* local entry for function %STRUCTURE-NAME */ |
/* local entry for function %STRUCTURE-NAME */ |
596 |
|
|
597 |
static object LI15(V77) |
static object LI23(V77) |
598 |
|
|
599 |
object V77; |
object V77; |
600 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
606 |
} |
} |
607 |
/* local entry for function %COMPILED-FUNCTION-NAME */ |
/* local entry for function %COMPILED-FUNCTION-NAME */ |
608 |
|
|
609 |
static object LI16(V80) |
static object LI24(V80) |
610 |
|
|
611 |
object V80; |
object V80; |
612 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
618 |
} |
} |
619 |
/* local entry for function %SET-COMPILED-FUNCTION-NAME */ |
/* local entry for function %SET-COMPILED-FUNCTION-NAME */ |
620 |
|
|
621 |
static object LI17(V84,V85) |
static object LI25(V84,V85) |
622 |
|
|
623 |
object V84;object V85; |
object V84;object V85; |
624 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
630 |
} |
} |
631 |
/* local entry for function CCLOSUREP */ |
/* local entry for function CCLOSUREP */ |
632 |
|
|
633 |
static object LI18(V88) |
static object LI26(V88) |
634 |
|
|
635 |
object V88; |
object V88; |
636 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
642 |
} |
} |
643 |
/* local entry for function SFUN-P */ |
/* local entry for function SFUN-P */ |
644 |
|
|
645 |
static object LI19(V91) |
static object LI27(V91) |
646 |
|
|
647 |
object V91; |
object V91; |
648 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
654 |
} |
} |
655 |
/* local entry for function %CCLOSURE-ENV */ |
/* local entry for function %CCLOSURE-ENV */ |
656 |
|
|
657 |
static object LI20(V94) |
static object LI28(V94) |
658 |
|
|
659 |
object V94; |
object V94; |
660 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
666 |
} |
} |
667 |
/* local entry for function %SET-CCLOSURE-ENV */ |
/* local entry for function %SET-CCLOSURE-ENV */ |
668 |
|
|
669 |
static object LI21(V98,V99) |
static object LI29(V98,V99) |
670 |
|
|
671 |
object V98;object V99; |
object V98;object V99; |
672 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
678 |
} |
} |
679 |
/* local entry for function %CCLOSURE-ENV-NTHCDR */ |
/* local entry for function %CCLOSURE-ENV-NTHCDR */ |
680 |
|
|
681 |
static object LI22(V103,V104) |
static object LI30(V103,V104) |
682 |
|
|
683 |
long V103;object V104; |
long V103;object V104; |
684 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
690 |
} |
} |
691 |
/* local entry for function SET-FUNCTION-NAME-1 */ |
/* local entry for function SET-FUNCTION-NAME-1 */ |
692 |
|
|
693 |
static object LI23(V109,V110,V111) |
static object LI31(V109,V110,V111) |
694 |
|
|
695 |
register object V109;register object V110;object V111; |
register object V109;register object V110;object V111; |
696 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
770 |
} |
} |
771 |
/* function definition for %SET-CCLOSURE */ |
/* function definition for %SET-CCLOSURE */ |
772 |
|
|
773 |
static void L24() |
static void L32() |
774 |
{ object *old_base=vs_base; |
{ object *old_base=vs_base; |
775 |
object x; |
object x; |
776 |
x= |
x= |
783 |
} |
} |
784 |
/* local entry for function STRUCTURE-FUNCTIONS-EXIST-P */ |
/* local entry for function STRUCTURE-FUNCTIONS-EXIST-P */ |
785 |
|
|
786 |
static object LI25() |
static object LI33() |
787 |
|
|
788 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
789 |
goto TTL; |
goto TTL; |
794 |
} |
} |
795 |
/* local entry for function STRUCTURE-TYPE */ |
/* local entry for function STRUCTURE-TYPE */ |
796 |
|
|
797 |
static object LI26(V121) |
static object LI34(V121) |
798 |
|
|
799 |
object V121; |
object V121; |
800 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
812 |
} |
} |
813 |
/* local entry for function STRUCTURE-TYPE-P */ |
/* local entry for function STRUCTURE-TYPE-P */ |
814 |
|
|
815 |
static object LI27(V125) |
static object LI35(V125) |
816 |
|
|
817 |
object V125; |
object V125; |
818 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
861 |
} |
} |
862 |
/* local entry for function STRUCTURE-TYPE-INCLUDED-TYPE-NAME */ |
/* local entry for function STRUCTURE-TYPE-INCLUDED-TYPE-NAME */ |
863 |
|
|
864 |
static object LI28(V134) |
static object LI36(V134) |
865 |
|
|
866 |
object V134; |
object V134; |
867 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
904 |
} |
} |
905 |
/* local entry for function STRUCTURE-TYPE-INTERNAL-SLOTDS */ |
/* local entry for function STRUCTURE-TYPE-INTERNAL-SLOTDS */ |
906 |
|
|
907 |
static object LI29(V144) |
static object LI37(V144) |
908 |
|
|
909 |
object V144; |
object V144; |
910 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
926 |
} |
} |
927 |
/* local entry for function STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST */ |
/* local entry for function STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST */ |
928 |
|
|
929 |
static object LI31(V149) |
static object LI39(V149) |
930 |
|
|
931 |
object V149; |
object V149; |
932 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
984 |
{object V162; |
{object V162; |
985 |
object V163; |
object V163; |
986 |
V162= |
V162= |
987 |
make_cclosure_new(LC38,Cnil,base[2],Cdata); |
make_cclosure_new(LC46,Cnil,base[2],Cdata); |
988 |
V163= |
V163= |
989 |
make_cclosure_new(LC39,Cnil,base[2],Cdata); |
make_cclosure_new(LC47,Cnil,base[2],Cdata); |
990 |
base[3]= (V162); |
base[3]= (V162); |
991 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
992 |
(void) (*Lnk66)(); |
(void) (*Lnk66)(); |
1057 |
} |
} |
1058 |
/* local entry for function STRUCTURE-SLOTD-NAME */ |
/* local entry for function STRUCTURE-SLOTD-NAME */ |
1059 |
|
|
1060 |
static object LI32(V174) |
static object LI40(V174) |
1061 |
|
|
1062 |
object V174; |
object V174; |
1063 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1069 |
} |
} |
1070 |
/* local entry for function STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
/* local entry for function STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
1071 |
|
|
1072 |
static object LI33(V177) |
static object LI41(V177) |
1073 |
|
|
1074 |
object V177; |
object V177; |
1075 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1081 |
} |
} |
1082 |
/* local entry for function STRUCTURE-SLOTD-READER-FUNCTION */ |
/* local entry for function STRUCTURE-SLOTD-READER-FUNCTION */ |
1083 |
|
|
1084 |
static object LI34(V180) |
static object LI42(V180) |
1085 |
|
|
1086 |
object V180; |
object V180; |
1087 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1093 |
} |
} |
1094 |
/* local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION */ |
/* local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION */ |
1095 |
|
|
1096 |
static object LI35(V183) |
static object LI43(V183) |
1097 |
|
|
1098 |
object V183; |
object V183; |
1099 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1105 |
} |
} |
1106 |
/* local entry for function RENEW-SYS-FILES */ |
/* local entry for function RENEW-SYS-FILES */ |
1107 |
|
|
1108 |
static object LI36() |
static object LI44() |
1109 |
|
|
1110 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1111 |
goto TTL; |
goto TTL; |
1391 |
} |
} |
1392 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1393 |
|
|
1394 |
static void LC39(base0) |
static void LC47(base0) |
1395 |
register object *base0; |
register object *base0; |
1396 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1397 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM33; VC33 |
1413 |
} |
} |
1414 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1415 |
|
|
1416 |
static void LC38(base0) |
static void LC46(base0) |
1417 |
register object *base0; |
register object *base0; |
1418 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1419 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
1431 |
} |
} |
1432 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1433 |
|
|
1434 |
static void LC37(base0) |
static void LC45(base0) |
1435 |
register object *base0; |
register object *base0; |
1436 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1437 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |