Changeset 12471


Ignore:
Timestamp:
02/14/10 13:18:40 (13 years ago)
Author:
vvoutilainen
Message:

Stack friendliness.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/abcl/src/org/armedbear/lisp/cxr.java

    r12290 r12471  
    3939{
    4040  // ### set-car
    41   private static final Primitive SET_CAR =
    42     new Primitive("set-car", PACKAGE_SYS, true)
    43     {
     41  private static final Primitive SET_CAR = new pf_set_car();
     42  private static final class pf_set_car extends Primitive {
     43      pf_set_car()
     44      {
     45        super("set-car", PACKAGE_SYS, true);
     46      }
     47 
    4448      @Override
    4549      public LispObject execute(LispObject first, LispObject second)
    … …  
    5256
    5357  // ### set-cdr
    54   private static final Primitive SET_CDR =
    55     new Primitive("set-cdr", PACKAGE_SYS, true)
    56     {
     58  private static final Primitive SET_CDR = new pf_set_cdr();
     59  private static final class pf_set_cdr extends Primitive {
     60      pf_set_cdr()
     61      {
     62        super("set-cdr", PACKAGE_SYS, true);
     63      }
     64 
    5765      @Override
    5866      public LispObject execute(LispObject first, LispObject second)
    … …  
    6573
    6674  // ### car
    67   private static final Primitive CAR = new Primitive(Symbol.CAR, "list")
    68     {
     75  private static final Primitive CAR = new pf_car();
     76  private static final class pf_car extends Primitive {
     77      pf_car()
     78      {
     79        super(Symbol.CAR, "list");
     80      }
     81 
    6982      @Override
    7083      public LispObject execute(LispObject arg)
    … …  
    7588
    7689  // ### cdr
    77   private static final Primitive CDR = new Primitive(Symbol.CDR, "list")
    78     {
     90  private static final Primitive CDR = new pf_cdr();
     91  private static final class pf_cdr extends Primitive {
     92      pf_cdr()
     93      {
     94        super(Symbol.CDR, "list");
     95      }
     96 
    7997      @Override
    8098      public LispObject execute(LispObject arg)
    … …  
    85103
    86104  // ### caar
    87   private static final Primitive CAAR = new Primitive(Symbol.CAAR, "list")
    88     {
     105  private static final Primitive CAAR = new pf_caar();
     106  private static final class pf_caar extends Primitive {
     107      pf_caar()
     108      {
     109        super(Symbol.CAAR, "list");
     110      }
     111 
    89112      @Override
    90113      public LispObject execute(LispObject arg)
    … …  
    95118
    96119  // ### cadr
    97   private static final Primitive CADR = new Primitive(Symbol.CADR, "list")
    98     {
     120  private static final Primitive CADR = new pf_cadr();
     121  private static final class pf_cadr extends Primitive {
     122      pf_cadr()
     123      {
     124        super(Symbol.CADR, "list");
     125      }
     126 
    99127      @Override
    100128      public LispObject execute(LispObject arg)
    … …  
    105133
    106134  // ### cdar
    107   private static final Primitive CDAR = new Primitive(Symbol.CDAR, "list")
    108     {
     135  private static final Primitive CDAR = new pf_cdar();
     136  private static final class pf_cdar extends Primitive {
     137      pf_cdar()
     138      {
     139        super(Symbol.CDAR, "list");
     140      }
     141 
    109142      @Override
    110143      public LispObject execute(LispObject arg)
    … …  
    115148
    116149  // ### cddr
    117   private static final Primitive CDDR = new Primitive(Symbol.CDDR, "list")
    118     {
     150  private static final Primitive CDDR = new pf_cddr();
     151  private static final class pf_cddr extends Primitive {
     152      pf_cddr()
     153      {
     154        super(Symbol.CDDR, "list");
     155      }
     156 
    119157      @Override
    120158      public LispObject execute(LispObject arg)
    … …  
    125163
    126164  // ### caddr
    127   private static final Primitive CADDR = new Primitive(Symbol.CADDR, "list")
    128     {
     165  private static final Primitive CADDR = new pf_caddr();
     166  private static final class pf_caddr extends Primitive {
     167      pf_caddr()
     168      {
     169        super(Symbol.CADDR, "list");
     170      }
     171 
    129172      @Override
    130173      public LispObject execute(LispObject arg)
    … …  
    135178
    136179  // ### caadr
    137   private static final Primitive CAADR = new Primitive(Symbol.CAADR, "list")
    138     {
     180  private static final Primitive CAADR = new pf_caadr();
     181  private static final class pf_caadr extends Primitive {
     182      pf_caadr()
     183      {
     184        super(Symbol.CAADR, "list");
     185      }
     186 
    139187      @Override
    140188      public LispObject execute(LispObject arg)
    … …  
    145193
    146194  // ### caaar
    147   private static final Primitive CAAAR = new Primitive(Symbol.CAAAR, "list")
    148     {
     195  private static final Primitive CAAAR = new pf_caaar();
     196  private static final class pf_caaar extends Primitive {
     197      pf_caaar()
     198      {
     199        super(Symbol.CAAAR, "list");
     200      }
     201 
    149202      @Override
    150203      public LispObject execute(LispObject arg)
    … …  
    155208
    156209  // ### cdaar
    157   private static final Primitive CDAAR = new Primitive(Symbol.CDAAR, "list")
    158     {
     210  private static final Primitive CDAAR = new pf_cdaar();
     211  private static final class pf_cdaar extends Primitive {
     212      pf_cdaar()
     213      {
     214        super(Symbol.CDAAR, "list");
     215      }
     216 
    159217      @Override
    160218      public LispObject execute(LispObject arg)
    … …  
    165223
    166224  // ### cddar
    167   private static final Primitive CDDAR = new Primitive(Symbol.CDDAR, "list")
    168     {
     225  private static final Primitive CDDAR = new pf_cddar();
     226  private static final class pf_cddar extends Primitive {
     227      pf_cddar()
     228      {
     229        super(Symbol.CDDAR, "list");
     230      }
     231 
    169232      @Override
    170233      public LispObject execute(LispObject arg)
    … …  
    175238
    176239  // ### cdddr
    177   private static final Primitive CDDDR = new Primitive(Symbol.CDDDR, "list")
    178     {
     240  private static final Primitive CDDDR = new pf_cdddr();
     241  private static final class pf_cdddr extends Primitive {
     242      pf_cdddr()
     243      {
     244        super(Symbol.CDDDR, "list");
     245      }
     246 
    179247      @Override
    180248      public LispObject execute(LispObject arg)
    … …  
    185253
    186254  // ### cadar
    187   private static final Primitive CADAR = new Primitive(Symbol.CADAR, "list")
    188     {
     255  private static final Primitive CADAR = new pf_cadar();
     256  private static final class pf_cadar extends Primitive {
     257      pf_cadar()
     258      {
     259        super(Symbol.CADAR, "list");
     260      }
     261 
    189262      @Override
    190263      public LispObject execute(LispObject arg)
    … …  
    195268
    196269  // ### cdadr
    197   private static final Primitive CDADR = new Primitive(Symbol.CDADR, "list")
    198     {
     270  private static final Primitive CDADR = new pf_cdadr();
     271  private static final class pf_cdadr extends Primitive {
     272      pf_cdadr()
     273      {
     274        super(Symbol.CDADR, "list");
     275      }
     276 
    199277      @Override
    200278      public LispObject execute(LispObject arg)
    … …  
    205283
    206284  // ### first
    207   private static final Primitive FIRST = new Primitive(Symbol.FIRST, "list")
    208     {
     285  private static final Primitive FIRST = new pf_first();
     286  private static final class pf_first extends Primitive {
     287      pf_first()
     288      {
     289        super(Symbol.FIRST, "list");
     290      }
     291 
    209292      @Override
    210293      public LispObject execute(LispObject arg)
    … …  
    215298
    216299  // ### second
    217   private static final Primitive SECOND = new Primitive(Symbol.SECOND, "list")
    218     {
     300  private static final Primitive SECOND = new pf_second();
     301  private static final class pf_second extends Primitive {
     302      pf_second()
     303      {
     304        super(Symbol.SECOND, "list");
     305      }
     306 
    219307      @Override
    220308      public LispObject execute(LispObject arg)
    … …  
    225313
    226314  // ### third
    227   private static final Primitive THIRD = new Primitive(Symbol.THIRD, "list")
    228     {
     315  private static final Primitive THIRD = new pf_third();
     316  private static final class pf_third extends Primitive {
     317      pf_third()
     318      {
     319        super(Symbol.THIRD, "list");
     320      }
     321 
    229322      @Override
    230323      public LispObject execute(LispObject arg)
    … …  
    235328
    236329  // ### fourth
    237   private static final Primitive FOURTH = new Primitive(Symbol.FOURTH, "list")
    238     {
     330  private static final Primitive FOURTH = new pf_fourth();
     331  private static final class pf_fourth extends Primitive {
     332      pf_fourth()
     333      {
     334        super(Symbol.FOURTH, "list");
     335      }
     336 
    239337      @Override
    240338      public LispObject execute(LispObject arg)
    … …  
    245343
    246344  // ### rest
    247   private static final Primitive REST = new Primitive(Symbol.REST, "list")
    248     {
     345  private static final Primitive REST = new pf_rest();
     346  private static final class pf_rest extends Primitive {
     347      pf_rest()
     348      {
     349        super(Symbol.REST, "list");
     350      }
     351 
    249352      @Override
    250353      public LispObject execute(LispObject arg)
Note: See TracChangeset for help on using the changeset viewer.