prep for 1.2.281

Signed-off-by: Sean Corfield <sean@corfield.org>

Author: seancorfield

README.md

@@ -85,6 +85,8 @@ Developer Information
 Change Log
 ====================
 
+* Release 1.2.281 on 2026.02.25
+  * Update `core.cache` dep
 * Release 1.2.278 on 2026.02.22
   * Update `core.cache` dep
   * Add clj-kondo support

deps.edn

@@ -3,7 +3,7 @@
 ;; against: :1.9 :1.10 :1.11 :1.12
 
 {:paths ["src/main/clojure" "resources"]
- :deps {org.clojure/core.cache {:mvn/version "1.2.254"}}
+ :deps {org.clojure/core.cache {:mvn/version "1.2.263"}}
  :aliases {:1.9 {:override-deps {org.clojure/clojure {:mvn/version "1.9.0"}}}
            :1.10 {:override-deps {org.clojure/clojure {:mvn/version "1.10.3"}}}
            :1.11 {:override-deps {org.clojure/clojure {:mvn/version "1.11.4"}}}

src/main/clojure/clojure/core/memoize.clj

@@ -42,14 +42,13 @@
         ;; second check (race condition with locking)
         (if available?
           value
-          (do
-            ;; fun may throw - will retry on next deref
-            (let [v (fun)]
-              ;; this ordering is important - MUST set value before setting available?
-              ;; or you have a race with the first check above
-              (set! value v)
-              (set! available? true)
-              v))))))
+          ;; fun may throw - will retry on next deref
+          (let [v (fun)]
+            ;; this ordering is important - MUST set value before setting available?
+            ;; or you have a race with the first check above
+            (set! value v)
+            (set! available? true)
+            v)))))
   clojure.lang.IPending
   (isRealized [this]
     available?))
@@ -438,6 +437,16 @@
    (check-args "lru" f base key threshold)
    (memoizer f (cache/lru-cache-factory {} :threshold threshold) base)))
 
+(comment
+  (def counter (atom 0))
+  (defn f [x] (println x) (throw (ex-info "error" {:c (swap! counter inc) :x x})))
+  (f {:a 1 :b 2})
+  (def f' (lru (with-meta f {::args-fn (fn [args] (:a (first args)))})))
+  (meta f')
+  (try (f' {:a "A" :b 1}) (catch Exception e (ex-data e)))
+  (try (f' {:a "A" :b 3}) (catch Exception e (ex-data e)))
+  )
+
 ;; ### TTL
 
 (def-deprecated ttl