c7e4e4bc |
1 | (defpackage #:lisp-on-lines |
2 | (:use |
079b9084 |
3 | :common-lisp |
4358148e |
4 | #:contextl |
5 | #:closer-mop |
6de8d300 |
6 | #:postmodern |
4358148e |
7 | #:alexandria) |
c7e4e4bc |
8 | (:nicknames #:lol) |
1d51a2ee |
9 | (:export |
6de8d300 |
10 | |
11 | ;; ROFL stuff here temporarily |
12 | #:standard-db-access-class |
b7657b86 |
13 | #:make-object-from-plist |
6de8d300 |
14 | #:described-db-access-class |
e8d4fa45 |
15 | #:select-only |
16 | #:select |
b7657b86 |
17 | #:insert-into |
18 | #:select-objects |
19 | #:select-only-n-objects |
20 | |
079b9084 |
21 | ;; Descriptions |
1d51a2ee |
22 | #:find-description |
b7657b86 |
23 | #:description-of |
1d51a2ee |
24 | #:define-description |
e8d4fa45 |
25 | #:described-object |
6de8d300 |
26 | #:described-class |
4358148e |
27 | #:with-active-descriptions |
b7657b86 |
28 | #:with-inactive-descriptions |
4358148e |
29 | |
079b9084 |
30 | ;; Displays |
1d51a2ee |
31 | #:define-display |
32 | #:display |
079b9084 |
33 | #:display-using-description |
1d51a2ee |
34 | #:*display* |
35 | #:*object* |
36 | |
079b9084 |
37 | ;; Attributes |
1d51a2ee |
38 | #:find-attribute |
4358148e |
39 | #:attribute |
40 | #:attributes |
1d51a2ee |
41 | #:attribute-label |
079b9084 |
42 | #:attribute-function |
b7657b86 |
43 | #:attribute-value |
44 | #:active-attributes)) |
079b9084 |
45 | |
1d51a2ee |
46 | |