/src/package.lisp
Lisp | 91 lines | 66 code | 19 blank | 6 comment | 0 complexity | 88cec8be2d475f1526fb953eb8f6e4ee MD5 | raw file
1 2(defmacro without-package-variance-warnings (&body body) 3 `(eval-when (:compile-toplevel :load-toplevel :execute) 4 (handler-bind (#+sbcl(sb-int:package-at-variance #'muffle-warning)) 5 ,@body))) 6 7(without-package-variance-warnings 8 (defpackage #:cl-oauth 9 (:nicknames #:oauth) 10 (:use #:cl #:anaphora #:f-underscore) 11 (:import-from #:hunchentoot 12 #:create-prefix-dispatcher 13 #:*dispatch-table*) 14 (:import-from #:alexandria #:with-unique-names #:curry #:rcurry #:ensure-list #:compose) 15 (:import-from #:split-sequence #:split-sequence) 16 (:export 17 #:*protocol-version* 18 19 ;;; error handling 20 #:http-error 21 #:bad-request 22 #:unauthorized 23 #:raise-error 24 #:default-error-handler 25 #:protocol-assert 26 27 ;;; tokens 28 #:token 29 #:token-key 30 #:token-secret 31 #:token-user-data 32 33 #:token-consumer 34 35 #:register-token 36 #:unregister-token 37 38 #:consumer-token 39 #:make-consumer-token 40 41 #:request-token 42 #:make-request-token 43 #:request-token-authorized-p 44 #:request-token-callback-uri 45 #:request-token-verification-code 46 47 #:access-token 48 #:make-access-token 49 #:access-token-session-handle 50 #:access-token-expires 51 #:access-token-authorization-expires 52 #:access-token-expired-p 53 54 ;;; consumer functions 55 #:obtain-access-token 56 #:authorize-request-token 57 #:authorize-request-token-from-request 58 #:make-authorization-uri 59 #:obtain-request-token 60 #:access-protected-resource 61 62 ;;; crypto 63 #:signature-base-string 64 #:hmac-key 65 #:hmac-sha1 66 #:encode-url 67 #:encode-signature 68 69 ;;; parameters 70 #:remove-auth-parameters 71 #:normalized-parameters 72 73 ;;; service provider 74 #:check-version 75 #:check-nonce-and-timestamp 76 #:check-signature 77 #:check-verification-code 78 79 #:validate-request-token-request 80 #:request-token-response 81 82 #:get-supplied-request-token 83 #:finalize-callback-uri 84 85 #:validate-access-token-request 86 87 #:validate-access-token 88 89 #:make-response 90 ))) 91