|
|
@ -167,7 +167,7 @@ will not create a new one."
|
|
|
|
(unless (and session-identifier
|
|
|
|
(unless (and session-identifier
|
|
|
|
(stringp session-identifier)
|
|
|
|
(stringp session-identifier)
|
|
|
|
(plusp (length session-identifier)))
|
|
|
|
(plusp (length session-identifier)))
|
|
|
|
(return-from session-verify nil))
|
|
|
|
(return-from hunchentoot:session-verify nil))
|
|
|
|
(destructuring-bind (id-string session-string)
|
|
|
|
(destructuring-bind (id-string session-string)
|
|
|
|
(cl-ppcre:split ":" session-identifier :limit 2)
|
|
|
|
(cl-ppcre:split ":" session-identifier :limit 2)
|
|
|
|
(let* ((id (parse-integer id-string))
|
|
|
|
(let* ((id (parse-integer id-string))
|
|
|
|