1;; Test contributed by Victor van den Elzen
2;; for Savannah bug #36973: "poor overload resolution when boxing numerics"
3
4(define-simple-class ContentValues ()
5  ((put s::java.lang.String d::double) ::void
6   (format #t "called ContentValues(String,double)~%"))
7  ((put s::java.lang.String l::long) ::void
8   (format #t "called ContentValues(String,long)~%")))
9
10
11(define (foo cv::ContentValues s::java.lang.String l::long)
12  (cv:put s l))
13
14(foo (ContentValues) "hello" 123)
15;; Output: called ContentValues(String,long)
16