;; This test file tests kates common lisp highlighting
<beginfold id='1'>#|</beginfold id='1'>
multilinecomment :)
<endfold id='1'>|#</endfold id='1'>

<beginfold id='2'>;BEGIN region marker</beginfold id='2'>

<endfold id='2'>;END end</endfold id='2'>

(defun bin-search (obj vec)
  (let ((len (length vec)))
    (and (not (zerop len))
         (finder obj vec 0 (- len 1)))))

(defun parse-date (str)
  (let ((toks (tokens str #'constituent 0)))
    (list (parse-integer (first toks))
          (parse-month   (second toks))
          (parse-integer (third toks)))))

(defconstant month-names
  #("jan" "feb" "mar" "apr" "may" "jun"
    "jul" "aug" "sep" "oct" "nov" "dec"))

(defstruct buf
  vec (start -1) (used -1) (new -1) (end -1))

(defparameter *words* (make-hash-table :size 10000))

(defmacro while (test &rest body)
  `(do ()
       ((not ,test))
     ,@body))

(define-modify-macro append1f (val)
  (lambda (lst val) (append lst (list val))))

(defmethod add ((a vector) (b vector))
  (map 'vector #'+ a b))

((lambda (a &optional (b 2)) (+ a (* b 3))) 4 5)