1 <?xml version="1.0" encoding="UTF-8"?>
2 <!-- Common Lisp highlighter for xslthl -->
4 <highlighter type="word">
5 <word>call-next-method</word>
6 <word>do-external-symbols</word>
10 <word>handler-bind</word>
11 <word>handler-case</word>
12 <word>in-package</word>
14 <word>multiple-value-bind</word>
15 <word>restart-bind</word>
16 <word>restart-case</word>
17 <word>return-from</word>
19 <word>unwind-protect</word>
21 <style>keyword</style>
24 <highlighter type="keywords">
25 <keyword>assert</keyword>
26 <keyword>block</keyword>
27 <keyword>case</keyword>
28 <keyword>catch</keyword>
29 <keyword>ccase</keyword>
30 <keyword>cerror</keyword>
31 <keyword>check-type</keyword>
32 <keyword>declaim</keyword>
33 <keyword>declare</keyword>
34 <keyword>defclass</keyword>
35 <keyword>defconstant</keyword>
36 <keyword>defgeneric</keyword>
37 <keyword>define-condition</keyword>
38 <keyword>defmacro</keyword>
39 <keyword>defmethod</keyword>
40 <keyword>defpackage</keyword>
41 <keyword>defparameter</keyword>
42 <keyword>defstruct</keyword>
43 <keyword>deftype</keyword>
44 <keyword>defun</keyword>
45 <keyword>defvar</keyword>
46 <keyword>dolist</keyword>
47 <keyword>dotimes</keyword>
48 <keyword>ecase</keyword>
49 <keyword>error</keyword>
50 <keyword>flet</keyword>
53 <keyword>labels</keyword>
54 <keyword>lambda</keyword>
55 <keyword>let</keyword>
56 <keyword>loop</keyword>
57 <keyword>proclaim</keyword>
58 <keyword>prog1</keyword>
59 <keyword>prog2</keyword>
60 <keyword>progn</keyword>
61 <keyword>progv</keyword>
62 <keyword>return</keyword>
63 <keyword>tagbody</keyword>
64 <keyword>throw</keyword>
65 <keyword>typecase</keyword>
66 <keyword>unless</keyword>
67 <keyword>warn</keyword>
68 <keyword>when</keyword>
73 <highlighter type="regex">
74 <pattern>(?<=\()(\S+[:])?(with-\S+)</pattern>
75 <style>keyword</style>
79 <highlighter type="multiline-comment">
82 <style>comment</style>
84 <highlighter type="oneline-comment">
89 <highlighter type="string">
94 <!-- keyword package -->
95 <highlighter type="regex">
96 <pattern>(?<=[ \(])(:[^\s\)]+)</pattern>
97 <style>attribute</style>
100 <!-- lambda list keywords -->
101 <highlighter type="word">
102 <word>&allow-other-keys</word>
103 <word>&aux</word>
104 <word>&body</word>
105 <word>&environment</word>
106 <word>&key</word>
107 <word>&optional</word>
108 <word>&rest</word>
109 <word>&whole</word>
111 <style>attribute</style>
115 <!-- emacs style highlighted names -->
117 <highlighter type="regex">
118 <pattern>(?<=defclass\s)(\S+)</pattern>
119 <style>directive</style>
120 <flags>CASE_INSENSITIVE</flags>
123 <highlighter type="regex">
124 <pattern>(?<=defun\s)(\S+)</pattern>
125 <style>directive</style>
128 <highlighter type="regex">
129 <pattern>(?<=defmacro\s)(\S+)</pattern>
130 <style>directive</style>
133 <highlighter type="regex">
134 <pattern>(?<=defgeneric\s)(\S+)</pattern>
135 <style>directive</style>
138 <highlighter type="regex">
139 <pattern>(?<=defmethod\s)(\S+)</pattern>
140 <style>directive</style>
143 <highlighter type="regex">
144 <pattern>(?<=defvar\s)(\S+)</pattern>
145 <style>directive</style>
147 <!-- defparameter -->
148 <highlighter type="regex">
149 <pattern>(?<=defparameter\s)(\S+)</pattern>
150 <style>directive</style>
152 <!-- defparameter -->
153 <highlighter type="regex">
154 <pattern>(?<=defconstant\s)(\S+)</pattern>
155 <style>directive</style>
158 <highlighter type="regex">
159 <pattern>(?<=defstruct\s)(\S+)</pattern>
160 <style>directive</style>
162 <!-- define-condition -->
163 <highlighter type="regex">
164 <pattern>(?<=define-condition\s)(\S+)</pattern>
165 <style>directive</style>