tjhintz/pg-sessions
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix return-from for session-verify.

Browse Source
This commit is contained in:
User Hunchentoot
2014-03-03 18:56:43 -05:00
parent d3b5a1b58d
commit 4600b14725
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
pg-sessions.lisp
View File

@@ -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))