diff options
author | colin <colin@cicadas.surf> | 2023-01-28 07:20:27 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-01-28 07:20:27 -0800 |
commit | 45361bfd67a3c0d63df08860b3944ef578472b60 (patch) | |
tree | 1e8ea553211e2b9700ccc95e9e7dd099aaf1e6f0 /flash.lisp | |
parent | cd486030b6e5c92446a0d5a2f502fd2014b6334e (diff) |
Tweak
Diffstat (limited to 'flash.lisp')
-rw-r--r-- | flash.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -12,6 +12,7 @@ "Number of seconds a flashed value lives.") (defstruct flash-entry + "TABLE is a PLIST" (timestamp (get-universal-time)) (table nil)) @@ -29,9 +30,9 @@ expires." (or (lzb:request-cookie +flash-cookie-name+) (nuid))) (now (get-universal-time))) - ;; holdign a lock here b/c I do stuff in between getting an entry - ;; and writing to it. - (bt:with-lock-held (*flash-lock* ) + ;; holding a lock here b/c I do stuff in between getting an entry + ;; and writing to it. + (bt:with-lock-held (*flash-lock*) (let ((entry (or (gethash key *flashes*) (make-flash-entry)))) |