Warning, /frameworks/syntax-highlighting/autotests/folding/highlight.lisp.fold is written in an unsupported language. File is not indexed.
0001 ;; This test file tests kates common lisp highlighting 0002 <beginfold id='1'>#|</beginfold id='1'> 0003 multilinecomment :) 0004 <endfold id='1'>|#</endfold id='1'> 0005 0006 <beginfold id='2'>;BEGIN region marker</beginfold id='2'> 0007 0008 <endfold id='2'>;END end</endfold id='2'> 0009 0010 (defun bin-search (obj vec) 0011 (let ((len (length vec))) 0012 (and (not (zerop len)) 0013 (finder obj vec 0 (- len 1))))) 0014 0015 (defun parse-date (str) 0016 (let ((toks (tokens str #'constituent 0))) 0017 (list (parse-integer (first toks)) 0018 (parse-month (second toks)) 0019 (parse-integer (third toks))))) 0020 0021 (defconstant month-names 0022 #("jan" "feb" "mar" "apr" "may" "jun" 0023 "jul" "aug" "sep" "oct" "nov" "dec")) 0024 0025 (defstruct buf 0026 vec (start -1) (used -1) (new -1) (end -1)) 0027 0028 (defparameter *words* (make-hash-table :size 10000)) 0029 0030 (defmacro while (test &rest body) 0031 `(do () 0032 ((not ,test)) 0033 ,@body)) 0034 0035 (define-modify-macro append1f (val) 0036 (lambda (lst val) (append lst (list val)))) 0037 0038 (defmethod add ((a vector) (b vector)) 0039 (map 'vector #'+ a b)) 0040 0041 ((lambda (a &optional (b 2)) (+ a (* b 3))) 4 5)