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
|
<!DOCTYPE html>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>highlight.lisp</title>
<meta name="generator" content="KF5::SyntaxHighlighting - Definition (Common Lisp) - Theme (Breeze Dark)"/>
</head><body style="background-color:#232629;color:#cfcfc2"><pre>
<span style="color:#7a7c7d">;; This test file tests kates common lisp highlighting</span>
<span style="color:#7a7c7d">#|</span>
<span style="color:#7a7c7d">multilinecomment :)</span>
<span style="color:#7a7c7d">|#</span>
<span style="color:#2980b9;background-color:#153042">;BEGIN region marker</span>
<span style="color:#2980b9;background-color:#153042">;END end</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defun</span><span style="color:#8e44ad"> bin-search </span><span style="color:#0000ff;font-weight:bold">(</span>obj vec<span style="color:#0000ff;font-weight:bold">)</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">let</span> <span style="color:#0000ff;font-weight:bold">((</span>len <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">length</span> vec<span style="color:#0000ff;font-weight:bold">)))</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">and</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">not</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">zerop</span> len<span style="color:#0000ff;font-weight:bold">))</span>
<span style="color:#0000ff;font-weight:bold">(</span>finder obj vec <span style="color:#f67400">0</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#3f8058">-</span> len <span style="color:#f67400">1</span><span style="color:#0000ff;font-weight:bold">)))))</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defun</span><span style="color:#8e44ad"> parse-date </span><span style="color:#0000ff;font-weight:bold">(</span>str<span style="color:#0000ff;font-weight:bold">)</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">let</span> <span style="color:#0000ff;font-weight:bold">((</span>toks <span style="color:#0000ff;font-weight:bold">(</span>tokens str <span style="color:#3f8058">#'</span>constituent <span style="color:#f67400">0</span><span style="color:#0000ff;font-weight:bold">)))</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">list</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">parse-integer</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">first</span> toks<span style="color:#0000ff;font-weight:bold">))</span>
<span style="color:#0000ff;font-weight:bold">(</span>parse-month <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">second</span> toks<span style="color:#0000ff;font-weight:bold">))</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">parse-integer</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">third</span> toks<span style="color:#0000ff;font-weight:bold">)))))</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defconstant</span><span style="color:#8e44ad"> month-names</span>
#<span style="color:#0000ff;font-weight:bold">(</span><span style="color:#f44f4f">"jan"</span> <span style="color:#f44f4f">"feb"</span> <span style="color:#f44f4f">"mar"</span> <span style="color:#f44f4f">"apr"</span> <span style="color:#f44f4f">"may"</span> <span style="color:#f44f4f">"jun"</span>
<span style="color:#f44f4f">"jul"</span> <span style="color:#f44f4f">"aug"</span> <span style="color:#f44f4f">"sep"</span> <span style="color:#f44f4f">"oct"</span> <span style="color:#f44f4f">"nov"</span> <span style="color:#f44f4f">"dec"</span><span style="color:#0000ff;font-weight:bold">))</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defstruct</span><span style="color:#8e44ad"> buf</span>
vec <span style="color:#0000ff;font-weight:bold">(</span>start <span style="color:#3f8058">-</span><span style="color:#f67400">1</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span>used <span style="color:#3f8058">-</span><span style="color:#f67400">1</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span>new <span style="color:#3f8058">-</span><span style="color:#f67400">1</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span>end <span style="color:#3f8058">-</span><span style="color:#f67400">1</span><span style="color:#0000ff;font-weight:bold">))</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defparameter</span><span style="color:#8e44ad"> *words* </span><span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">make-hash-table</span> :size <span style="color:#f67400">10000</span><span style="color:#0000ff;font-weight:bold">))</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defmacro</span><span style="color:#8e44ad"> while </span><span style="color:#0000ff;font-weight:bold">(</span>test <span style="color:#3f8058">&rest</span> body<span style="color:#0000ff;font-weight:bold">)</span>
`<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">do</span> <span style="color:#0000ff;font-weight:bold">()</span>
<span style="color:#0000ff;font-weight:bold">((</span><span style="font-weight:bold">not</span> ,test<span style="color:#0000ff;font-weight:bold">))</span>
,@body<span style="color:#0000ff;font-weight:bold">))</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">define-modify-macro</span><span style="color:#8e44ad"> append1f </span><span style="color:#0000ff;font-weight:bold">(</span>val<span style="color:#0000ff;font-weight:bold">)</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#0000ff;font-weight:bold">(</span>lst val<span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">append</span> lst <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">list</span> val<span style="color:#0000ff;font-weight:bold">))))</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defmethod</span><span style="color:#8e44ad"> add </span><span style="color:#0000ff;font-weight:bold">((</span>a <span style="font-weight:bold">vector</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span>b <span style="font-weight:bold">vector</span><span style="color:#0000ff;font-weight:bold">))</span>
<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">map</span> <span style="color:#2980b9">'vector</span> <span style="color:#3f8058">#'</span>+ a b<span style="color:#0000ff;font-weight:bold">))</span>
<span style="color:#0000ff;font-weight:bold">((</span><span style="font-weight:bold">lambda</span> <span style="color:#0000ff;font-weight:bold">(</span>a <span style="color:#3f8058">&optional</span> <span style="color:#0000ff;font-weight:bold">(</span>b <span style="color:#f67400">2</span><span style="color:#0000ff;font-weight:bold">))</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#3f8058">+</span> a <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#3f8058">*</span> b <span style="color:#f67400">3</span><span style="color:#0000ff;font-weight:bold">)))</span> <span style="color:#f67400">4</span> <span style="color:#f67400">5</span><span style="color:#0000ff;font-weight:bold">)</span>
</pre></body></html>
|
