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