-
Notifications
You must be signed in to change notification settings - Fork 27
/
package.lisp
99 lines (97 loc) · 3.02 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
;;;; package.lisp
(defpackage #:spinneret
(:use #:cl)
(:export #:with-html #:with-html-string #:html
#:*html*
#:*html-lang* #:*html-charset*
#:*html-path*
#:html-stream
#:get-html-path
#:do-elements
#:deftag
#:*unvalidated-attribute-prefixes*
#:*boolean-attributes*
#:*fill-column*
#:html-length
#:dynamic-tag
#:*html-style*
#:spinneret-error
#:no-such-tag
#:*suppress-inserted-spaces*
#:interpret-html-tree
#:escape-string
#:*always-quote*)
(:import-from #:parenscript
#:concat-constant-strings ;; unexported function
#:define-ps-symbol-macro
#:defpsmacro
#:with-ps-gensyms
#:stringify
#:chain
#:@
#:for-in)
(:import-from #:trivial-gray-streams
#:fundamental-character-output-stream
#:stream-write-char #:stream-write-string
#:stream-terpri
#:stream-fresh-line
#:stream-finish-output
#:stream-force-output
#:stream-advance-to-column
#:stream-start-line-p
#:stream-line-column)
(:import-from #:alexandria
#:array-index
#:clamp
#:string-designator
#:make-keyword
#:parse-body #:parse-ordinary-lambda-list
#:with-gensyms #:with-unique-names
#:remove-from-plist
#:starts-with-subseq
#:when-let #:if-let
#:assoc-value
#:disjoin
#:doplist
#:hash-table-keys
#:alist-hash-table
#:once-only
#:first-elt)
(:import-from #:serapeum
#:fmt #:eif #:econd
#:define-do-macro #:defconst
#:nlet #:nix #:assure
#:find-keyword
#:-> #:with-thunk
#:and-let* #:op #:string-prefix-p
#:memq
#:string$=
#:string^=
#:escape
#:defconst
#:defconstructor
#:string-replace-all
#:local*
#:fbind
#:fbind*
#:bound-value
#:defmethods
#:eval-if-constant
#:parse-leading-keywords
#:car+cdr
#:mvlet*
#:receive
#:set-hash-table
#:do-hash-table
#:eval-always
#:lret
#:do-hash-table
#:whitespacep)
(:import-from #:cl-ppcre
#:split)
(:import-from #:trivia
#:match)
(:import-from #:global-vars
#:define-global-parameter))
(defpackage #:spinneret-user
(:use #:cl #:parenscript #:spinneret))