-
-
Notifications
You must be signed in to change notification settings - Fork 4
/
package.lisp
128 lines (128 loc) · 2.59 KB
/
package.lisp
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
(in-package #:cl-user)
(defpackage #:deeds
(:nicknames #:org.shirakumo.deeds)
(:use #:cl)
;; class-slots.lisp
(:export
#:cached-slots-class
#:class-all-direct-slots
#:compute-all-direct-slots
#:define-cached-slots-class)
;; command.lisp
(:export
#:command-event
#:define-command)
;; event-delivery.lisp
(:export
#:running
#:start
#:stop
#:issue
#:handle
#:event-delivery
#:delivery-function
#:queued-event-delivery)
;; event-loop.lisp
(:export
#:*standard-event-loop*
#:handler
#:register-handler
#:deregister-handler
#:deliver-event-directly
#:sort-handlers
#:ensure-handlers-sorted
#:build-event-loop
#:recompile-event-loop
#:event-loop
#:handlers
#:event-loop-lock
#:test-filter
#:do-issue
#:broadcast
#:sorted-event-loop
#:sorted-handlers
#:compiled-event-loop)
;; event.lisp
(:export
#:event-class
#:event-slot
#:event-slot-mutable
#:event-direct-slot-definition
#:event-effective-slot-definition
#:with-immutable-slots-unlocked
#:event
#:event-loop
#:issue-time
#:origin
#:cancelled
#:define-event
#:cancel
#:blocking-event
#:message-event
#:message
#:info-event
#:warning-event
#:error-event
#:payload-event
#:payload
#:sequence-event
#:index
#:chunked-payload-event
#:max-index
#:identified-event
#:identifier
#:stream-event
#:stream-begin-event
#:stream-payload-event
#:stream-end-event)
;; forward-class-definitions.lisp
(:export
#:event-condition
#:event-condition-event
#:immutable-event-slot-modified
#:event-condition-slot
#:event-condition-value
#:immutable-event-slot-has-writer
#:event-condition-slot
#:event-condition-writers
#:event-loop-condition
#:event-loop-condition-event-loop
#:event-loop-handler-dependency-cycle-error
#:event-loop-condition-handler
#:handler-condition
#:handler-condition-handler
#:handler-thread-stop-failed-warning
#:handler-condition-thread)
;; handler.lisp
(:export
#:handler
#:name
#:event-type
#:filter
#:before
#:after
#:loops
#:handle-cancelled
#:parallel-handler
#:threads
#:handler-lock
#:queued-handler
#:locally-blocking-handler
#:globally-blocking-handler
#:make-handler
#:with-handler
#:define-handler
#:one-time-handler
#:with-one-time-handler
#:condition-notify-handler
#:response-event
#:with-awaiting
#:with-response)
;; origin.lisp
(:export
#:*origin*
#:with-origin
#:here)
;; toolkit.lisp
(:export
#:with-fuzzy-slot-bindings))