Changeset 11536


Ignore:
Timestamp:
01/04/09 11:54:54 (12 years ago)
Author:
Mark Evenson
Message:

Finished adding @Override annotations for Primitives.java.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Primitives.java

    r11488 r11536  
    12531253        return first.isNotEqualTo(second) ? T : NIL;
    12541254      }
     1255      @Override
    12551256      public LispObject execute(LispObject first, LispObject second,
    12561257                                LispObject third)
     
    12651266        return T;
    12661267      }
     1268      @Override
    12671269      public LispObject execute(LispObject[] array) throws ConditionThrowable
    12681270      {
     
    12861288    new Primitive(Symbol.LT, "&rest numbers")
    12871289    {
     1290      @Override
    12881291      public LispObject execute() throws ConditionThrowable
    12891292      {
    12901293        return error(new WrongNumberOfArgumentsException(this));
    12911294      }
     1295      @Override
    12921296      public LispObject execute(LispObject arg)
    12931297      {
    12941298        return T;
    12951299      }
     1300      @Override
    12961301      public LispObject execute(LispObject first, LispObject second)
    12971302        throws ConditionThrowable
     
    12991304        return first.isLessThan(second) ? T : NIL;
    13001305      }
     1306      @Override
    13011307      public LispObject execute(LispObject first, LispObject second,
    13021308                                LispObject third)
     
    13081314          return NIL;
    13091315      }
     1316      @Override
    13101317      public LispObject execute(LispObject[] array) throws ConditionThrowable
    13111318      {
     
    13241331    new Primitive(Symbol.LE, "&rest numbers")
    13251332    {
     1333      @Override
    13261334      public LispObject execute() throws ConditionThrowable
    13271335      {
    13281336        return error(new WrongNumberOfArgumentsException(this));
    13291337      }
     1338      @Override
    13301339      public LispObject execute(LispObject arg)
    13311340      {
    13321341        return T;
    13331342      }
     1343      @Override
    13341344      public LispObject execute(LispObject first, LispObject second)
    13351345        throws ConditionThrowable
     
    13371347        return first.isLessThanOrEqualTo(second) ? T : NIL;
    13381348      }
     1349      @Override
    13391350      public LispObject execute(LispObject first, LispObject second,
    13401351                                LispObject third)
     
    13461357          return NIL;
    13471358      }
     1359      @Override
    13481360      public LispObject execute(LispObject[] array) throws ConditionThrowable
    13491361      {
     
    13621374    new Primitive(Symbol.GT, "&rest numbers")
    13631375    {
     1376      @Override
    13641377      public LispObject execute() throws ConditionThrowable
    13651378      {
    13661379        return error(new WrongNumberOfArgumentsException(this));
    13671380      }
     1381      @Override
    13681382      public LispObject execute(LispObject arg)
    13691383      {
    13701384        return T;
    13711385      }
     1386      @Override
    13721387      public LispObject execute(LispObject first, LispObject second)
    13731388        throws ConditionThrowable
     
    13751390        return first.isGreaterThan(second) ? T : NIL;
    13761391      }
     1392      @Override
    13771393      public LispObject execute(LispObject first, LispObject second,
    13781394                                LispObject third)
     
    13841400          return NIL;
    13851401      }
     1402      @Override
    13861403      public LispObject execute(LispObject[] array) throws ConditionThrowable
    13871404      {
     
    14001417    new Primitive(Symbol.GE, "&rest numbers")
    14011418    {
     1419      @Override
    14021420      public LispObject execute() throws ConditionThrowable
    14031421      {
    14041422        return error(new WrongNumberOfArgumentsException(this));
    14051423      }
     1424      @Override
    14061425      public LispObject execute(LispObject arg)
    14071426      {
    14081427        return T;
    14091428      }
     1429      @Override
    14101430      public LispObject execute(LispObject first, LispObject second)
    14111431        throws ConditionThrowable
     
    14131433        return first.isGreaterThanOrEqualTo(second) ? T : NIL;
    14141434      }
     1435      @Override
    14151436      public LispObject execute(LispObject first, LispObject second,
    14161437                                LispObject third)
     
    14221443          return NIL;
    14231444      }
     1445      @Override
    14241446      public LispObject execute(LispObject[] array) throws ConditionThrowable
    14251447      {
     
    14371459  private static final Primitive NTH = new Primitive(Symbol.NTH, "n list")
    14381460    {
     1461      @Override
    14391462      public LispObject execute(LispObject first, LispObject second)
    14401463        throws ConditionThrowable
     
    14481471    new Primitive("%set-nth", PACKAGE_SYS, false)
    14491472    {
     1473      @Override
    14501474      public LispObject execute(LispObject first, LispObject second,
    14511475                                LispObject third)
     
    14781502    new Primitive(Symbol.NTHCDR, "n list")
    14791503    {
     1504      @Override
    14801505      public LispObject execute(LispObject first, LispObject second)
    14811506        throws ConditionThrowable
     
    15071532    new Primitive(Symbol.ERROR, "datum &rest arguments")
    15081533    {
     1534      @Override
    15091535      public LispObject execute(LispObject[] args) throws ConditionThrowable
    15101536      {
     
    15271553    new Primitive(Symbol.SIGNAL, "datum &rest arguments")
    15281554    {
     1555      @Override
    15291556      public LispObject execute(LispObject[] args) throws ConditionThrowable
    15301557      {
     
    15421569    new Primitive(Symbol.UNDEFINED_FUNCTION_CALLED, "name arguments")
    15431570    {
     1571      @Override
    15441572      public LispObject execute(LispObject first, LispObject second)
    15451573        throws ConditionThrowable
     
    15541582                  "destination control-string &rest args")
    15551583    {
     1584      @Override
    15561585      public LispObject execute(LispObject first, LispObject second,
    15571586                                LispObject third)
     
    15661595        return outputFormattedString(s, destination);
    15671596      }
     1597      @Override
    15681598      public LispObject execute(LispObject first, LispObject second,
    15691599                                LispObject third, LispObject fourth)
     
    15791609        return outputFormattedString(s, destination);
    15801610      }
     1611      @Override
    15811612      public LispObject execute(LispObject[] args) throws ConditionThrowable
    15821613      {
     
    16861717    new Primitive("%defun", PACKAGE_SYS, true, "name definition")
    16871718    {
     1719      @Override
    16881720      public LispObject execute(LispObject name, LispObject definition)
    16891721        throws ConditionThrowable
     
    17151747    new Primitive("fdefinition-block-name", PACKAGE_SYS, true, "function-name")
    17161748    {
     1749      @Override
    17171750      public LispObject execute(LispObject arg) throws ConditionThrowable
    17181751      {
     
    17291762    new Primitive(Symbol.MACRO_FUNCTION, "symbol &optional environment")
    17301763    {
     1764      @Override
    17311765      public LispObject execute(LispObject arg) throws ConditionThrowable
    17321766      {
     
    17521786        return NIL;
    17531787      }
     1788      @Override
    17541789      public LispObject execute(LispObject first, LispObject second)
    17551790        throws ConditionThrowable
     
    17891824    new SpecialOperator(Symbol.DEFMACRO)
    17901825    {
     1826      @Override
    17911827      public LispObject execute(LispObject args, Environment env)
    17921828        throws ConditionThrowable
     
    18221858    new Primitive("make-macro", PACKAGE_SYS, true, "name expansion-function")
    18231859    {
     1860      @Override
    18241861      public LispObject execute(LispObject first, LispObject second)
    18251862        throws ConditionThrowable
     
    18331870      new Primitive("make-symbol-macro", PACKAGE_SYS, true, "expansion")
    18341871  {
     1872      @Override
    18351873      public LispObject execute(LispObject arg) throws ConditionThrowable
    18361874      {
     
    18441882    new Primitive("%defparameter", PACKAGE_SYS, false)
    18451883    {
     1884      @Override
    18461885      public LispObject execute(LispObject first, LispObject second,
    18471886                                LispObject third)
     
    18701909    new Primitive("%defvar", PACKAGE_SYS, false)
    18711910    {
     1911      @Override
    18721912      public LispObject execute(LispObject arg) throws ConditionThrowable
    18731913      {
     
    18841924        return symbol;
    18851925      }
     1926      @Override
    18861927      public LispObject execute(LispObject first, LispObject second)
    18871928        throws ConditionThrowable
     
    19051946    new Primitive("%defconstant", PACKAGE_SYS, false)
    19061947    {
     1948      @Override
    19071949      public LispObject execute(LispObject first, LispObject second,
    19081950                                LispObject third)
     
    19341976    new SpecialOperator(Symbol.COND, "&rest clauses")
    19351977    {
     1978      @Override
    19361979      public LispObject execute(LispObject args, Environment env)
    19371980        throws ConditionThrowable
     
    19642007    new SpecialOperator(Symbol.CASE, "keyform &body cases")
    19652008    {
     2009      @Override
    19662010      public LispObject execute(LispObject args, Environment env)
    19672011        throws ConditionThrowable
     
    20102054    new SpecialOperator(Symbol.ECASE, "keyform &body cases")
    20112055    {
     2056      @Override
    20122057      public LispObject execute(LispObject args, Environment env)
    20132058        throws ConditionThrowable
     
    20762121                  "typespec &optional environment")
    20772122    {
     2123      @Override
    20782124      public LispObject execute(LispObject arg) throws ConditionThrowable
    20792125      {
    20802126        return getUpgradedArrayElementType(arg);
    20812127      }
     2128      @Override
    20822129      public LispObject execute(LispObject first, LispObject second)
    20832130        throws ConditionThrowable
     
    20922139    new Primitive(Symbol.ARRAY_RANK, "array")
    20932140    {
     2141      @Override
    20942142      public LispObject execute(LispObject arg) throws ConditionThrowable
    20952143      {
     
    21102158    new Primitive(Symbol.ARRAY_DIMENSIONS, "array")
    21112159    {
     2160      @Override
    21122161      public LispObject execute(LispObject arg) throws ConditionThrowable
    21132162      {
     
    21272176    new Primitive(Symbol.ARRAY_DIMENSION, "array axis-number")
    21282177    {
     2178      @Override
    21292179      public LispObject execute(LispObject first, LispObject second)
    21302180        throws ConditionThrowable
     
    21562206    new Primitive(Symbol.ARRAY_TOTAL_SIZE, "array")
    21572207    {
     2208      @Override
    21582209      public LispObject execute(LispObject arg) throws ConditionThrowable
    21592210      {
     
    21752226    new Primitive(Symbol.ARRAY_ELEMENT_TYPE, "array")
    21762227    {
     2228      @Override
    21772229      public LispObject execute(LispObject arg) throws ConditionThrowable
    21782230      {
     
    21922244    new Primitive(Symbol.ADJUSTABLE_ARRAY_P, "array")
    21932245    {
     2246      @Override
    21942247      public LispObject execute(LispObject arg) throws ConditionThrowable
    21952248      {
     
    22092262    new Primitive(Symbol.ARRAY_DISPLACEMENT, "array")
    22102263    {
     2264      @Override
    22112265      public LispObject execute(LispObject arg) throws ConditionThrowable
    22122266      {
     
    22262280    new Primitive(Symbol.ARRAY_IN_BOUNDS_P, "array &rest subscripts")
    22272281    {
     2282      @Override
    22282283      public LispObject execute(LispObject[] args) throws ConditionThrowable
    22292284      {
     
    22722327    new Primitive("%array-row-major-index", PACKAGE_SYS, false)
    22732328    {
     2329      @Override
    22742330      public LispObject execute(LispObject first, LispObject second)
    22752331        throws ConditionThrowable
     
    22932349    new Primitive(Symbol.AREF, "array &rest subscripts")
    22942350    {
     2351      @Override
    22952352      public LispObject execute() throws ConditionThrowable
    22962353      {
    22972354        return error(new WrongNumberOfArgumentsException(this));
    22982355      }
     2356      @Override
    22992357      public LispObject execute(LispObject arg) throws ConditionThrowable
    23002358      {
     
    23162374        return error(new ProgramError(sb.toString()));
    23172375      }
     2376      @Override
    23182377      public LispObject execute(LispObject first, LispObject second)
    23192378        throws ConditionThrowable
     
    23212380        return first.AREF(second);
    23222381      }
     2382      @Override
    23232383      public LispObject execute(LispObject first, LispObject second,
    23242384                                LispObject third)
     
    23532413        return array.get(subs);
    23542414      }
     2415      @Override
    23552416      public LispObject execute(LispObject[] args) throws ConditionThrowable
    23562417      {
     
    23852446                  "array subscripts new-element")
    23862447    {
     2448      @Override
    23872449      public LispObject execute(LispObject first, LispObject second)
    23882450        throws ConditionThrowable
     
    24032465        return second;
    24042466      }
     2467      @Override
    24052468      public LispObject execute(LispObject first, LispObject second,
    24062469                                LispObject third)
     
    24102473        return third;
    24112474      }
     2475      @Override
    24122476      public LispObject execute(LispObject[] args) throws ConditionThrowable
    24132477      {
     
    24442508    new Primitive(Symbol.ROW_MAJOR_AREF, "array index")
    24452509    {
     2510      @Override
    24462511      public LispObject execute(LispObject first, LispObject second)
    24472512        throws ConditionThrowable
     
    24652530    new Primitive(Symbol.VECTOR, "&rest objects")
    24662531    {
     2532      @Override
    24672533      public LispObject execute(LispObject[] args) throws ConditionThrowable
    24682534      {
     
    24752541    new Primitive(Symbol.FILL_POINTER, "vector")
    24762542    {
     2543      @Override
    24772544      public LispObject execute(LispObject arg)
    24782545        throws ConditionThrowable
     
    24952562    new Primitive("%set-fill-pointer", PACKAGE_SYS, true)
    24962563    {
     2564      @Override
    24972565      public LispObject execute(LispObject first, LispObject second)
    24982566        throws ConditionThrowable
     
    25202588    new Primitive(Symbol.VECTOR_PUSH, "new-element vector")
    25212589    {
     2590      @Override
    25222591      public LispObject execute(LispObject first, LispObject second)
    25232592        throws ConditionThrowable
     
    25492618                  "new-element vector &optional extension")
    25502619    {
     2620      @Override
    25512621      public LispObject execute(LispObject first, LispObject second)
    25522622        throws ConditionThrowable
     
    25552625      }
    25562626
     2627      @Override
    25572628      public LispObject execute(LispObject first, LispObject second,
    25582629                                LispObject third)
     
    25672638    new Primitive(Symbol.VECTOR_POP, "vector")
    25682639    {
     2640      @Override
    25692641      public LispObject execute(LispObject arg) throws ConditionThrowable
    25702642      {
     
    25942666    new Primitive(Symbol.TYPE_OF, "object")
    25952667    {
     2668      @Override
    25962669      public LispObject execute(LispObject arg) throws ConditionThrowable
    25972670      {
     
    26042677    new Primitive(Symbol.CLASS_OF, "object")
    26052678    {
     2679      @Override
    26062680      public LispObject execute(LispObject arg) throws ConditionThrowable
    26072681      {
     
    26142688    new Primitive("simple-typep", PACKAGE_SYS, true)
    26152689    {
     2690      @Override
    26162691      public LispObject execute(LispObject first, LispObject second)
    26172692        throws ConditionThrowable
     
    26262701    new Primitive(Symbol.FUNCTION_LAMBDA_EXPRESSION, "function")
    26272702    {
     2703      @Override
    26282704      public LispObject execute(LispObject arg) throws ConditionThrowable
    26292705      {
     
    26742750    new Primitive(Symbol.FUNCALL, "function &rest args")
    26752751    {
     2752      @Override
    26762753      public LispObject execute() throws ConditionThrowable
    26772754      {
    26782755        return error(new WrongNumberOfArgumentsException(this));
    26792756      }
     2757      @Override
    26802758      public LispObject execute(LispObject arg) throws ConditionThrowable
    26812759      {
    26822760        return LispThread.currentThread().execute(arg);
    26832761      }
     2762      @Override
    26842763      public LispObject execute(LispObject first, LispObject second)
    26852764        throws ConditionThrowable
     
    26872766        return LispThread.currentThread().execute(first, second);
    26882767      }
     2768      @Override
    26892769      public LispObject execute(LispObject first, LispObject second,
    26902770                                LispObject third)
     
    26932773        return LispThread.currentThread().execute(first, second, third);
    26942774      }
     2775      @Override
    26952776      public LispObject execute(LispObject first, LispObject second,
    26962777                                LispObject third, LispObject fourth)
     
    27002781                                                  fourth);
    27012782      }
     2783      @Override
    27022784      public LispObject execute(LispObject first, LispObject second,
    27032785                                LispObject third, LispObject fourth,
     
    27082790                                                  fourth, fifth);
    27092791      }
     2792      @Override
    27102793      public LispObject execute(LispObject first, LispObject second,
    27112794                                LispObject third, LispObject fourth,
     
    27162799                                                  fourth, fifth, sixth);
    27172800      }
     2801      @Override
    27182802      public LispObject execute(LispObject first, LispObject second,
    27192803                                LispObject third, LispObject fourth,
     
    27262810                                                  seventh);
    27272811      }
     2812      @Override
    27282813      public LispObject execute(LispObject first, LispObject second,
    27292814                                LispObject third, LispObject fourth,
     
    27362821                                                  seventh, eigth);
    27372822      }
     2823      @Override
    27382824      public LispObject execute(LispObject[] args) throws ConditionThrowable
    27392825      {
     
    27602846    new Primitive(Symbol.APPLY, "function &rest args")
    27612847    {
     2848      @Override
    27622849      public LispObject execute() throws ConditionThrowable
    27632850      {
    27642851        return error(new WrongNumberOfArgumentsException(this));
    27652852      }
     2853      @Override
    27662854      public LispObject execute(LispObject arg) throws ConditionThrowable
    27672855      {
    27682856        return error(new WrongNumberOfArgumentsException(this));
    27692857      }
     2858      @Override
    27702859      public LispObject execute(LispObject fun, LispObject args)
    27712860        throws ConditionThrowable
     
    28002889          }
    28012890      }
     2891      @Override
    28022892      public LispObject execute(LispObject first, LispObject second,
    28032893                                LispObject third)
     
    28192909        return type_error(third, Symbol.LIST);
    28202910      }
     2911      @Override
    28212912      public LispObject execute(final LispObject[] args) throws ConditionThrowable
    28222913      {
     
    28452936    new Primitive(Symbol.MAPCAR, "function &rest lists")
    28462937    {
     2938      @Override
    28472939      public LispObject execute(LispObject fun, LispObject list)
    28482940        throws ConditionThrowable
     
    28792971        return result;
    28802972      }
     2973      @Override
    28812974      public LispObject execute(LispObject fun, LispObject list1,
    28822975                                LispObject list2)
     
    29073000        return result;
    29083001      }
     3002      @Override
    29093003      public LispObject execute(final LispObject[] args)
    29103004        throws ConditionThrowable
     
    29483042    new Primitive(Symbol.MAPC, "function &rest lists")
    29493043    {
     3044      @Override
    29503045      public LispObject execute(LispObject fun, LispObject list)
    29513046        throws ConditionThrowable
     
    29703065        return result;
    29713066      }
     3067      @Override
    29723068      public LispObject execute(LispObject fun, LispObject list1,
    29733069                                LispObject list2)
     
    29853081        return result;
    29863082      }
     3083      @Override
    29873084      public LispObject execute(final LispObject[] args)
    29883085        throws ConditionThrowable
     
    30233120    new Primitive(Symbol.MACROEXPAND, "form &optional env")
    30243121    {
     3122      @Override
    30253123      public LispObject execute(LispObject form) throws ConditionThrowable
    30263124      {
     
    30293127                           LispThread.currentThread());
    30303128      }
     3129      @Override
    30313130      public LispObject execute(LispObject form, LispObject env)
    30323131        throws ConditionThrowable
     
    30423141    new Primitive(Symbol.MACROEXPAND_1, "form &optional env")
    30433142    {
     3143      @Override
    30443144      public LispObject execute(LispObject form) throws ConditionThrowable
    30453145      {
     
    30483148                             LispThread.currentThread());
    30493149      }
     3150      @Override
    30503151      public LispObject execute(LispObject form, LispObject env)
    30513152        throws ConditionThrowable
     
    30613162    new Primitive(Symbol.GENSYM, "&optional x")
    30623163    {
     3164      @Override
    30633165      public LispObject execute() throws ConditionThrowable
    30643166      {
    30653167        return gensym("G", LispThread.currentThread());
    30663168      }
     3169      @Override
    30673170      public LispObject execute(LispObject arg) throws ConditionThrowable
    30683171      {
     
    30993202  private static final Primitive STRING = new Primitive(Symbol.STRING, "x")
    31003203    {
     3204      @Override
    31013205      public LispObject execute(LispObject arg) throws ConditionThrowable
    31023206      {
     
    31123216    new Primitive(Symbol.INTERN, "string &optional package")
    31133217    {
     3218      @Override
    31143219      public LispObject execute(LispObject arg) throws ConditionThrowable
    31153220      {
     
    31233228        return pkg.intern(s, thread);
    31243229      }
     3230      @Override
    31253231      public LispObject execute(LispObject first, LispObject second)
    31263232        throws ConditionThrowable
     
    31413247    new Primitive(Symbol.UNINTERN, "symbol &optional package")
    31423248    {
     3249      @Override
    31433250      public LispObject execute(LispObject[] args) throws ConditionThrowable
    31443251      {
     
    31593266    new Primitive(Symbol.FIND_PACKAGE, "name")
    31603267    {
     3268      @Override
    31613269      public LispObject execute(LispObject arg) throws ConditionThrowable
    31623270      {
     
    31903298    new Primitive("%make-package", PACKAGE_SYS, false)
    31913299    {
     3300      @Override
    31923301      public LispObject execute(LispObject first, LispObject second,
    31933302                                LispObject third)
     
    32743383    new Primitive("%in-package", PACKAGE_SYS, true)
    32753384    {
     3385      @Override
    32763386      public LispObject execute(LispObject arg) throws ConditionThrowable
    32773387      {
     
    32963406    new Primitive(Symbol.USE_PACKAGE, "packages-to-use &optional package")
    32973407    {
     3408      @Override
    32983409      public LispObject execute(LispObject[] args) throws ConditionThrowable
    32993410      {
     
    33243435    new Primitive("package-symbols", PACKAGE_SYS, true)
    33253436    {
     3437      @Override
    33263438      public LispObject execute(LispObject arg) throws ConditionThrowable
    33273439      {
     
    33343446    new Primitive("package-internal-symbols", PACKAGE_SYS, true)
    33353447    {
     3448      @Override
    33363449      public LispObject execute(LispObject arg) throws ConditionThrowable
    33373450      {
     
    33443457    new Primitive("package-external-symbols", PACKAGE_SYS, true)
    33453458    {
     3459      @Override
    33463460      public LispObject execute(LispObject arg) throws ConditionThrowable
    33473461      {
     
    33543468    new Primitive("package-inherited-symbols", PACKAGE_SYS, true)
    33553469    {
     3470      @Override
    33563471      public LispObject execute(LispObject arg) throws ConditionThrowable
    33573472      {
     
    33643479    new Primitive(Symbol.EXPORT, "symbols &optional package")
    33653480    {
     3481      @Override
    33663482      public LispObject execute(LispObject arg) throws ConditionThrowable
    33673483      {
     
    33773493      }
    33783494
     3495      @Override
    33793496      public LispObject execute(LispObject first, LispObject second)
    33803497        throws ConditionThrowable
     
    33963513    new Primitive(Symbol.FIND_SYMBOL, "string &optional package")
    33973514    {
     3515      @Override
    33983516      public LispObject execute(LispObject arg) throws ConditionThrowable
    33993517      {
     
    34013519      }
    34023520
     3521      @Override
    34033522      public LispObject execute(LispObject first, LispObject second)
    34043523        throws ConditionThrowable
     
    34133532    new Primitive("fset", PACKAGE_SYS, true)
    34143533    {
     3534      @Override
    34153535      public LispObject execute(LispObject first, LispObject second)
    34163536        throws ConditionThrowable
     
    34183538        return execute(first, second, NIL, NIL, NIL);
    34193539      }
     3540      @Override
    34203541      public LispObject execute(LispObject first, LispObject second,
    34213542                                LispObject third)
     
    34243545        return execute(first, second, third, NIL, NIL);
    34253546      }
     3547      @Override
    34263548      public LispObject execute(LispObject first, LispObject second,
    34273549                                LispObject third, LispObject fourth)
     
    34303552        return execute(first, second, third, fourth, NIL);
    34313553      }
     3554      @Override
    34323555      public LispObject execute(LispObject first, LispObject second,
    34333556                                LispObject third, LispObject fourth,
     
    34783601    new Primitive("%set-symbol-plist", PACKAGE_SYS, false)
    34793602    {
     3603      @Override
    34803604      public LispObject execute(LispObject first, LispObject second)
    34813605        throws ConditionThrowable
     
    34903614    new Primitive(Symbol.GETF, "plist indicator &optional default")
    34913615    {
     3616      @Override
    34923617      public LispObject execute(LispObject plist, LispObject indicator)
    34933618        throws ConditionThrowable
     
    34953620        return getf(plist, indicator, NIL);
    34963621      }
     3622      @Override
    34973623      public LispObject execute(LispObject plist, LispObject indicator,
    34983624                                LispObject defaultValue)
     
    35073633    new Primitive(Symbol.GET, "symbol indicator &optional default")
    35083634    {
     3635      @Override
    35093636      public LispObject execute(LispObject symbol, LispObject indicator)
    35103637        throws ConditionThrowable
     
    35123639        return get(symbol, indicator, NIL);
    35133640      }
     3641      @Override
    35143642      public LispObject execute(LispObject symbol, LispObject indicator,
    35153643                                LispObject defaultValue)
     
    35243652    new Primitive("put", PACKAGE_SYS, true)
    35253653    {
     3654      @Override
    35263655      public LispObject execute(LispObject symbol, LispObject indicator,
    35273656                                LispObject value)
     
    35373666          }
    35383667      }
     3668      @Override
    35393669      public LispObject execute(LispObject symbol, LispObject indicator,
    35403670                                LispObject defaultValue, LispObject value)
     
    35563686    new SpecialOperator(Symbol.MACROLET, "definitions &rest body")
    35573687    {
     3688      @Override
    35583689      public LispObject execute(LispObject args, Environment env)
    35593690        throws ConditionThrowable
     
    35933724                  "definition")
    35943725    {
     3726      @Override
    35953727      public LispObject execute(LispObject definition)
    35963728        throws ConditionThrowable
     
    36183750    new SpecialOperator(Symbol.TAGBODY, "&rest statements")
    36193751    {
     3752      @Override
    36203753      public LispObject execute(LispObject args, Environment env)
    36213754        throws ConditionThrowable
     
    36903823    new SpecialOperator(Symbol.GO, "tag")
    36913824    {
     3825      @Override
    36923826      public LispObject execute(LispObject args, Environment env)
    36933827        throws ConditionThrowable
     
    37083842    new SpecialOperator(Symbol.BLOCK, "name &rest forms")
    37093843    {
     3844      @Override
    37103845      public LispObject execute(LispObject args, Environment env)
    37113846        throws ConditionThrowable
     
    37493884    new SpecialOperator(Symbol.RETURN_FROM, "name &optional value")
    37503885    {
     3886      @Override
    37513887      public LispObject execute(LispObject args, Environment env)
    37523888        throws ConditionThrowable
     
    37853921    new SpecialOperator(Symbol.CATCH, "tag &body body")
    37863922    {
     3923      @Override
    37873924      public LispObject execute(LispObject args, Environment env)
    37883925        throws ConditionThrowable
     
    38243961    new SpecialOperator(Symbol.THROW, "tag result")
    38253962    {
     3963      @Override
    38263964      public LispObject execute(LispObject args, Environment env)
    38273965        throws ConditionThrowable
     
    38413979    new SpecialOperator(Symbol.UNWIND_PROTECT, "protected &body cleanup")
    38423980    {
     3981      @Override
    38433982      public LispObject execute(LispObject args, Environment env)
    38443983        throws ConditionThrowable
     
    38734012    new SpecialOperator(Symbol.EVAL_WHEN, "situations &rest forms")
    38744013    {
     4014      @Override
    38754015      public LispObject execute(LispObject args, Environment env)
    38764016        throws ConditionThrowable
     
    38964036                        "vars value-form &body body")
    38974037    {
     4038      @Override
    38984039      public LispObject execute(LispObject args, Environment env)
    38994040        throws ConditionThrowable
     
    39994140                        "values-form &rest forms")
    40004141    {
     4142      @Override
    40014143      public LispObject execute(LispObject args, Environment env)
    40024144        throws ConditionThrowable
     
    40214163    new SpecialOperator(Symbol.MULTIPLE_VALUE_CALL, "fun &rest args")
    40224164    {
     4165      @Override
    40234166      public LispObject execute(LispObject args, Environment env)
    40244167        throws ConditionThrowable
     
    40724215    new SpecialOperator(Symbol.AND, "&rest forms")
    40734216    {
     4217      @Override
    40744218      public LispObject execute(LispObject args, Environment env)
    40754219        throws ConditionThrowable
     
    41004244    new SpecialOperator(Symbol.OR, "&rest forms")
    41014245    {
     4246      @Override
    41024247      public LispObject execute(LispObject args, Environment env)
    41034248        throws ConditionThrowable
     
    41294274    new SpecialOperator(Symbol.MULTIPLE_VALUE_LIST, "value-form")
    41304275    {
     4276      @Override
    41314277      public LispObject execute(LispObject args, Environment env)
    41324278        throws ConditionThrowable
     
    41544300    new SpecialOperator(Symbol.NTH_VALUE, "n form")
    41554301    {
     4302      @Override
    41564303      public LispObject execute(LispObject args, Environment env)
    41574304        throws ConditionThrowable
     
    41814328    new Primitive("call-count", PACKAGE_SYS, true)
    41824329    {
     4330      @Override
    41834331      public LispObject execute(LispObject arg) throws ConditionThrowable
    41844332      {
     
    41914339    new Primitive("set-call-count", PACKAGE_SYS, true)
    41924340    {
     4341      @Override
    41934342      public LispObject execute(LispObject first, LispObject second)
    41944343        throws ConditionThrowable
     
    42034352    new Primitive("lambda-name", PACKAGE_SYS, true)
    42044353    {
     4354      @Override
    42054355      public LispObject execute(LispObject arg) throws ConditionThrowable
    42064356      {
     
    42214371    new Primitive("%set-lambda-name", PACKAGE_SYS, false)
    42224372    {
     4373      @Override
    42234374      public LispObject execute(LispObject first, LispObject second)
    42244375        throws ConditionThrowable
     
    42454396    new Primitive("shrink-vector", PACKAGE_SYS, true, "vector new-size")
    42464397    {
     4398      @Override
    42474399      public LispObject execute(LispObject first, LispObject second)
    42484400        throws ConditionThrowable
     
    42574409    new Primitive(Symbol.SUBSEQ, "sequence start &optional end")
    42584410    {
     4411      @Override
    42594412      public LispObject execute(LispObject first, LispObject second)
    42604413        throws ConditionThrowable
     
    42854438        return type_error(first, Symbol.SEQUENCE);
    42864439      }
     4440      @Override
    42874441      public LispObject execute(LispObject first, LispObject second,
    42884442                                LispObject third)
     
    43554509    new Primitive(Symbol.LIST, "&rest objects")
    43564510    {
     4511      @Override
    43574512      public LispObject execute()
    43584513      {
    43594514        return NIL;
    43604515      }
     4516      @Override
    43614517      public LispObject execute(LispObject arg)
    43624518      {
    43634519        return new Cons(arg);
    43644520      }
     4521      @Override
    43654522      public LispObject execute(LispObject first, LispObject second)
    43664523      {
    43674524        return new Cons(first, new Cons(second));
    43684525      }
     4526      @Override
    43694527      public LispObject execute(LispObject first, LispObject second,
    43704528                                LispObject third)
     
    43724530        return new Cons(first, new Cons(second, new Cons(third)));
    43734531      }
     4532      @Override
    43744533      public LispObject execute(LispObject first, LispObject second,
    43754534                                LispObject third, LispObject fourth)
     
    43804539                                          new Cons(fourth))));
    43814540      }
     4541      @Override
    43824542      public LispObject execute(LispObject[] args) throws ConditionThrowable
    43834543      {
     
    43934553    new Primitive(Symbol.LIST_STAR, "&rest objects")
    43944554    {
     4555      @Override
    43954556      public LispObject execute() throws ConditionThrowable
    43964557      {
    43974558        return error(new WrongNumberOfArgumentsException(this));
    43984559      }
     4560      @Override
    43994561      public LispObject execute(LispObject arg) throws ConditionThrowable
    44004562      {
    44014563        return arg;
    44024564      }
     4565      @Override
    44034566      public LispObject execute(LispObject first, LispObject second)
    44044567        throws ConditionThrowable
     
    44064569        return new Cons(first, second);
    44074570      }
     4571      @Override
    44084572      public LispObject execute(LispObject first, LispObject second,
    44094573                                LispObject third)
     
    44124576        return new Cons(first, new Cons(second, third));
    44134577      }
     4578      @Override
    44144579      public LispObject execute(LispObject first, LispObject second,
    44154580                                LispObject third, LispObject fourth)
     
    44204585                                 new Cons(third, fourth)));
    44214586      }
     4587      @Override
    44224588      public LispObject execute(LispObject[] args) throws ConditionThrowable
    44234589      {
     
    44344600    new Primitive(Symbol.NREVERSE, "sequence")
    44354601    {
     4602      @Override
    44364603      public LispObject execute (LispObject arg) throws ConditionThrowable
    44374604      {
     
    44444611    new Primitive(Symbol.NRECONC, "list tail")
    44454612    {
     4613      @Override
    44464614      public LispObject execute(LispObject list, LispObject obj)
    44474615        throws ConditionThrowable
     
    44904658    new Primitive(Symbol.REVERSE, "sequence")
    44914659    {
     4660      @Override
    44924661      public LispObject execute(LispObject arg) throws ConditionThrowable
    44934662      {
     
    45004669    new Primitive("delete-eq", PACKAGE_SYS, true, "item sequence")
    45014670    {
     4671      @Override
    45024672      public LispObject execute(LispObject item, LispObject sequence)
    45034673        throws ConditionThrowable
     
    45144684    new Primitive("delete-eql", PACKAGE_SYS, true, "item sequence")
    45154685    {
     4686      @Override
    45164687      public LispObject execute(LispObject item, LispObject sequence)
    45174688        throws ConditionThrowable
     
    45284699    new Primitive("list-delete-eq", PACKAGE_SYS, true, "item list")
    45294700    {
     4701      @Override
    45304702      public LispObject execute(LispObject item, LispObject list)
    45314703        throws ConditionThrowable
     
    45774749    new Primitive("list-delete-eql", PACKAGE_SYS, true, "item list")
    45784750    {
     4751      @Override
    45794752      public LispObject execute(LispObject item, LispObject list)
    45804753        throws ConditionThrowable
     
    46264799    new Primitive("vector-delete-eq", PACKAGE_SYS, true, "item vector")
    46274800    {
     4801      @Override
    46284802      public LispObject execute(LispObject item, LispObject vector)
    46294803        throws ConditionThrowable
     
    46454819    new Primitive("vector-delete-eql", PACKAGE_SYS, true, "item vector")
    46464820    {
     4821      @Override
    46474822      public LispObject execute(LispObject item, LispObject vector)
    46484823        throws ConditionThrowable
     
    46654840    new Primitive("%set-elt", PACKAGE_SYS, false)
    46664841    {
     4842      @Override
    46674843      public LispObject execute(LispObject first, LispObject second,
    46684844                                LispObject third)
     
    47024878    new Primitive("%make-list", PACKAGE_SYS, true)
    47034879    {
     4880      @Override
    47044881      public LispObject execute(LispObject first, LispObject second)
    47054882        throws ConditionThrowable
     
    47204897    new Primitive("%member", PACKAGE_SYS, true)
    47214898    {
     4899      @Override
    47224900      public LispObject execute(LispObject item, LispObject list,
    47234901                                LispObject key, LispObject test,
     
    47954973    new Primitive("funcall-key", PACKAGE_SYS, false)
    47964974    {
     4975      @Override
    47974976      public LispObject execute(LispObject first, LispObject second)
    47984977        throws ConditionThrowable
     
    48084987    new Primitive("coerce-to-function", PACKAGE_SYS, true)
    48094988    {
     4989      @Override
    48104990      public LispObject execute(LispObject arg) throws ConditionThrowable
    48114991      {
     
    48184998    new Primitive("make-closure", PACKAGE_SYS, true)
    48194999    {
     5000      @Override
    48205001      public LispObject execute(LispObject first, LispObject second)
    48215002        throws ConditionThrowable
     
    48385019    new Primitive(Symbol.STREAMP, "object")
    48395020    {
     5021      @Override
    48405022      public LispObject execute(LispObject arg)
    48415023      {
     
    48485030    new Primitive(Symbol.INTEGERP, "object")
    48495031    {
     5032      @Override
    48505033      public LispObject execute(LispObject arg)
    48515034      {
     
    48585041    new Primitive(Symbol.EVENP, "integer")
    48595042    {
     5043      @Override
    48605044      public LispObject execute(LispObject arg) throws ConditionThrowable
    48615045      {
     
    48675051  private static final Primitive ODDP = new Primitive(Symbol.ODDP, "integer")
    48685052    {
     5053      @Override
    48695054      public LispObject execute(LispObject arg) throws ConditionThrowable
    48705055      {
     
    48775062    new Primitive(Symbol.NUMBERP, "object")
    48785063    {
     5064      @Override
    48795065      public LispObject execute(LispObject arg)
    48805066      {
     
    48875073    new Primitive(Symbol.REALP, "object")
    48885074    {
     5075      @Override
    48895076      public LispObject execute(LispObject arg)
    48905077      {
     
    48975084    new Primitive(Symbol.RATIONALP,"object")
    48985085    {
     5086      @Override
    48995087      public LispObject execute(LispObject arg)
    49005088      {
     
    49075095    new Primitive(Symbol.COMPLEX, "realpart &optional imagpart")
    49085096    {
     5097      @Override
    49095098      public LispObject execute(LispObject arg) throws ConditionThrowable
    49105099      {
     
    49175106        return type_error(arg, Symbol.REAL);
    49185107      }
     5108      @Override
    49195109      public LispObject execute(LispObject first, LispObject second)
    49205110        throws ConditionThrowable
     
    49285118    new Primitive(Symbol.COMPLEXP, "object")
    49295119    {
     5120      @Override
    49305121      public LispObject execute(LispObject arg)
    49315122      {
     
    49385129    new Primitive(Symbol.NUMERATOR, "rational")
    49395130    {
     5131      @Override
    49405132      public LispObject execute(LispObject arg) throws ConditionThrowable
    49415133      {
     
    49485140    new Primitive(Symbol.DENOMINATOR, "rational")
    49495141    {
     5142      @Override
    49505143      public LispObject execute(LispObject arg) throws ConditionThrowable
    49515144      {
     
    49585151    new Primitive(Symbol.REALPART, "number")
    49595152    {
     5153      @Override
    49605154      public LispObject execute(LispObject arg) throws ConditionThrowable
    49615155      {
     
    49725166    new Primitive(Symbol.IMAGPART, "number")
    49735167    {
     5168      @Override
    49745169      public LispObject execute(LispObject arg) throws ConditionThrowable
    49755170      {
     
    49845179    new Primitive(Symbol.INTEGER_LENGTH, "integer")
    49855180    {
     5181      @Override
    49865182      public LispObject execute(LispObject arg) throws ConditionThrowable
    49875183      {
     
    50095205    new Primitive("gcd-2", PACKAGE_SYS, false)
    50105206    {
     5207      @Override
    50115208      public LispObject execute(LispObject first, LispObject second)
    50125209        throws ConditionThrowable
     
    50335230    new Primitive("identity-hash-code", PACKAGE_SYS, true)
    50345231    {
     5232      @Override
    50355233      public LispObject execute(LispObject arg) throws ConditionThrowable
    50365234      {
     
    50445242    new Primitive("simple-vector-search", PACKAGE_SYS, false)
    50455243    {
     5244      @Override
    50465245      public LispObject execute(LispObject first, LispObject second)
    50475246        throws ConditionThrowable
     
    51185317    new Primitive("uptime", PACKAGE_EXT, true)
    51195318    {
     5319      @Override
    51205320      public LispObject execute() throws ConditionThrowable
    51215321      {
     
    51285328    new Primitive("built-in-function-p", PACKAGE_SYS, true)
    51295329    {
     5330      @Override
    51305331      public LispObject execute(LispObject arg) throws ConditionThrowable
    51315332      {
     
    51455346    new Primitive("inspected-parts", PACKAGE_SYS, true)
    51465347    {
     5348      @Override
    51475349      public LispObject execute(LispObject arg) throws ConditionThrowable
    51485350      {
     
    51555357    new Primitive("inspected-description", PACKAGE_SYS, false)
    51565358    {
     5359      @Override
    51575360      public LispObject execute(LispObject arg) throws ConditionThrowable
    51585361      {
     
    51655368    new Primitive(Symbol.SYMBOL_NAME, "symbol")
    51665369    {
     5370      @Override
    51675371      public LispObject execute(LispObject arg) throws ConditionThrowable
    51685372      {
     
    51825386    new Primitive(Symbol.SYMBOL_PACKAGE, "symbol")
    51835387    {
     5388      @Override
    51845389      public LispObject execute(LispObject arg) throws ConditionThrowable
    51855390      {
     
    51995404    new Primitive(Symbol.SYMBOL_FUNCTION, "symbol")
    52005405    {
     5406      @Override
    52015407      public LispObject execute(LispObject arg) throws ConditionThrowable
    52025408      {
     
    52195425    new Primitive("%set-symbol-function", PACKAGE_SYS, false, "symbol function")
    52205426    {
     5427      @Override
    52215428      public LispObject execute(LispObject first, LispObject second)
    52225429        throws ConditionThrowable
     
    52385445    new Primitive(Symbol.SYMBOL_PLIST, "symbol")
    52395446    {
     5447      @Override
    52405448      public LispObject execute(LispObject arg) throws ConditionThrowable
    52415449      {
     
    52555463    new Primitive(Symbol.KEYWORDP, "object")
    52565464    {
     5465      @Override
    52575466      public LispObject execute(LispObject arg) throws ConditionThrowable
    52585467      {
     
    52705479    new Primitive(Symbol.MAKE_SYMBOL, "name")
    52715480    {
     5481      @Override
    52725482      public LispObject execute(LispObject arg) throws ConditionThrowable
    52735483      {
     
    52855495    new Primitive(Symbol.MAKUNBOUND, "symbol")
    52865496    {
     5497      @Override
    52875498      public LispObject execute(LispObject arg) throws ConditionThrowable
    52885499      {
     
    53035514    new Primitive("%class-name", PACKAGE_SYS, true, "class")
    53045515    {
     5516      @Override
    53055517      public LispObject execute(LispObject arg) throws ConditionThrowable
    53065518      {
     
    53205532    new Primitive("%set-class-name", PACKAGE_SYS, true)
    53215533    {
     5534      @Override
    53225535      public LispObject execute(LispObject first, LispObject second)
    53235536        throws ConditionThrowable
     
    53395552    new Primitive("class-layout", PACKAGE_SYS, true, "class")
    53405553    {
     5554      @Override
    53415555      public LispObject execute(LispObject arg) throws ConditionThrowable
    53425556      {
     
    53575571    new Primitive("%set-class-layout", PACKAGE_SYS, true, "class layout")
    53585572    {
     5573      @Override
    53595574      public LispObject execute(LispObject first, LispObject second)
    53605575        throws ConditionThrowable
     
    53815596    new Primitive("class-direct-superclasses", PACKAGE_SYS, true)
    53825597    {
     5598      @Override
    53835599      public LispObject execute(LispObject arg) throws ConditionThrowable
    53845600      {
     
    53985614    new Primitive("%set-class-direct-superclasses", PACKAGE_SYS, true)
    53995615    {
     5616      @Override
    54005617      public LispObject execute(LispObject first, LispObject second)
    54015618        throws ConditionThrowable
     
    54175634    new Primitive("class-direct-subclasses", PACKAGE_SYS, true)
    54185635    {
     5636      @Override
    54195637      public LispObject execute(LispObject arg) throws ConditionThrowable
    54205638      {
     
    54355653                  "class direct-subclasses")
    54365654    {
     5655      @Override
    54375656      public LispObject execute(LispObject first, LispObject second)
    54385657        throws ConditionThrowable
     
    54545673    new Primitive("%class-precedence-list", PACKAGE_SYS, true)
    54555674    {
     5675      @Override
    54565676      public LispObject execute(LispObject arg) throws ConditionThrowable
    54575677      {
     
    54715691    new Primitive("set-class-precedence-list", PACKAGE_SYS, true)
    54725692    {
     5693      @Override
    54735694      public LispObject execute(LispObject first, LispObject second)
    54745695        throws ConditionThrowable
     
    54905711    new Primitive("class-direct-methods", PACKAGE_SYS, true)
    54915712    {
     5713      @Override
    54925714      public LispObject execute(LispObject arg)
    54935715        throws ConditionThrowable
     
    55085730    new Primitive("%set-class-direct-methods", PACKAGE_SYS, true)
    55095731    {
     5732      @Override
    55105733      public LispObject execute(LispObject first, LispObject second)
    55115734        throws ConditionThrowable
     
    55275750    new Primitive("class-documentation", PACKAGE_SYS, true)
    55285751    {
     5752      @Override
    55295753      public LispObject execute(LispObject arg)
    55305754        throws ConditionThrowable
     
    55455769    new Primitive("%set-class-documentation", PACKAGE_SYS, true)
    55465770    {
     5771      @Override
    55475772      public LispObject execute(LispObject first, LispObject second)
    55485773        throws ConditionThrowable
     
    55645789    new Primitive("class-finalized-p", PACKAGE_SYS, true)
    55655790    {
     5791      @Override
    55665792      public LispObject execute(LispObject arg) throws ConditionThrowable
    55675793      {
     
    55815807    new Primitive("%set-class-finalized-p", PACKAGE_SYS, true)
    55825808    {
     5809      @Override
    55835810      public LispObject execute(LispObject first, LispObject second)
    55845811        throws ConditionThrowable
     
    56005827    new Primitive("classp", PACKAGE_EXT, true)
    56015828    {
     5829      @Override
    56025830      public LispObject execute(LispObject arg)
    56035831      {
     
    56105838    new Primitive("char-to-utf8", PACKAGE_EXT, true)
    56115839    {
     5840      @Override
    56125841      public LispObject execute(LispObject arg) throws ConditionThrowable
    56135842      {
     
    56505879                  "object doc-type")
    56515880    {
     5881      @Override
    56525882      public LispObject execute(LispObject object, LispObject docType)
    56535883        throws ConditionThrowable
     
    56725902                  "object doc-type documentation")
    56735903    {
     5904      @Override
    56745905      public LispObject execute(LispObject object, LispObject docType,
    56755906                                LispObject documentation)
     
    56865917                  "plist indicator new-value")
    56875918    {
     5919      @Override
    56885920      public LispObject execute(LispObject plist, LispObject indicator,
    56895921                                LispObject newValue)
     
    56985930    new Primitive("function-plist", PACKAGE_SYS, true, "function")
    56995931    {
     5932      @Override
    57005933      public LispObject execute(LispObject arg) throws ConditionThrowable
    57015934      {
     
    57155948    new Primitive("make-keyword", PACKAGE_SYS, true, "symbol")
    57165949    {
     5950      @Override
    57175951      public LispObject execute(LispObject arg) throws ConditionThrowable
    57185952      {
     
    57325966    new Primitive("standard-object-p", PACKAGE_SYS, true, "object")
    57335967    {
     5968      @Override
    57345969      public LispObject execute(LispObject arg)
    57355970      {
     
    57425977    new Primitive(Symbol.COPY_TREE, "object")
    57435978    {
     5979      @Override
    57445980      public LispObject execute(LispObject arg)
    57455981      {
Note: See TracChangeset for help on using the changeset viewer.