remvoe unused lexical variable in the provider test 'user-setup-url'
Mon Jul 11 17:21:51 PDT 2011 Anton Vodonosov <avodonosov@yandex.ru>
* remvoe unused lexical variable in the provider test 'user-setup-url'
diff -rN -u old-cl-openid/t/provider.lisp new-cl-openid/t/provider.lisp
--- old-cl-openid/t/provider.lisp 2014-07-12 03:17:33.000000000 -0700
+++ new-cl-openid/t/provider.lisp 2014-07-12 03:17:33.000000000 -0700
@@ -266,8 +266,7 @@
;; Test it by querying the provider and ensuring the
;; handle-openid-provider-requeest returns the value we return
;; from handle-checkid-setup, which means our checkid-setup was called.
- (let ((immediate-p t)
- (claimed-id "test-claimed-id")
+ (let ((claimed-id "test-claimed-id")
(op-local-id "test-op-local-id")
(return-to "test-return-to")
(protocol-version-major 1)