inlined bit shifts, added definterface (undocumented for now)

2 files changed, 7 insertions, 6 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){
diff --git a/src/jvm/clojure/lang/RT.java b/src/jvm/clojure/lang/RT.java
index 9fa16a4c..6ed98b43 100644
--- a/src/jvm/clojure/lang/RT.java
+++ b/src/jvm/clojure/lang/RT.java
@@ -501,12 +501,6 @@ static public IPersistentMap meta(Object x){
 	return null;
 }
 
-public static int count(Counted o){
-	if(o != null)
-		return o.count();
-	return 0;
-}
-
 public static int count(Object o){
 	if(o instanceof Counted)
 		return ((Counted) o).count();