Fix return-from for session-verify.

This commit is contained in:
User Hunchentoot
2014-03-03 18:56:43 -05:00
parent d3b5a1b58d
commit 4600b14725

View File

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