[misc] Remove unused misc functions

Author: alexander-yakushev

CHANGELOG.md

@@ -6,6 +6,7 @@
    - `orchard.namespace/read-namespace`, `orchard.namespace/ensure-namespace`
    - `orchard.meta/var-meta-whitelist`
    - `orchard.inspect/set-page-size`, `orchard.inspect/set-max-atom-length`, `orchard.inspect/set-max-value-length`, `orchard.inspect/set-max-coll-size`, `orchard.inspect/set-max-nested-depth`
+* [#318](https://github.com/clojure-emacs/orchard/pull/318): **BREAKING:** Remove no longer used functions: `orchard.misc/lazy-seq?`, `orchard.misc/safe-count`, `orchard.misc/normalize-subclass`, `orchard.misc/remove-type-param`.
 
 ## 0.30.1 (2025-02-24)
 

src/orchard/java/parser_next.clj

@@ -383,7 +383,7 @@
                                       (= kind TypeKind/TYPEVAR)
                                       (upper-bound type))
                                 str
-                                misc/remove-type-param
+                                (string/replace #"<.*>" "") ;; Remove generics
                                 symbol)]
                (some-> (or best
                            (type->sym element))

src/orchard/misc.clj

@@ -158,20 +158,3 @@
     (fn [& args]
       (when resolved-fn
         (apply resolved-fn args)))))
-
-(defn lazy-seq?
-  "Return true if `x` is a lazy seq, otherwise false."
-  [x]
-  (and (seq? x) (not (counted? x))))
-
-(defn safe-count
-  "Call `clojure.core/count` on `x` if it is a collection, but not a lazy seq."
-  [x]
-  (when (and (coll? x) (not (lazy-seq? x)))
-    (count x)))
-
-(defn normalize-subclass [s]
-  (string/replace s "$" "."))
-
-(defn remove-type-param [s]
-  (string/replace s #"<.*>" ""))

test/orchard/misc_test.clj

@@ -70,14 +70,3 @@
     (is (= 1 (f 1))))
   (let [f (misc/call-when-resolved 'com.example/unknown)]
     (is (nil? (f 1)))))
-
-(deftest lazy-seq?
-  (is (misc/lazy-seq? (repeat 1)))
-  (is (not (misc/lazy-seq? nil)))
-  (is (not (misc/lazy-seq? [1 2 3])))
-  (is (not (misc/lazy-seq? :not-a-seq))))
-
-(deftest safe-count
-  (is (= 3 (misc/safe-count [1 2 3])))
-  (is (nil? (misc/safe-count (repeat 1))))
-  (is (nil? (misc/safe-count :not-a-seq))))