3 files changed, 8 insertions, 0 deletions
diff --git a/src/clojure/contrib/generic/arithmetic.clj b/src/clojure/contrib/generic/arithmetic.clj
index 2f28799f..90b6e659 100644
--- a/src/clojure/contrib/generic/arithmetic.clj
+++ b/src/clojure/contrib/generic/arithmetic.clj
@@ -78,6 +78,7 @@
   "Return the difference of the first argument and the sum of all other
    arguments. The minimal implementation for type ::my-type is the binary
    form with dispatch value [::my-type ::my-type]."
+  {:arglists '([x] [x y] [x y & more])}
   nary-dispatch)
 
 (defmethod - nulary-type
@@ -110,6 +111,7 @@
 (defmulti *
   "Return the product of all arguments. The minimal implementation for type
    ::my-type is the binary form with dispatch value [::my-type ::my-type]."
+  {:arglists '([x] [x y] [x y & more])}
   nary-dispatch)
 
 (defmethod * nulary-type
@@ -142,6 +144,7 @@
   "Return the quotient of the first argument and the product of all other
    arguments. The minimal implementation for type ::my-type is the binary
    form with dispatch value [::my-type ::my-type]."
+  {:arglists '([x] [x y] [x y & more])}
   nary-dispatch)
 
 (defmethod / nulary-type
diff --git a/src/clojure/contrib/generic/collection.clj b/src/clojure/contrib/generic/collection.clj
index 8f5fc068..c708050b 100644
--- a/src/clojure/contrib/generic/collection.clj
+++ b/src/clojure/contrib/generic/collection.clj
@@ -41,6 +41,7 @@
 ;
 (defmulti conj
   "Returns a new collection resulting from adding all xs to coll."
+   {:arglists '([coll & xs])}
   (fn [coll & xs] (type coll)))
 
 (defmethod conj :default
diff --git a/src/clojure/contrib/generic/comparison.clj b/src/clojure/contrib/generic/comparison.clj
index e05d8091..7e2b81fd 100644
--- a/src/clojure/contrib/generic/comparison.clj
+++ b/src/clojure/contrib/generic/comparison.clj
@@ -57,6 +57,7 @@
   "Return true if each argument is larger than the following ones.
    The minimal implementation for type ::my-type is the binary form
    with dispatch value [::my-type ::my-type]."
+  {:arglists '([x] [x y] [x y & more])}
   nary-dispatch)
 
 (defmethod > root-type
@@ -78,6 +79,7 @@
    The minimal implementation for type ::my-type is the binary form
    with dispatch value [::my-type ::my-type]. A default implementation
    is provided in terms of >."
+  {:arglists '([x] [x y] [x y & more])}
   nary-dispatch)
 
 (defmethod < root-type
@@ -103,6 +105,7 @@
    ones. The minimal implementation for type ::my-type is the binary form
    with dispatch value [::my-type ::my-type]. A default implementation
    is provided in terms of <."
+  {:arglists '([x] [x y] [x y & more])}
   nary-dispatch)
 
 (defmethod >= root-type
@@ -128,6 +131,7 @@
    ones. The minimal implementation for type ::my-type is the binary form
    with dispatch value [::my-type ::my-type]. A default implementation
    is provided in terms of >."
+  {:arglists '([x] [x y] [x y & more])}
   nary-dispatch)
 
 (defmethod <= root-type