We're updating the issue view to help you get more done. 

FIFOCache seed does not properly seed the FIFO queue

Description

1 2 3 4 5 6 7 8 9 10 11 12 (def c (clojure.core.cache/seed (FIFOCache. {} nil 1) {:a 1 :b 2})) (defmethod print-method clojure.lang.PersistentQueue [q, w] (print-method '<- w) (print-method (seq q) w) (print-method '-< w)) (str c ) ;=> "{:a 1, :b 2}, <-(:clojure.core.cache/free)-<" (str (assoc c :c 3)) ;=> "{:a 1, :c 3, :b 2}, <-(:c)-<"

The queue never gets the seed keys :a and :b and so they will never get expelled.

Environment

None

Status

Assignee

Fogus

Reporter

Fogus

Labels

None

Approval

None

Patch

None

Priority

Major