short print-dup for LazilyPersistenVectors

made re-pattern identity for patterns, now find-doc works with patterns too

2 files changed, 7 insertions, 4 deletions

diff --git a/src/clj/clojure/core-print.clj b/src/clj/clojure/core-print.clj
index 05c8abc4..b5e9c61e 100644
--- a/src/clj/clojure/core-print.clj
+++ b/src/clj/clojure/core-print.clj
@@ -256,6 +256,7 @@
 (defmethod print-dup clojure.lang.PersistentHashMap [o w] (print-method o w))
 (defmethod print-dup clojure.lang.PersistentHashSet [o w] (print-method o w))
 (defmethod print-dup clojure.lang.PersistentVector [o w] (print-method o w))
+(defmethod print-dup clojure.lang.LazilyPersistentVector [o w] (print-method o w))
 
 (def primitives-classnames
   {Float/TYPE "Float/TYPE"
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index 6a160a4a..e26a15a1 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -2488,7 +2488,9 @@
   "Returns an instance of java.util.regex.Pattern, for use, e.g. in
   re-matcher."  
   {:tag java.util.regex.Pattern}
-  [s] (. java.util.regex.Pattern (compile s)))
+  [s] (if (instance? java.util.regex.Pattern s)
+        s
+        (. java.util.regex.Pattern (compile s))))
   
 (defn re-matcher
   "Returns an instance of java.util.regex.Matcher, for use, e.g. in
@@ -2567,9 +2569,9 @@
 
 (defn find-doc
   "Prints documentation for any var whose documentation or name
- contains a match for re-string"
-  [re-string]
-    (let [re  (re-pattern re-string)]
+ contains a match for re-string-or-pattern"
+  [re-string-or-pattern]
+    (let [re  (re-pattern re-string-or-pattern)]
       (dorun (for [ns (all-ns) 
                    v (sort-by (comp :name meta) (vals (ns-interns ns)))
                    :when (and (:doc ^v)