Changeset 3571


Ignore:
Timestamp:
09/04/03 04:44:57 (19 years ago)
Author:
piso
Message:

EXPT (work in progress)

File:
1 edited

Legend:

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

    r3569 r3571  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.369 2003-09-04 03:52:38 piso Exp $
     5 * $Id: Primitives.java,v 1.370 2003-09-04 04:44:57 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    42814281            throws LispError
    42824282        {
     4283            if (power.zerop()) {
     4284                if (power instanceof Fixnum) {
     4285                    if (n instanceof LispFloat)
     4286                        return LispFloat.ONE;
     4287                    if (n instanceof Complex) {
     4288                        if (((Complex)n).getRealPart() instanceof LispFloat)
     4289                            return Complex.getInstance(LispFloat.ONE,
     4290                                                       LispFloat.ZERO);
     4291                    }
     4292                    return Fixnum.ONE;
     4293                }
     4294                if (power instanceof LispFloat) {
     4295                    return LispFloat.ONE;
     4296                }
     4297            }
    42834298            if (power instanceof Fixnum) {
    42844299                LispObject result = null;
Note: See TracChangeset for help on using the changeset viewer.