blob: 6dde455f740ffd7d99c9723d45b645e1481bdc34 (
plain) (
blame)
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
|
<!DOCTYPE html>
<html>
<head>
<title>Highlighted code</title>
<style>
body {
font-size: 20px;
}
pre, code {
color: #ffd7af;
background-color: #1c1c1c;
padding-left: 1em;
}
.bracket {
color: #d47408;
}
.string {
color: #afaf00;
}
.number {
color: #d787af;
}
.comment {
color: #8a8a8a;
}
.parameter-type {
color: #87afaf;
}
.keyword {
color: #87af87;
}
.constant {
color: #9045ff;
}
.special-operator {
color: #5f8fd7;
}
.function {
color: #d75f5f;
}
.macro {
color: #73d75f;
}
.variable {
color: #ffaf00;
}
</style>
</head>
<body>
<pre><code>
<span class="bracket">(</span><span class="macro">defvar</span> <span class="variable">*NAME*</span> <span class="string">"John"</span><span class="bracket">)</span>
<span class="bracket">(</span><span class="macro">defvar</span> <span class="variable">*AGE*</span><span class="number"> 23</span><span class="bracket">)</span>
<span class="bracket">(</span><span class="macro">defvar</span> <span class="variable">*ABOUT*</span> <span class="string">" T NIL cond decf block"</span><span class="bracket">)</span>
<span class="comment">;;; This is a stupid funciton</span>
<span class="bracket">(</span><span class="special-operator">defun</span> adult? <span class="bracket">(</span><span class="bracket">)</span>
<span class="bracket">(</span><span class="function">>=</span> <span class="variable">*AGE*</span><span class="number"> 18</span><span class="bracket">)</span><span class="bracket">)</span>
<span class="bracket">(</span><span class="special-operator">defun</span> will-I-graduate? <span class="bracket">(</span><span class="bracket">)</span>
<span class="constant">NIL</span><span class="bracket">)</span>
<span class="bracket">(</span><span class="special-operator">defun</span> distance <span class="bracket">(</span>p1 p2<span class="bracket">)</span>
<span class="bracket">(</span><span class="function">sqrt</span> <span class="bracket">(</span><span class="function">* </span>p1 p1<span class="bracket">)</span> <span class="bracket">(</span><span class="function">* </span>p2 p2<span class="bracket">)</span><span class="bracket">)</span><span class="bracket">)</span>
<span class="bracket">(</span><span class="special-operator">defun</span> bar <span class="bracket">(</span>a b<span class="bracket">)</span>
<span class="bracket">(</span><span class="special-operator">if</span> <span class="bracket">(</span><span class="macro">and</span> <span class="bracket">(</span><span class="function">></span> b a<span class="bracket">)</span> <span class="bracket">(</span><span class="function"><=</span><span class="number"> 10</span> b<span class="bracket">)</span><span class="bracket">)</span>
<span class="bracket">(</span><span class="function">format</span> <span class="constant">t</span> <span class="string">"Valid"</span><span class="bracket">)</span>
<span class="bracket">(</span><span class="function">format</span> <span class="constant">t</span> <span class="string">"Invalid"</span><span class="bracket">)</span><span class="bracket">)</span><span class="bracket">)</span>
<span class="bracket">(</span><span class="special-operator">defun</span> foo <span class="bracket">(</span><span class="parameter-type">&key</span> <span class="bracket">(</span><span class="bracket">(</span><span class="keyword">:apple</span> a<span class="bracket">)</span><span class="bracket">)</span> <span class="bracket">(</span><span class="bracket">(</span><span class="keyword">:box</span> b<span class="bracket">)</span><span class="number"> 0</span><span class="bracket">)</span> <span class="bracket">(</span><span class="bracket">(</span><span class="keyword">:charlie</span> c<span class="bracket">)</span><span class="number"> 0</span> c-supplied-p<span class="bracket">)</span><span class="bracket">)</span>
<span class="bracket">(</span><span class="function">list</span> a b c c-supplied-p<span class="bracket">)</span><span class="bracket">)</span>
</pre></code>
</body>
</html>
|
