CLJ-1809 fix local indexing error in direct linking

Signed-off-by: Stuart Halloway <[email protected]>

Author: bronsa

src/jvm/clojure/lang/Compiler.java

@@ -4012,9 +4012,9 @@ else if(methodArray[f.reqParms.count()] == null)
 						{
 						for(LocalBinding lb : (Collection<LocalBinding>)RT.keys(fm.locals))
 							{
-							lb.idx -= 1;
+							if(lb.isArg)
+								lb.idx -= 1;
 							}
-						fm.maxLocal -= 1;
 						}
 					}
 				}

test/clojure/test_clojure/compilation.clj

@@ -356,3 +356,9 @@
   (is (thrown? RuntimeException (eval '(defn foo [] (throw RuntimeException any-symbol)))))
   (is (thrown? RuntimeException (eval '(defn foo [] (throw (RuntimeException.) any-symbol)))))
   (is (var? (eval '(defn foo [] (throw (IllegalArgumentException.)))))))
+
+(deftest clj-1809
+  (is (eval `(fn [y#]
+               (try
+                 (finally
+                   (let [z# y#])))))))