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
|
<Comment>;; This test file tests kates common lisp highlighting</Comment><br/>
<Comment>#|</Comment><br/>
<Comment>multilinecomment :)</Comment><br/>
<Comment>|#</Comment><br/>
<Normal></Normal><br/>
<Region Marker>;BEGIN region marker</Region Marker><br/>
<Normal></Normal><br/>
<Region Marker>;END end</Region Marker><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Definition>defun</Definition><Function> bin-search </Function><Brackets>(</Brackets><Normal>obj vec</Normal><Brackets>)</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Keyword>let</Keyword><Normal> </Normal><Brackets>((</Brackets><Normal>len </Normal><Brackets>(</Brackets><Keyword>length</Keyword><Normal> vec</Normal><Brackets>)))</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Keyword>and</Keyword><Normal> </Normal><Brackets>(</Brackets><Keyword>not</Keyword><Normal> </Normal><Brackets>(</Brackets><Keyword>zerop</Keyword><Normal> len</Normal><Brackets>))</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Normal>finder obj vec </Normal><Decimal>0</Decimal><Normal> </Normal><Brackets>(</Brackets><Operator>-</Operator><Normal> len </Normal><Decimal>1</Decimal><Brackets>)))))</Brackets><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Definition>defun</Definition><Function> parse-date </Function><Brackets>(</Brackets><Normal>str</Normal><Brackets>)</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Keyword>let</Keyword><Normal> </Normal><Brackets>((</Brackets><Normal>toks </Normal><Brackets>(</Brackets><Normal>tokens str </Normal><Function Operator>#'</Function Operator><Function By Name>constituent</Function By Name><Normal> </Normal><Decimal>0</Decimal><Brackets>)))</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Keyword>list</Keyword><Normal> </Normal><Brackets>(</Brackets><Keyword>parse-integer</Keyword><Normal> </Normal><Brackets>(</Brackets><Keyword>first</Keyword><Normal> toks</Normal><Brackets>))</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Normal>parse-month </Normal><Brackets>(</Brackets><Keyword>second</Keyword><Normal> toks</Normal><Brackets>))</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Keyword>parse-integer</Keyword><Normal> </Normal><Brackets>(</Brackets><Keyword>third</Keyword><Normal> toks</Normal><Brackets>)))))</Brackets><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Definition>defconstant</Definition><Function> month-names</Function><br/>
<Normal> #</Normal><Brackets>(</Brackets><String>"jan"</String><Normal> </Normal><String>"feb"</String><Normal> </Normal><String>"mar"</String><Normal> </Normal><String>"apr"</String><Normal> </Normal><String>"may"</String><Normal> </Normal><String>"jun"</String><br/>
<Normal> </Normal><String>"jul"</String><Normal> </Normal><String>"aug"</String><Normal> </Normal><String>"sep"</String><Normal> </Normal><String>"oct"</String><Normal> </Normal><String>"nov"</String><Normal> </Normal><String>"dec"</String><Brackets>))</Brackets><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Definition>defstruct</Definition><Function> buf</Function><br/>
<Normal> vec </Normal><Brackets>(</Brackets><Normal>start </Normal><Operator>-</Operator><Decimal>1</Decimal><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Normal>used </Normal><Operator>-</Operator><Decimal>1</Decimal><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Normal>new </Normal><Operator>-</Operator><Decimal>1</Decimal><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Normal>end </Normal><Operator>-</Operator><Decimal>1</Decimal><Brackets>))</Brackets><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Definition>defparameter</Definition><Function> *words* </Function><Brackets>(</Brackets><Keyword>make-hash-table</Keyword><Normal> :size </Normal><Decimal>10000</Decimal><Brackets>))</Brackets><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Definition>defmacro</Definition><Function> while </Function><Brackets>(</Brackets><Normal>test </Normal><Operator>&rest</Operator><Normal> body</Normal><Brackets>)</Brackets><br/>
<Normal> `</Normal><Brackets>(</Brackets><Keyword>do</Keyword><Normal> </Normal><Brackets>()</Brackets><br/>
<Normal> </Normal><Brackets>((</Brackets><Keyword>not</Keyword><Normal> ,test</Normal><Brackets>))</Brackets><br/>
<Normal> ,@body</Normal><Brackets>))</Brackets><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Definition>define-modify-macro</Definition><Function> append1f </Function><Brackets>(</Brackets><Normal>val</Normal><Brackets>)</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Keyword>lambda</Keyword><Normal> </Normal><Brackets>(</Brackets><Normal>lst val</Normal><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Keyword>append</Keyword><Normal> lst </Normal><Brackets>(</Brackets><Keyword>list</Keyword><Normal> val</Normal><Brackets>))))</Brackets><br/>
<Normal></Normal><br/>
<Brackets>(</Brackets><Definition>defmethod</Definition><Function> add </Function><Brackets>((</Brackets><Normal>a </Normal><Keyword>vector</Keyword><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Normal>b </Normal><Keyword>vector</Keyword><Brackets>))</Brackets><br/>
<Normal> </Normal><Brackets>(</Brackets><Keyword>map</Keyword><Normal> </Normal><Type>'vector</Type><Normal> </Normal><Function Operator>#'</Function Operator><Function By Name>+</Function By Name><Normal> a b</Normal><Brackets>))</Brackets><br/>
<Normal></Normal><br/>
<Brackets>((</Brackets><Keyword>lambda</Keyword><Normal> </Normal><Brackets>(</Brackets><Normal>a </Normal><Operator>&optional</Operator><Normal> </Normal><Brackets>(</Brackets><Normal>b </Normal><Decimal>2</Decimal><Brackets>))</Brackets><Normal> </Normal><Brackets>(</Brackets><Operator>+</Operator><Normal> a </Normal><Brackets>(</Brackets><Operator>*</Operator><Normal> b </Normal><Decimal>3</Decimal><Brackets>)))</Brackets><Normal> </Normal><Decimal>4</Decimal><Normal> </Normal><Decimal>5</Decimal><Brackets>)</Brackets><br/>
|
