blob: 7ee652e58ae68801410a8a0c9baf5a10b31dab90 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
;;;; package.lisp
(defpackage #:weekend
(:use #:cl #:flatbind)
(:import-from
#:hunchentoot
#:mime-type
#:handle-static-file
#:set-cookie)
(:local-nicknames
(#:http #:hunchentoot)
(#:a #:alexandria-2)
(#:mop #:closer-mop))
(:export
;; HANDLER PROTOCOL
#:check-request-compliance
#:slot-value-mapper
#:authenticate
#:authorize
#:handle
#:not-found
#:slot-required
#:not-found
#:redirect
#:endpoint-redirect
#:route-to
#:get-cookie
#:get-header
#:err
;; re-exports
#:mime-type
#:handle-static-file
#:set-cookie
;; METACLASS
#:endpoint
#:register-body-parser
#:defendpoint
;; DOCGEN
#:print-route-documentation
#:print-all-route-documentation
;; ENDPOINT CLASS UTILITY FUNCTIONS
#:route-builder-parts
#:class-initargs
#:body-expected-p
#:request-method
#:set-response-type
;; DEBUGGING
#:toggle-debugging
))
|
