direct linking wip, no knobs yet

Author: richhickey

build.xml

@@ -51,7 +51,7 @@
       <sysproperty key="clojure.compile.path" value="${build}"/>
          <!--<sysproperty key="clojure.compiler.elide-meta" value="[:doc :file :line :added]"/>-->
          <!--<sysproperty key="clojure.compiler.disable-locals-clearing" value="true"/>-->
-      <!-- <sysproperty key="clojure.compile.warn-on-reflection" value="true"/> -->
+      <sysproperty key="clojure.compile.warn-on-reflection" value="true"/>
       <sysproperty key="clojure.compiler.elide-meta" value="${compiler.elide-meta}"/>
       <sysproperty key="java.awt.headless" value="true"/>
       <arg value="clojure.core"/>

pom.xml

@@ -295,9 +295,8 @@
                   <target>
                     <property name="maven.compile.classpath"
                               refid="maven.compile.classpath" />
-                    <property name="compiler.elide-meta"
-                              value="[:doc :file :line :added :column :ns :name :static :arglists]"/>
-		                <ant target="compile-clojure"/>
+                    <property name="compiler.elide-meta" value="[:doc :file :line :added :column :ns :name :static :arglists]"/>
+		            <ant target="compile-clojure"/>
                   </target>
                </configuration>
              </execution>

src/clj/clojure/core.clj

@@ -82,11 +82,11 @@
    :added "1.0"
    :static true}
  conj (fn ^:static conj 
-        ([coll x] (. clojure.lang.RT (conj coll x)))
+        ([coll x] (clojure.lang.RT/conj coll x))
         ([coll x & xs]
          (if xs
-           (recur (conj coll x) (first xs) (next xs))
-           (conj coll x)))))
+           (recur (clojure.lang.RT/conj coll x) (first xs) (next xs))
+           (clojure.lang.RT/conj coll x)))))
 
 (def
  ^{:doc "Same as (first (next x))"
@@ -186,9 +186,9 @@
    :static true}
  assoc
  (fn ^:static assoc
-   ([map key val] (. clojure.lang.RT (assoc map key val)))
+   ([map key val] (clojure.lang.RT/assoc map key val))
    ([map key val & kvs]
-    (let [ret (assoc map key val)]
+    (let [ret (clojure.lang.RT/assoc map key val)]
       (if kvs
         (if (next kvs)
           (recur ret (first kvs) (second kvs) (nnext kvs))
@@ -315,7 +315,7 @@
           (list 'def (with-meta name m)
                 ;;todo - restore propagation of fn name
                 ;;must figure out how to convey primitive hints to self calls first
-                (cons `fn fdecl) ))))
+                (with-meta (cons `fn fdecl) {:rettag (:tag m)}) ))))
 
 (. (var defn) (setMacro))