autotests/folding/highlight.lisp.fold

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)