summaryrefslogtreecommitdiff
path: root/flash.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'flash.lisp')
-rw-r--r--flash.lisp3
1 files changed, 2 insertions, 1 deletions
diff --git a/flash.lisp b/flash.lisp
index 09818b0..e7222f2 100644
--- a/flash.lisp
+++ b/flash.lisp
@@ -28,7 +28,8 @@ expires."
(now
(get-universal-time))
(entry
- (gethash key *flashes* (make-flash-entry))))
+ (or (gethash key *flashes*)
+ (make-flash-entry))))
;; update the entry
(setf (flash-entry-timestamp entry) now
(getf (flash-entry-table entry) label) value