/[gcl]/gcl/pcl/pcl_gcl_low.c
ViewVC logotype

Diff of /gcl/pcl/pcl_gcl_low.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC revision 1.5 by camm, Tue Oct 7 21:07:36 2003 UTC
# Line 264  static void L10() Line 264  static void L10()
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
# Line 335  T18:; Line 452  T18:;
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;
# Line 453  T40:; Line 570  T40:;
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
# Line 465  TTL:; Line 582  TTL:;
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
# Line 477  TTL:; Line 594  TTL:;
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
# Line 489  TTL:; Line 606  TTL:;
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
# Line 501  TTL:; Line 618  TTL:;
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
# Line 513  TTL:; Line 630  TTL:;
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
# Line 525  TTL:; Line 642  TTL:;
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
# Line 537  TTL:; Line 654  TTL:;
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
# Line 549  TTL:; Line 666  TTL:;
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
# Line 561  TTL:; Line 678  TTL:;
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
# Line 573  TTL:; Line 690  TTL:;
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
# Line 653  object set_cclosure (result_cc,value_cc, Line 770  object set_cclosure (result_cc,value_cc,
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=
# Line 666  static void L24() Line 783  static void L24()
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;
# Line 677  TTL:; Line 794  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
# Line 695  T89:; Line 812  T89:;
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
# Line 744  T98:; Line 861  T98:;
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
# Line 787  T109:; Line 904  T109:;
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
# Line 809  T111:; Line 926  T111:;
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
# Line 867  T117:; Line 984  T117:;
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)();
# Line 940  T124:; Line 1057  T124:;
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
# Line 952  TTL:; Line 1069  TTL:;
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
# Line 964  TTL:; Line 1081  TTL:;
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
# Line 976  TTL:; Line 1093  TTL:;
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
# Line 988  TTL:; Line 1105  TTL:;
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;
# Line 1274  T283:; Line 1391  T283:;
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
# Line 1296  register object *base0; Line 1413  register object *base0;
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
# Line 1314  register object *base0; Line 1431  register object *base0;
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

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26