fix AOT bug preventing overriding of clojure.core functions

Signed-off-by: Stuart Halloway <stu@cognitect.com>

Author: bronsa

src/jvm/clojure/lang/Compiler.java

@@ -392,6 +392,7 @@ static class DefExpr implements Expr{
 	public final Expr meta;
 	public final boolean initProvided;
 	public final boolean isDynamic;
+	public final boolean shadowsCoreMapping;
 	public final String source;
 	public final int line;
 	public final int column;
@@ -400,15 +401,17 @@ static class DefExpr implements Expr{
 	final static Method setMetaMethod = Method.getMethod("void setMeta(clojure.lang.IPersistentMap)");
 	final static Method setDynamicMethod = Method.getMethod("clojure.lang.Var setDynamic(boolean)");
 	final static Method symintern = Method.getMethod("clojure.lang.Symbol intern(String, String)");
+	final static Method internVar = Method.getMethod("clojure.lang.Var refer(clojure.lang.Symbol, clojure.lang.Var)");
 
-	public DefExpr(String source, int line, int column, Var var, Expr init, Expr meta, boolean initProvided, boolean isDynamic){
+	public DefExpr(String source, int line, int column, Var var, Expr init, Expr meta, boolean initProvided, boolean isDynamic, boolean shadowsCoreMapping){
 		this.source = source;
 		this.line = line;
 		this.column = column;
 		this.var = var;
 		this.init = init;
 		this.meta = meta;
 		this.isDynamic = isDynamic;
+		this.shadowsCoreMapping = shadowsCoreMapping;
 		this.initProvided = initProvided;
 	}
 
@@ -454,6 +457,18 @@ public Object eval() {
 
 	public void emit(C context, ObjExpr objx, GeneratorAdapter gen){
 		objx.emitVar(gen, var);
+
+		if (shadowsCoreMapping)
+		{
+			gen.dup();
+			gen.getField(VAR_TYPE, "ns", NS_TYPE);
+			gen.swap();
+			gen.dup();
+			gen.getField(VAR_TYPE, "sym", SYMBOL_TYPE);
+			gen.swap();
+			gen.invokeVirtual(NS_TYPE, internVar);
+		}
+
 		if(isDynamic)
 			{
 			gen.push(isDynamic);
@@ -511,11 +526,13 @@ else if(!(RT.second(form) instanceof Symbol))
 			Var v = lookupVar(sym, true);
 			if(v == null)
 				throw Util.runtimeException("Can't refer to qualified var that doesn't exist");
+			boolean shadowsCoreMapping = false;
 			if(!v.ns.equals(currentNS()))
 				{
 				if(sym.ns == null)
 					{
 					v = currentNS().intern(sym);
+					shadowsCoreMapping = true;
 					registerVar(v);
 					}
 //					throw Util.runtimeException("Name conflict, can't def " + sym + " because namespace: " + currentNS().name +
@@ -559,7 +576,7 @@ else if(!(RT.second(form) instanceof Symbol))
 			Expr meta = mm.count()==0 ? null:analyze(context == C.EVAL ? context : C.EXPRESSION, mm);
 			return new DefExpr((String) SOURCE.deref(), lineDeref(), columnDeref(),
 			                   v, analyze(context == C.EVAL ? context : C.EXPRESSION, RT.third(form), v.sym.name),
-			                   meta, RT.count(form) == 3, isDynamic);
+			                   meta, RT.count(form) == 3, isDynamic, shadowsCoreMapping);
 		}
 	}
 }