More work on type reflection warnings in clojure.core

Author: dmiller

Clojure/Clojure.Source/clojure/core.clj

@@ -4834,7 +4834,7 @@ Note that read can execute code (controlled by *read-eval*),
    that carries a map of additional data."
   {:added "1.4"}
   ([msg map]
-    (elide-top-frames (ExceptionInfo. ^String msg map) "clojure.core$ex_info"))                                ;;; Added type hint -- conflicting overload on 2 args
+    (elide-top-frames (ExceptionInfo. ^String msg ^clojure.lang.IPersistentMap map) "clojure.core$ex_info"))   ;;; Added type hints -- conflicting overload on 2 args
   ([msg map cause]
     (elide-top-frames (ExceptionInfo. msg map cause) "clojure.core$ex_info")))
 

Clojure/Clojure.Source/clojure/core_clr.clj

@@ -362,7 +362,7 @@
 (def framework-description System.Runtime.InteropServices.RuntimeInformation/FrameworkDescription)
 
 (defn- parse-framework-description [] 
-    (let [descr framework-description
+    (let [^String descr framework-description
           prefixes '(( ".NET Framework " :framework)  (".NET Native "  :native) (".NET Core " :core)  (".NET " :dotnet))          
           try-parse (fn [[^String s k]] (when (.StartsWith descr s) [k (.Substring descr (.Length s))]))]
         (some try-parse prefixes)))

Clojure/Clojure.Source/clojure/core_proxy.clj

@@ -52,7 +52,7 @@
         (concat
           [(.Name super)]                                              ;;; .getName
           (map #(subs % (inc (.LastIndexOf ^String % "."))) inames)       ;;; .lastIndexOf
-          [(.ToString (hash inames) "X")] [(clojure.lang.Compiler/IsCompilingSuffix)])))))                             ;;;[(Integer/toHexString (hash inames))])))))                   
+          [(.ToString ^int (hash inames) "X")] [(clojure.lang.Compiler/IsCompilingSuffix)])))))                             ;;;[(Integer/toHexString (hash inames))])))))   Added type hint                
 
 (defn- generate-proxy [^Type super interfaces attributes]     ;;; Class
   (clojure.lang.GenProxy/GenerateProxyClass super interfaces attributes (proxy-name super interfaces)))  ;;;DM;;

Clojure/Clojure.Source/clojure/genclass.clj

@@ -14,15 +14,15 @@
 
  (in-ns 'clojure.core)
 
- (import '(System.Reflection ConstructorInfo))
+ (import '(System.Reflection ConstructorInfo ParameterInfo))
 
  ;;; The options-handling code here is taken from the JVM version.  
 
 
  (defn- ctor-sigs [^Type super]
   (for [^ConstructorInfo ctor (.GetConstructors super)
         :when (not (.IsPrivate ctor))]
-    (apply vector (map #(.ParameterType %) (.GetParameters ctor)))))
+    (apply vector (map #(.ParameterType ^ParameterInfo %) (.GetParameters ctor)))))         ;;; Added type hint
 
 
  (def ^{:private true} prim->class

Clojure/Clojure/Lib/RT.cs

@@ -3356,12 +3356,12 @@ private static void MaybeLoadCljScript(string cljname)
             LoadCljScript(cljname, false);
         }
 
-        static void LoadCljScript(string cljname)
+        public static void LoadCljScript(string cljname)
         {
             LoadCljScript(cljname, true);
         }
 
-        static void LoadCljScript(string cljname, bool failIfNotFound)
+        public static void LoadCljScript(string cljname, bool failIfNotFound)
         {
             FileInfo cljInfo = FindFile(cljname);
             if (cljInfo != null)