Fix return-from for session-verify.

11 years ago · 4600b14725
parent d3b5a1b58d
commit 4600b14725
1 changed files with 1 additions and 1 deletions
--- a/pg-sessions.lisp
+++ b/pg-sessions.lisp
@ -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))