Changeset 4809


Ignore:
Timestamp:
11/17/03 16:13:55 (18 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r4791 r4809  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.500 2003-11-16 18:36:25 piso Exp $
     5 * $Id: Primitives.java,v 1.501 2003-11-17 16:13:55 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    43844384
    43854385    // ### denominator
    4386     private static final Primitive1 DENOMINATOR = new Primitive1("denominator") {
     4386    private static final Primitive1 DENOMINATOR = new Primitive1("denominator")
     4387    {
    43874388        public LispObject execute(LispObject arg) throws ConditionThrowable
    43884389        {
     
    43924393
    43934394    // ### realpart
    4394     private static final Primitive1 REALPART = new Primitive1("realpart") {
     4395    private static final Primitive1 REALPART = new Primitive1("realpart")
     4396    {
    43954397        public LispObject execute(LispObject arg) throws ConditionThrowable
    43964398        {
     
    44044406
    44054407    // ### imagpart
    4406     private static final Primitive1 IMAGPART = new Primitive1("imagpart") {
     4408    private static final Primitive1 IMAGPART = new Primitive1("imagpart")
     4409    {
    44074410        public LispObject execute(LispObject arg) throws ConditionThrowable
    44084411        {
     
    44144417
    44154418    // ### integer-length
    4416     private static final Primitive1 INTEGER_LENGTH =
    4417         new Primitive1("integer-length") {
     4419    private static final Primitive1 INTEGER_LENGTH = new Primitive1("integer-length")
     4420    {
    44184421        public LispObject execute(LispObject arg) throws ConditionThrowable
    44194422        {
     
    44294432    };
    44304433
    4431     private static final Primitive1 COS =
    4432         new Primitive1("cos") {
     4434    private static final Primitive1 COS = new Primitive1("cos")
     4435    {
    44334436        public LispObject execute(LispObject arg) throws ConditionThrowable
    44344437        {
     
    44544457    }
    44554458
    4456     private static final Primitive1 SIN =
    4457         new Primitive1("sin") {
     4459    private static final Primitive1 SIN = new Primitive1("sin")
     4460    {
    44584461        public LispObject execute(LispObject arg) throws ConditionThrowable
    44594462        {
     
    44794482    }
    44804483
    4481     private static final Primitive1 TAN =
    4482         new Primitive1("tan") {
     4484    private static final Primitive1 TAN = new Primitive1("tan")
     4485    {
    44834486        public LispObject execute(LispObject arg) throws ConditionThrowable
    44844487        {
     
    44924495    }
    44934496
    4494     private static final Primitive1 EXP =
    4495         new Primitive1("exp") {
     4497    private static final Primitive1 EXP = new Primitive1("exp")
     4498    {
    44964499        public LispObject execute(LispObject arg) throws ConditionThrowable
    44974500        {
Note: See TracChangeset for help on using the changeset viewer.