Changeset 3573
- Timestamp:
- 09/04/03 04:52:58 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r3571 r3573 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Primitives.java,v 1.37 0 2003-09-04 04:44:57piso Exp $5 * $Id: Primitives.java,v 1.371 2003-09-04 04:52:58 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 4298 4298 if (power instanceof Fixnum) { 4299 4299 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; 4302 4302 else 4303 result = new LispFloat(1);4304 int count = Fixnum.getInt(power);4303 result = Fixnum.ONE; 4304 int count = ((Fixnum)power).getValue(); 4305 4305 if (count > 0) { 4306 4306 for (int i = count; i-- > 0;)
Note: See TracChangeset
for help on using the changeset viewer.