Update to Java commit dbaa189 (2024.02.08): CLJ-2225 Improve docstrings of assert and *assert*

Author: dmiller

Clojure/Clojure.Source/clojure/core.clj

@@ -4853,8 +4853,11 @@ Note that read can execute code (controlled by *read-eval*),
     (.InnerException ^Exception ex)))                              ;;; .getCause Throwable
 
 (defmacro assert
-  "Evaluates expr and throws an exception if it does not evaluate to
-  logical true."
+  "Evaluates expression x and throws an AssertionError with optional
+  message if x does not evaluate to logical true.
+
+  Assertion checks are omitted from compiled code if '*assert*' is
+  false."
   {:added "1.0"}
   ([x]
      (when *assert*
@@ -6587,6 +6590,11 @@ fails, attempts to require sym's namespace and retries."
   "
   {:added "1.0"})
 
+(add-doc-and-meta *assert*
+  "When set to logical false, 'assert' will omit assertion checks in
+  compiled code. Defaults to true."
+  {:added "1.0"})
+
 (defn future?
   "Returns true if x is a future"
   {:added "1.1"