From 8097a8b344b6aba893bfdbec11dfee9da350c89f Mon Sep 17 00:00:00 2001 From: David Botton Date: Fri, 15 Jul 2022 09:50:26 -0400 Subject: [PATCH] more secure connection ids --- source/clog-connection.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/clog-connection.lisp b/source/clog-connection.lisp index 8ae3f98..577bdc9 100644 --- a/source/clog-connection.lisp +++ b/source/clog-connection.lisp @@ -178,7 +178,7 @@ the default answer. (Private)" (setf (gethash id *connection-ids*) connection) (setf (gethash connection *connections*) id)) (t - (setf id (generate-id)) + (setf id (+ (get-universal-time) (generate-id))) (setf (gethash connection *connections*) id) (setf (gethash id *connection-ids*) connection) (setf (gethash id *connection-data*)