Kamelon output

;; This test file tests kates common lisp highlighting
#|
multilinecomment :)
|#
;BEGIN region marker
;END end
(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))))