diff options
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)))) |