Changeset 3573


Ignore:
Timestamp:
09/04/03 04:52:58 (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

    r3571 r3573  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.370 2003-09-04 04:44:57 piso Exp $
     5 * $Id: Primitives.java,v 1.371 2003-09-04 04:52:58 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    42984298            if (power instanceof Fixnum) {
    42994299                LispObject result = null;
    4300                 if (n instanceof Fixnum || n instanceof Bignum)
    4301                     result = new Fixnum(1);
     4300                if (n instanceof LispFloat)
     4301                    result = LispFloat.ONE;
    43024302                else
    4303                     result = new LispFloat(1);
    4304                 int count = Fixnum.getInt(power);
     4303                    result = Fixnum.ONE;
     4304                int count = ((Fixnum)power).getValue();
    43054305                if (count > 0) {
    43064306                    for (int i = count; i-- > 0;)
Note: See TracChangeset for help on using the changeset viewer.