diff options
-rw-r--r-- | flash.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 |