inlined bit shifts, added definterface (undocumented for now)

1 files changed, 7 insertions, 0 deletions

diff --git a/src/jvm/clojure/lang/Numbers.java b/src/jvm/clojure/lang/Numbers.java
index 04002085..5682d581 100644
--- a/src/jvm/clojure/lang/Numbers.java
+++ b/src/jvm/clojure/lang/Numbers.java
@@ -348,10 +348,17 @@ static public Number shiftLeft(Number x, int n){
 	return bitOps(x).shiftLeft(x, n);
 }
 
+static public int shiftLeft(int x, int n){
+	return x << n;
+}
+
 static public Number shiftRight(Number x, int n){
 	return bitOps(x).shiftRight(x, n);
 }
 
+static public int shiftRight(int x, int n){
+	return x >> n;
+}
 
 final static class IntegerOps implements Ops{
 	public Ops combine(Ops y){