add immediate-p slot to the authproc structure
Fri Feb 22 21:28:37 PST 2013 Anton Vodonosov <avodonosov@yandex.ru>
* add immediate-p slot to the authproc structure
diff -rN -u old-cl-openid/src/authproc.lisp new-cl-openid/src/authproc.lisp
--- old-cl-openid/src/authproc.lisp 2014-07-30 06:13:47.000000000 -0700
+++ new-cl-openid/src/authproc.lisp 2014-07-30 06:13:47.000000000 -0700
@@ -12,6 +12,7 @@
(protocol-version-minor 0 :type (unsigned-byte 8))
(claimed-id nil :type uri)
(op-local-id nil :type (or uri null))
+ (immediate-p nil)
(return-to nil :type (or uri null))
(xrds-location nil :type (or uri null))
(provider-endpoint-uri nil :type (or uri null))
diff -rN -u old-cl-openid/src/package.lisp new-cl-openid/src/package.lisp
--- old-cl-openid/src/package.lisp 2014-07-30 06:13:47.000000000 -0700
+++ new-cl-openid/src/package.lisp 2014-07-30 06:13:47.000000000 -0700
@@ -17,7 +17,8 @@
#:initiate-authentication #:+authproc-handle-parameter+ #:handle-indirect-response
;; AUTH-PROCESS structure
#:auth-process #:auth-process-p #:protocol-version-major #:protocol-version-minor
- #:protocol-version #:claimed-id #:op-local-id #:return-to #:xrds-location
+ #:protocol-version #:claimed-id #:op-local-id #:immediate-p
+ #:return-to #:xrds-location
#:provider-endpoint-uri #:timestamp
;; assertion error condition
#:openid-assertion-error #:code #:reason #:authproc #:message
diff -rN -u old-cl-openid/src/relying-party.lisp new-cl-openid/src/relying-party.lisp
--- old-cl-openid/src/relying-party.lisp 2014-07-30 06:13:47.000000000 -0700
+++ new-cl-openid/src/relying-party.lisp 2014-07-30 06:13:47.000000000 -0700
@@ -131,7 +131,7 @@
(gc-authprocs rp)
(setf (timestamp authproc) (get-universal-time)
-
+ (immediate-p authproc) immediate-p
(return-to authproc) (copy-uri (root-uri rp)
:query (alist-to-url-encoded-string
(acons +authproc-handle-parameter+ handle nil)