Warning, file /frameworks/syntax-highlighting/autotests/html/highlight.lisp.dark.html was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).
0001 <!DOCTYPE html> 0002 <html><head> 0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> 0004 <title>highlight.lisp</title> 0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (Common Lisp) - Theme (Breeze Dark)"/> 0006 </head><body style="background-color:#232629;color:#cfcfc2"><pre> 0007 <span style="color:#7a7c7d;">;; This test file tests kates common lisp highlighting</span> 0008 <span style="color:#7a7c7d;">#|</span> 0009 <span style="color:#7a7c7d;">multilinecomment :)</span> 0010 <span style="color:#7a7c7d;">|#</span> 0011 0012 <span style="color:#2980b9;background-color:#153042;">;BEGIN region marker</span> 0013 0014 <span style="color:#2980b9;background-color:#153042;">;END end</span> 0015 0016 <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> 0017 <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> 0018 <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> 0019 <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> 0020 0021 <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> 0022 <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> 0023 <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> 0024 <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> 0025 <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> 0026 0027 <span style="color:#0000ff;font-weight:bold;">(</span><span style="font-weight:bold;">defconstant</span><span style="color:#8e44ad;"> month-names</span> 0028 #<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> 0029 <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> 0030 0031 <span style="color:#0000ff;font-weight:bold;">(</span><span style="font-weight:bold;">defstruct</span><span style="color:#8e44ad;"> buf</span> 0032 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> 0033 0034 <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> 0035 0036 <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> 0037 `<span style="color:#0000ff;font-weight:bold;">(</span><span style="font-weight:bold;">do</span> <span style="color:#0000ff;font-weight:bold;">()</span> 0038 <span style="color:#0000ff;font-weight:bold;">((</span><span style="font-weight:bold;">not</span> ,test<span style="color:#0000ff;font-weight:bold;">))</span> 0039 ,@body<span style="color:#0000ff;font-weight:bold;">))</span> 0040 0041 <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> 0042 <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> 0043 0044 <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> 0045 <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> 0046 0047 <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> 0048 </pre></body></html>