Added ASSERT that a user-defined HANDLE-CHECKID-SETUP returns the second value - HTTP status code"
Mon Aug 15 13:13:32 PDT 2011 Anton Vodonosov <avodonosov@yandex.ru>
* Added ASSERT that a user-defined HANDLE-CHECKID-SETUP returns the second value - HTTP status code"
diff -rN -u old-cl-openid/src/provider.lisp new-cl-openid/src/provider.lisp
--- old-cl-openid/src/provider.lisp 2014-07-23 04:57:28.000000000 -0700
+++ new-cl-openid/src/provider.lisp 2014-07-23 04:57:28.000000000 -0700
@@ -353,7 +353,10 @@
(message-field message "openid.return_to"))
(signal-indirect-error message "Realm does not match return_to URI.")))
- (handle-checkid-setup op message)))
+ (multiple-value-bind (body http-code)
+ (handle-checkid-setup op message)
+ (assert http-code (http-code) "The function handle-checkid-setup hasn't returned the required second value - HTTP status code.")
+ (values body http-code))))
("check_authentication" ; FIXME: invalidate_handle flow, invalidate unknown/old handles, gc handles, separate place for private handles.
(values