<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<head>
<style>.content {
padding: 20px;
height: 100%;
width: 944px;
margin-left: auto;
margin-right: auto;
}
.fold {
width: 20px;
float: left;
-webkit-touch-callout: none;
-webkit-user-select: none;
-khtml-user-select: none;
-moz-user-select: none;
-ms-user-select: none;
user-select: none;
}
.number {
width: 45px;
float: left;
margin-right: 10px;
text-align: right;
-webkit-touch-callout: none;
-webkit-user-select: none;
-khtml-user-select: none;
-moz-user-select: none;
-ms-user-select: none;
user-select: none;
}
.line {
}
.content {
font-family: "Monospace";
font-size: 1em;
background: #3f3f3f;
color: White;
width: 944px;
padding: 20px;
height: 100%;
margin-left: auto;
margin-right: auto;
}
font.Alert {
color: Yellow;
font-weight: bold;
}
font.Annotation {
color: Yellow;
font-style: italic;
}
font.Attribute {
color: LightPink;
}
font.BaseN {
color: Gold;
}
font.BuiltIn {
color: Coral;
}
font.Char {
color: Cyan;
}
font.Comment {
color: Beige;
font-style: italic;
}
font.CommentVar {
color: LightBlue;
font-style: italic;
}
font.Constant {
color: White;
font-weight: bold;
}
font.ControlFlow {
color: DeepPink;
}
font.DataType {
color: CadetBlue;
}
font.DecVal {
color: MediumPurple;
font-weight: bold;
}
font.Documentation {
color: Gold;
font-style: italic;
}
font.Error {
color: Red;
font-weight: bold;
}
font.Extension {
color: DarkGray;
font-weight: bold;
}
font.Float {
color: DarkViolet;
font-weight: bold;
}
font.Function {
color: RosyBrown;
}
font.Import {
color: PaleVioletRed;
}
font.Information {
color: LightGreen;
font-style: italic;
}
font.Keyword {
color: LightGreen;
font-weight: bold;
}
font.Normal {
color: White;
}
font.Operator {
color: Magenta;
}
font.Others {
color: GreenYellow;
}
font.Preprocessor {
color: DarkSeaGreen ;
font-weight: bold;
}
font.RegionMarker {
color: Plum;
}
font.SpecialChar {
color: Plum;
font-weight: bold;
}
font.SpecialString {
color: LightBlue;
}
font.String {
color: MediumAquaMarine;
}
font.Variable {
color: Turquoise;
font-weight: bold;
}
font.VerbatimString {
color: LightSkyBlue;
}
font.Warning {
color: Brown;
font-weight: bold;
}
</style>
<title>Kamelon output</title>
</head>
<body>
<div class="content">
<div id="1" class="line"><font class="Comment">;; This test file tests kates common lisp highlighting</font></br></div>
<div id="2" class="line"><font class="Comment">#|</font></br></div>
<div id="3" class="line"><font class="Comment">multilinecomment :)</font></br></div>
<div id="4" class="line"><font class="Comment">|#</font></br></div>
<div id="5" class="line"></br></div>
<div id="6" class="line"><font class="RegionMarker">;BEGIN region marker</font></br></div>
<div id="7" class="line"></br></div>
<div id="8" class="line"><font class="RegionMarker">;END end</font></br></div>
<div id="9" class="line"></br></div>
<div id="10" class="line"><font class="Others">(</font><font class="Keyword">defun</font><font class="Function"> bin-search </font><font class="Others">(</font><font class="Normal">obj vec</font><font class="Others">)</font></br></div>
<div id="11" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">let</font><font class="Normal"> </font><font class="Others">((</font><font class="Normal">len </font><font class="Others">(</font><font class="Keyword">length</font><font class="Normal"> vec</font><font class="Others">)))</font></br></div>
<div id="12" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">and</font><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">not</font><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">zerop</font><font class="Normal"> len</font><font class="Others">))</font></br></div>
<div id="13" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Normal">finder obj vec </font><font class="Float">0</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal">- len </font><font class="Float">1</font><font class="Others">)))))</font></br></div>
<div id="14" class="line"></br></div>
<div id="15" class="line"><font class="Others">(</font><font class="Keyword">defun</font><font class="Function"> parse-date </font><font class="Others">(</font><font class="Normal">str</font><font class="Others">)</font></br></div>
<div id="16" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">let</font><font class="Normal"> </font><font class="Others">((</font><font class="Normal">toks </font><font class="Others">(</font><font class="Normal">tokens str #'constituent </font><font class="Float">0</font><font class="Others">)))</font></br></div>
<div id="17" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">list</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal">parse-</font><font class="Keyword">integer</font><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">first</font><font class="Normal"> toks</font><font class="Others">))</font></br></div>
<div id="18" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Normal">parse-month </font><font class="Others">(</font><font class="Keyword">second</font><font class="Normal"> toks</font><font class="Others">))</font></br></div>
<div id="19" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Normal">parse-</font><font class="Keyword">integer</font><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">third</font><font class="Normal"> toks</font><font class="Others">)))))</font></br></div>
<div id="20" class="line"></br></div>
<div id="21" class="line"><font class="Others">(</font><font class="Keyword">defconstant</font><font class="Function"> month-names</font></br></div>
<div id="22" class="line"><font class="Normal"> #</font><font class="Others">(</font><font class="String">"jan"</font><font class="Normal"> </font><font class="String">"feb"</font><font class="Normal"> </font><font class="String">"mar"</font><font class="Normal"> </font><font class="String">"apr"</font><font class="Normal"> </font><font class="String">"may"</font><font class="Normal"> </font><font class="String">"jun"</font></br></div>
<div id="23" class="line"><font class="Normal"> </font><font class="String">"jul"</font><font class="Normal"> </font><font class="String">"aug"</font><font class="Normal"> </font><font class="String">"sep"</font><font class="Normal"> </font><font class="String">"oct"</font><font class="Normal"> </font><font class="String">"nov"</font><font class="Normal"> </font><font class="String">"dec"</font><font class="Others">))</font></br></div>
<div id="24" class="line"></br></div>
<div id="25" class="line"><font class="Others">(</font><font class="Keyword">defstruct</font><font class="Function"> buf</font></br></div>
<div id="26" class="line"><font class="Normal"> vec </font><font class="Others">(</font><font class="Normal">start </font><font class="DecVal">-1</font><font class="Others">)</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal">used </font><font class="DecVal">-1</font><font class="Others">)</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal">new </font><font class="DecVal">-1</font><font class="Others">)</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal">end </font><font class="DecVal">-1</font><font class="Others">))</font></br></div>
<div id="27" class="line"></br></div>
<div id="28" class="line"><font class="Others">(</font><font class="Keyword">defparameter</font><font class="Function"> *words* </font><font class="Others">(</font><font class="Normal">make-hash-table :size </font><font class="Float">10000</font><font class="Others">))</font></br></div>
<div id="29" class="line"></br></div>
<div id="30" class="line"><font class="Others">(</font><font class="Keyword">defmacro</font><font class="Function"> while </font><font class="Others">(</font><font class="Normal">test &</font><font class="Keyword">rest</font><font class="Normal"> body</font><font class="Others">)</font></br></div>
<div id="31" class="line"><font class="Normal"> `</font><font class="Others">(</font><font class="Keyword">do</font><font class="Normal"> </font><font class="Others">()</font></br></div>
<div id="32" class="line"><font class="Normal"> </font><font class="Others">((</font><font class="Keyword">not</font><font class="Normal"> ,test</font><font class="Others">))</font></br></div>
<div id="33" class="line"><font class="Normal"> ,@body</font><font class="Others">))</font></br></div>
<div id="34" class="line"></br></div>
<div id="35" class="line"><font class="Others">(</font><font class="Normal">define-modify-macro append1f </font><font class="Others">(</font><font class="Normal">val</font><font class="Others">)</font></br></div>
<div id="36" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal">lst val</font><font class="Others">)</font><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">append</font><font class="Normal"> lst </font><font class="Others">(</font><font class="Keyword">list</font><font class="Normal"> val</font><font class="Others">))))</font></br></div>
</div>
</body>
</html>