Plaster

text
#+sbcl (defstruct (memory-store (:include store)) (stash (make-hash-table :test 'equal :synchronized t))) #-sbcl (defstruct (memory-store (:include store)) (stash (make-hash-table :test 'equal)) (lock (bordeaux-threads:make-lock "session store lock")))