Changeset 4032

Timestamp:

09/23/03 16:32:04 (20 years ago)

Author:

piso

Message:

Moved ASH to ash.java.

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.433 2003-09-23 16:25:03 piso Exp $
+ * $Id: Primitives.java,v 1.434 2003-09-23 16:32:04 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -3943 +3943 @@
     };
 
-    // ### ash
-    // ash integer count => shifted-integer
-    private static final Primitive2 ASH = new Primitive2("ash") {
-        public LispObject execute(LispObject first, LispObject second)
-            throws ConditionThrowable
-        {
-            BigInteger n;
-            if (first instanceof Fixnum)
-                n = BigInteger.valueOf(((Fixnum)first).getValue());
-            else if (first instanceof Bignum)
-                n = ((Bignum)first).getValue();
-            else
-                throw new ConditionThrowable(new TypeError(first, "integer"));
-            if (second instanceof Fixnum) {
-                int count = Fixnum.getInt(second);
-                if (count == 0)
-                    return first;
-                // BigInteger.shiftLeft() succumbs to a stack overflow if count
-                // is Integer.MIN_VALUE, so...
-                if (count == Integer.MIN_VALUE)
-                    return n.signum() >= 0 ? Fixnum.ZERO : new Fixnum(-1);
-                return number(n.shiftLeft(count));
-            }
-            if (second instanceof Bignum) {
-                BigInteger count = ((Bignum)second).getValue();
-                if (count.signum() > 0)
-                    throw new ConditionThrowable(new LispError("can't represent result of left shift"));
-                if (count.signum() < 0)
-                    return n.signum() >= 0 ? Fixnum.ZERO : new Fixnum(-1);
-                Debug.bug(); // Shouldn't happen.
-            }
-            throw new ConditionThrowable(new TypeError(second, "integer"));
-        }
-    };
-
     // ### expt
     // expt base-number power-number => result