" Vim syntax file
" Language:    Lisp
" Maintainer:  Dr. Charles E. Campbell, Jr. <NdrOchipS@PcampbellAfamily.Mbiz>
" Last Change: Sep 02, 2003
" Version:     14
" URL:				 http://www.erols.com/astronaut/vim/index.html#vimlinks_syntax
"
"  Thanks to F Xavier Noria for a list of 978 Common Lisp symbols
"  taken from the HyperSpec
"
"  Options:
"    lisp_instring : if it exists, then "(...") strings are highlighted
"		     as if the contents were lisp.  Useful for AutoLisp.
"		     Put    let lisp_instring=1   into your <.vimrc> if
"		     you want this option.

" For version 5.x: Clear all syntax items
" For version 6.x: Quit when a syntax file was already loaded
if version < 600
  syntax clear
elseif exists("b:current_syntax")
  finish
endif

if version >= 600
 setlocal iskeyword=42,43,45,47-58,60-62,64-90,97-122,_
else
 set iskeyword=42,43,45,47-58,60-62,64-90,97-122,_
endif

" Clusters
syn cluster			 lispAtomCluster		  contains=lispAtomBarSymbol,lispAtomList,lispAtomNmbr0,lispComment,lispDecl,lispFunc,lispLeadWhite
syn cluster			 lispListCluster		  contains=lispAtom,lispAtomBarSymbol,lispAtomMark,lispBQList,lispBarSymbol,lispComment,lispConcat,lispDecl,lispFunc,lispKey,lispList,lispNumber,lispSpecial,lispSymbol,lispVar,lispLeadWhite

" Lists
syn match			 lispSymbol			  contained			   ![^()'`,"; \t]\+!
syn match			 lispBarSymbol			  contained			   !|..\{-}|!
if exists("lisp_instring")
 syn region			 lispList			  matchgroup=Delimiter start="(" skip="|.\{-}|"			    matchgroup=Delimiter end=")" contains=@lispListCluster,lispString,lispInString,lispInStringString
 syn region			 lispBQList			  matchgroup=PreProc   start="`("  skip="|.\{-}|"		    matchgroup=PreProc   end=")" contains=@lispListCluster,lispString,lispInString,lispInStringString
else
 syn region			 lispList			  matchgroup=Delimiter start="(" skip="|.\{-}|"			    matchgroup=Delimiter end=")" contains=@lispListCluster,lispString
 syn region			 lispBQList			  matchgroup=PreProc   start="`("  skip="|.\{-}|"		    matchgroup=PreProc   end=")" contains=@lispListCluster,lispString
endif
" Atoms
syn match			 lispAtomMark			  "'"
syn match			 lispAtom			  "'("me=e-1			   contains=lispAtomMark	    nextgroup=lispAtomList
syn match			 lispAtom			  "'[^ \t()]\+"			   contains=lispAtomMark
syn match			 lispAtomBarSymbol		  !'|..\{-}|!			   contains=lispAtomMark
syn region			 lispAtom			  start=+'"+			   skip=+\\"+ end=+"+
syn region			 lispAtomList			  contained			   matchgroup=Special start="("	    skip="|.\{-}|" matchgroup=Special end=")"			      contains=@lispAtomCluster,lispString
syn match			 lispAtomNmbr			  contained			   "\<\d\+"
syn match			 lispLeadWhite			  contained			   "^\s\+"

" Standard Lisp Functions and Macros
syn keyword lispFunc		 *				  find-method			   pprint-indent
syn keyword lispFunc		 **				  find-package			   pprint-linear
syn keyword lispFunc		 ***				  find-restart			   pprint-logical-block
syn keyword lispFunc		 +				  find-symbol			   pprint-newline
syn keyword lispFunc		 ++				  finish-output			   pprint-pop
syn keyword lispFunc		 +++				  first				   pprint-tab
syn keyword lispFunc		 -				  fixnum			   pprint-tabular
syn keyword lispFunc		 /				  flet				   prin1
syn keyword lispFunc		 //				  float				   prin1-to-string
syn keyword lispFunc		 ///				  float-digits			   princ
syn keyword lispFunc		 /=				  float-precision		   princ-to-string
syn keyword lispFunc		 1+				  float-radix			   print
syn keyword lispFunc		 1-				  float-sign			   print-not-readable
syn keyword lispFunc		 <				  floating-point-inexact	   print-not-readable-object
syn keyword lispFunc		 <=				  floating-point-invalid-operation print-object
syn keyword lispFunc		 =				  floating-point-overflow	   print-unreadable-object
syn keyword lispFunc		 >				  floating-point-underflow	   probe-file
syn keyword lispFunc		 >=				  floatp			   proclaim
syn keyword lispFunc		 abort				  floor				   prog
syn keyword lispFunc		 abs				  fmakunbound			   prog*
syn keyword lispFunc		 access				  force-output			   prog1
syn keyword lispFunc		 acons				  format			   prog2
syn keyword lispFunc		 acos				  formatter			   progn
syn keyword lispFunc		 acosh				  fourth			   program-error
syn keyword lispFunc		 add-method			  fresh-line			   progv
syn keyword lispFunc		 adjoin				  fround			   provide
syn keyword lispFunc		 adjust-array			  ftruncate			   psetf
syn keyword lispFunc		 adjustable-array-p		  ftype				   psetq
syn keyword lispFunc		 allocate-instance		  funcall			   push
syn keyword lispFunc		 alpha-char-p			  function			   pushnew
syn keyword lispFunc		 alphanumericp			  function-keywords		   putprop
syn keyword lispFunc		 and				  function-lambda-expression	   quote
syn keyword lispFunc		 append				  functionp			   random
syn keyword lispFunc		 apply				  gbitp				   random-state
syn keyword lispFunc		 applyhook			  gcd				   random-state-p
syn keyword lispFunc		 apropos			  generic-function		   rassoc
syn keyword lispFunc		 apropos-list			  gensym			   rassoc-if
syn keyword lispFunc		 aref				  gentemp			   rassoc-if-not
syn keyword lispFunc		 arithmetic-error		  get				   ratio
syn keyword lispFunc		 arithmetic-error-operands	  get-decoded-time		   rational
syn keyword lispFunc		 arithmetic-error-operation	  get-dispatch-macro-character	   rationalize
syn keyword lispFunc		 array				  get-internal-real-time	   rationalp
syn keyword lispFunc		 array-dimension		  get-internal-run-time		   read
syn keyword lispFunc		 array-dimension-limit		  get-macro-character		   read-byte
syn keyword lispFunc		 array-dimensions		  get-output-stream-string	   read-char
syn keyword lispFunc		 array-displacement		  get-properties		   read-char-no-hang
syn keyword lispFunc		 array-element-type		  get-setf-expansion		   read-delimited-list
syn keyword lispFunc		 array-has-fill-pointer-p	  get-setf-method		   read-eval-print
syn keyword lispFunc		 array-in-bounds-p		  get-universal-time		   read-from-string
syn keyword lispFunc		 array-rank			  getf				   read-line
syn keyword lispFunc		 array-rank-limit		  gethash			   read-preserving-whitespace
syn keyword lispFunc		 array-row-major-index		  go				   read-sequence
syn keyword lispFunc		 array-total-size		  graphic-char-p		   reader-error
syn keyword lispFunc		 array-total-size-limit		  handler-bind			   readtable
syn keyword lispFunc		 arrayp				  handler-case			   readtable-case
syn keyword lispFunc		 ash				  hash-table			   readtablep
syn keyword lispFunc		 asin				  hash-table-count		   real
syn keyword lispFunc		 asinh				  hash-table-p			   realp
syn keyword lispFunc		 assert				  hash-table-rehash-size	   realpart
syn keyword lispFunc		 assoc				  hash-table-rehash-threshold	   reduce
syn keyword lispFunc		 assoc-if			  hash-table-size		   reinitialize-instance
syn keyword lispFunc		 assoc-if-not			  hash-table-test		   rem
syn keyword lispFunc		 atan				  host-namestring		   remf
syn keyword lispFunc		 atanh				  identity			   remhash
syn keyword lispFunc		 atom				  if				   remove
syn keyword lispFunc		 base-char			  if-exists			   remove-duplicates
syn keyword lispFunc		 base-string			  ignorable			   remove-if
syn keyword lispFunc		 bignum				  ignore			   remove-if-not
syn keyword lispFunc		 bit				  ignore-errors			   remove-method
syn keyword lispFunc		 bit-and			  imagpart			   remprop
syn keyword lispFunc		 bit-andc1			  import			   rename-file
syn keyword lispFunc		 bit-andc2			  in-package			   rename-package
syn keyword lispFunc		 bit-eqv			  in-package			   replace
syn keyword lispFunc		 bit-ior			  incf				   require
syn keyword lispFunc		 bit-nand			  initialize-instance		   rest
syn keyword lispFunc		 bit-nor			  inline			   restart
syn keyword lispFunc		 bit-not			  input-stream-p		   restart-bind
syn keyword lispFunc		 bit-orc1			  inspect			   restart-case
syn keyword lispFunc		 bit-orc2			  int-char			   restart-name
syn keyword lispFunc		 bit-vector			  integer			   return
syn keyword lispFunc		 bit-vector-p			  integer-decode-float		   return-from
syn keyword lispFunc		 bit-xor			  integer-length		   revappend
syn keyword lispFunc		 block				  integerp			   reverse
syn keyword lispFunc		 boole				  interactive-stream-p		   room
syn keyword lispFunc		 boole-1			  intern			   rotatef
syn keyword lispFunc		 boole-2			  internal-time-units-per-second   round
syn keyword lispFunc		 boole-and			  intersection			   row-major-aref
syn keyword lispFunc		 boole-andc1			  invalid-method-error		   rplaca
syn keyword lispFunc		 boole-andc2			  invoke-debugger		   rplacd
syn keyword lispFunc		 boole-c1			  invoke-restart		   safety
syn keyword lispFunc		 boole-c2			  invoke-restart-interactively	   satisfies
syn keyword lispFunc		 boole-clr			  isqrt				   sbit
syn keyword lispFunc		 boole-eqv			  keyword			   scale-float
syn keyword lispFunc		 boole-ior			  keywordp			   schar
syn keyword lispFunc		 boole-nand			  labels			   search
syn keyword lispFunc		 boole-nor			  lambda			   second
syn keyword lispFunc		 boole-orc1			  lambda-list-keywords		   sequence
syn keyword lispFunc		 boole-orc2			  lambda-parameters-limit	   serious-condition
syn keyword lispFunc		 boole-set			  last				   set
syn keyword lispFunc		 boole-xor			  lcm				   set-char-bit
syn keyword lispFunc		 boolean			  ldb				   set-difference
syn keyword lispFunc		 both-case-p			  ldb-test			   set-dispatch-macro-character
syn keyword lispFunc		 boundp				  ldiff				   set-exclusive-or
syn keyword lispFunc		 break				  least-negative-double-float	   set-macro-character
syn keyword lispFunc		 broadcast-stream		  least-negative-long-float	   set-pprint-dispatch
syn keyword lispFunc		 broadcast-stream-streams	  least-negative-normalized-double-float			    set-syntax-from-char
syn keyword lispFunc		 built-in-class			  least-negative-normalized-long-float				    setf
syn keyword lispFunc		 butlast			  least-negative-normalized-short-float				    setq
syn keyword lispFunc		 byte				  least-negative-normalized-single-float			    seventh
syn keyword lispFunc		 byte-position			  least-negative-short-float	   shadow
syn keyword lispFunc		 byte-size			  least-negative-single-float	   shadowing-import
syn keyword lispFunc		 call-arguments-limit		  least-positive-double-float	   shared-initialize
syn keyword lispFunc		 call-method			  least-positive-long-float	   shiftf
syn keyword lispFunc		 call-next-method		  least-positive-normalized-double-float			    short-float
syn keyword lispFunc		 capitalize			  least-positive-normalized-long-float				    short-float-epsilon
syn keyword lispFunc		 car				  least-positive-normalized-short-float				    short-float-negative-epsilon
syn keyword lispFunc		 case				  least-positive-normalized-single-float			    short-site-name
syn keyword lispFunc		 catch				  least-positive-short-float	   signal
syn keyword lispFunc		 ccase				  least-positive-single-float	   signed-byte
syn keyword lispFunc		 cdr				  length			   signum
syn keyword lispFunc		 ceiling			  let				   simle-condition
syn keyword lispFunc		 cell-error			  let*				   simple-array
syn keyword lispFunc		 cell-error-name		  lisp				   simple-base-string
syn keyword lispFunc		 cerror				  lisp-implementation-type	   simple-bit-vector
syn keyword lispFunc		 change-class			  lisp-implementation-version	   simple-bit-vector-p
syn keyword lispFunc		 char				  list				   simple-condition-format-arguments
syn keyword lispFunc		 char-bit			  list*				   simple-condition-format-control
syn keyword lispFunc		 char-bits			  list-all-packages		   simple-error
syn keyword lispFunc		 char-bits-limit		  list-length			   simple-string
syn keyword lispFunc		 char-code			  listen			   simple-string-p
syn keyword lispFunc		 char-code-limit		  listp				   simple-type-error
syn keyword lispFunc		 char-control-bit		  load				   simple-vector
syn keyword lispFunc		 char-downcase			  load-logical-pathname-translations				    simple-vector-p
syn keyword lispFunc		 char-equal			  load-time-value		   simple-warning
syn keyword lispFunc		 char-font			  locally			   sin
syn keyword lispFunc		 char-font-limit		  log				   single-flaot-epsilon
syn keyword lispFunc		 char-greaterp			  logand			   single-float
syn keyword lispFunc		 char-hyper-bit			  logandc1			   single-float-epsilon
syn keyword lispFunc		 char-int			  logandc2			   single-float-negative-epsilon
syn keyword lispFunc		 char-lessp			  logbitp			   sinh
syn keyword lispFunc		 char-meta-bit			  logcount			   sixth
syn keyword lispFunc		 char-name			  logeqv			   sleep
syn keyword lispFunc		 char-not-equal			  logical-pathname		   slot-boundp
syn keyword lispFunc		 char-not-greaterp		  logical-pathname-translations	   slot-exists-p
syn keyword lispFunc		 char-not-lessp			  logior			   slot-makunbound
syn keyword lispFunc		 char-super-bit			  lognand			   slot-missing
syn keyword lispFunc		 char-upcase			  lognor			   slot-unbound
syn keyword lispFunc		 char/=				  lognot			   slot-value
syn keyword lispFunc		 char<				  logorc1			   software-type
syn keyword lispFunc		 char<=				  logorc2			   software-version
syn keyword lispFunc		 char=				  logtest			   some
syn keyword lispFunc		 char>				  logxor			   sort
syn keyword lispFunc		 char>=				  long-float			   space
syn keyword lispFunc		 character			  long-float-epsilon		   special
syn keyword lispFunc		 characterp			  long-float-negative-epsilon	   special-form-p
syn keyword lispFunc		 check-type			  long-site-name		   special-operator-p
syn keyword lispFunc		 cis				  loop				   speed
syn keyword lispFunc		 class				  loop-finish			   sqrt
syn keyword lispFunc		 class-name			  lower-case-p			   stable-sort
syn keyword lispFunc		 class-of			  machine-instance		   standard
syn keyword lispFunc		 clear-input			  machine-type			   standard-char
syn keyword lispFunc		 clear-output			  machine-version		   standard-char-p
syn keyword lispFunc		 close				  macro-function		   standard-class
syn keyword lispFunc		 clrhash			  macroexpand			   standard-generic-function
syn keyword lispFunc		 code-char			  macroexpand-1			   standard-method
syn keyword lispFunc		 coerce				  macroexpand-l			   standard-object
syn keyword lispFunc		 commonp			  macrolet			   step
syn keyword lispFunc		 compilation-speed		  make-array			   storage-condition
syn keyword lispFunc		 compile			  make-array			   store-value
syn keyword lispFunc		 compile-file			  make-broadcast-stream		   stream
syn keyword lispFunc		 compile-file-pathname		  make-char			   stream-element-type
syn keyword lispFunc		 compiled-function		  make-concatenated-stream	   stream-error
syn keyword lispFunc		 compiled-function-p		  make-condition		   stream-error-stream
syn keyword lispFunc		 compiler-let			  make-dispatch-macro-character	   stream-external-format
syn keyword lispFunc		 compiler-macro			  make-echo-stream		   streamp
syn keyword lispFunc		 compiler-macro-function	  make-hash-table		   streamup
syn keyword lispFunc		 complement			  make-instance			   string
syn keyword lispFunc		 complex			  make-instances-obsolete	   string-capitalize
syn keyword lispFunc		 complexp			  make-list			   string-char
syn keyword lispFunc		 compute-applicable-methods	  make-load-form		   string-char-p
syn keyword lispFunc		 compute-restarts		  make-load-form-saving-slots	   string-downcase
syn keyword lispFunc		 concatenate			  make-method			   string-equal
syn keyword lispFunc		 concatenated-stream		  make-package			   string-greaterp
syn keyword lispFunc		 concatenated-stream-streams	  make-pathname			   string-left-trim
syn keyword lispFunc		 cond				  make-random-state		   string-lessp
syn keyword lispFunc		 condition			  make-sequence			   string-not-equal
syn keyword lispFunc		 conjugate			  make-string			   string-not-greaterp
syn keyword lispFunc		 cons				  make-string-input-stream	   string-not-lessp
syn keyword lispFunc		 consp				  make-string-output-stream	   string-right-strim
syn keyword lispFunc		 constantly			  make-symbol			   string-right-trim
syn keyword lispFunc		 constantp			  make-synonym-stream		   string-stream
syn keyword lispFunc		 continue			  make-two-way-stream		   string-trim
syn keyword lispFunc		 control-error			  makunbound			   string-upcase
syn keyword lispFunc		 copy-alist			  map				   string/=
syn keyword lispFunc		 copy-list			  map-into			   string<
syn keyword lispFunc		 copy-pprint-dispatch		  mapc				   string<=
syn keyword lispFunc		 copy-readtable			  mapcan			   string=
syn keyword lispFunc		 copy-seq			  mapcar			   string>
syn keyword lispFunc		 copy-structure			  mapcon			   string>=
syn keyword lispFunc		 copy-symbol			  maphash			   stringp
syn keyword lispFunc		 copy-tree			  mapl				   structure
syn keyword lispFunc		 cos				  maplist			   structure-class
syn keyword lispFunc		 cosh				  mask-field			   structure-object
syn keyword lispFunc		 count				  max				   style-warning
syn keyword lispFunc		 count-if			  member			   sublim
syn keyword lispFunc		 count-if-not			  member-if			   sublis
syn keyword lispFunc		 ctypecase			  member-if-not			   subseq
syn keyword lispFunc		 debug				  merge				   subsetp
syn keyword lispFunc		 decf				  merge-pathname		   subst
syn keyword lispFunc		 declaim			  merge-pathnames		   subst-if
syn keyword lispFunc		 declaration			  method			   subst-if-not
syn keyword lispFunc		 declare			  method-combination		   substitute
syn keyword lispFunc		 decode-float			  method-combination-error	   substitute-if
syn keyword lispFunc		 decode-universal-time		  method-qualifiers		   substitute-if-not
syn keyword lispFunc		 defclass			  min				   subtypep
syn keyword lispFunc		 defconstant			  minusp			   svref
syn keyword lispFunc		 defgeneric			  mismatch			   sxhash
syn keyword lispFunc		 define-compiler-macro		  mod				   symbol
syn keyword lispFunc		 define-condition		  most-negative-double-float	   symbol-function
syn keyword lispFunc		 define-method-combination	  most-negative-fixnum		   symbol-macrolet
syn keyword lispFunc		 define-modify-macro		  most-negative-long-float	   symbol-name
syn keyword lispFunc		 define-setf-expander		  most-negative-short-float	   symbol-package
syn keyword lispFunc		 define-setf-method		  most-negative-single-float	   symbol-plist
syn keyword lispFunc		 define-symbol-macro		  most-positive-double-float	   symbol-value
syn keyword lispFunc		 defmacro			  most-positive-fixnum		   symbolp
syn keyword lispFunc		 defmethod			  most-positive-long-float	   synonym-stream
syn keyword lispFunc		 defpackage			  most-positive-short-float	   synonym-stream-symbol
syn keyword lispFunc		 defparameter			  most-positive-single-float	   sys
syn keyword lispFunc		 defsetf			  muffle-warning		   system
syn keyword lispFunc		 defstruct			  multiple-value-bind		   t
syn keyword lispFunc		 deftype			  multiple-value-call		   tagbody
syn keyword lispFunc		 defun				  multiple-value-list		   tailp
syn keyword lispFunc		 defvar				  multiple-value-prog1		   tan
syn keyword lispFunc		 delete				  multiple-value-seteq		   tanh
syn keyword lispFunc		 delete-duplicates		  multiple-value-setq		   tenth
syn keyword lispFunc		 delete-file			  multiple-values-limit		   terpri
syn keyword lispFunc		 delete-if			  name-char			   the
syn keyword lispFunc		 delete-if-not			  namestring			   third
syn keyword lispFunc		 delete-package			  nbutlast			   throw
syn keyword lispFunc		 denominator			  nconc				   time
syn keyword lispFunc		 deposit-field			  next-method-p			   trace
syn keyword lispFunc		 describe			  nil				   translate-logical-pathname
syn keyword lispFunc		 describe-object		  nintersection			   translate-pathname
syn keyword lispFunc		 destructuring-bind		  ninth				   tree-equal
syn keyword lispFunc		 digit-char			  no-applicable-method		   truename
syn keyword lispFunc		 digit-char-p			  no-next-method		   truncase
syn keyword lispFunc		 directory			  not				   truncate
syn keyword lispFunc		 directory-namestring		  notany			   two-way-stream
syn keyword lispFunc		 disassemble			  notevery			   two-way-stream-input-stream
syn keyword lispFunc		 division-by-zero		  notinline			   two-way-stream-output-stream
syn keyword lispFunc		 do				  nreconc			   type
syn keyword lispFunc		 do*				  nreverse			   type-error
syn keyword lispFunc		 do-all-symbols			  nset-difference		   type-error-datum
syn keyword lispFunc		 do-exeternal-symbols		  nset-exclusive-or		   type-error-expected-type
syn keyword lispFunc		 do-external-symbols		  nstring			   type-of
syn keyword lispFunc		 do-symbols			  nstring-capitalize		   typecase
syn keyword lispFunc		 documentation			  nstring-downcase		   typep
syn keyword lispFunc		 dolist				  nstring-upcase		   unbound-slot
syn keyword lispFunc		 dotimes			  nsublis			   unbound-slot-instance
syn keyword lispFunc		 double-float			  nsubst			   unbound-variable
syn keyword lispFunc		 double-float-epsilon		  nsubst-if			   undefined-function
syn keyword lispFunc		 double-float-negative-epsilon	  nsubst-if-not			   unexport
syn keyword lispFunc		 dpb				  nsubstitute			   unintern
syn keyword lispFunc		 dribble			  nsubstitute-if		   union
syn keyword lispFunc		 dynamic-extent			  nsubstitute-if-not		   unless
syn keyword lispFunc		 ecase				  nth				   unread
syn keyword lispFunc		 echo-stream			  nth-value			   unread-char
syn keyword lispFunc		 echo-stream-input-stream	  nthcdr			   unsigned-byte
syn keyword lispFunc		 echo-stream-output-stream	  null				   untrace
syn keyword lispFunc		 ed				  number			   unuse-package
syn keyword lispFunc		 eighth				  numberp			   unwind-protect
syn keyword lispFunc		 elt				  numerator			   update-instance-for-different-class
syn keyword lispFunc		 encode-universal-time		  nunion			   update-instance-for-redefined-class
syn keyword lispFunc		 end-of-file			  oddp				   upgraded-array-element-type
syn keyword lispFunc		 endp				  open				   upgraded-complex-part-type
syn keyword lispFunc		 enough-namestring		  open-stream-p			   upper-case-p
syn keyword lispFunc		 ensure-directories-exist	  optimize			   use-package
syn keyword lispFunc		 ensure-generic-function	  or				   use-value
syn keyword lispFunc		 eq				  otherwise			   user
syn keyword lispFunc		 eql				  output-stream-p		   user-homedir-pathname
syn keyword lispFunc		 equal				  package			   values
syn keyword lispFunc		 equalp				  package-error			   values-list
syn keyword lispFunc		 error				  package-error-package		   vector
syn keyword lispFunc		 etypecase			  package-name			   vector-pop
syn keyword lispFunc		 eval				  package-nicknames		   vector-push
syn keyword lispFunc		 eval-when			  package-shadowing-symbols	   vector-push-extend
syn keyword lispFunc		 evalhook			  package-use-list		   vectorp
syn keyword lispFunc		 evenp				  package-used-by-list		   warn
syn keyword lispFunc		 every				  packagep			   warning
syn keyword lispFunc		 exp				  pairlis			   when
syn keyword lispFunc		 export				  parse-error			   wild-pathname-p
syn keyword lispFunc		 expt				  parse-integer			   with-accessors
syn keyword lispFunc		 extended-char			  parse-namestring		   with-compilation-unit
syn keyword lispFunc		 fboundp			  pathname			   with-condition-restarts
syn keyword lispFunc		 fceiling			  pathname-device		   with-hash-table-iterator
syn keyword lispFunc		 fdefinition			  pathname-directory		   with-input-from-string
syn keyword lispFunc		 ffloor				  pathname-host			   with-open-file
syn keyword lispFunc		 fifth				  pathname-match-p		   with-open-stream
syn keyword lispFunc		 file-author			  pathname-name			   with-output-to-string
syn keyword lispFunc		 file-error			  pathname-type			   with-package-iterator
syn keyword lispFunc		 file-error-pathname		  pathname-version		   with-simple-restart
syn keyword lispFunc		 file-length			  pathnamep			   with-slots
syn keyword lispFunc		 file-namestring		  peek-char			   with-standard-io-syntax
syn keyword lispFunc		 file-position			  phase				   write
syn keyword lispFunc		 file-stream			  pi				   write-byte
syn keyword lispFunc		 file-string-length		  plusp				   write-char
syn keyword lispFunc		 file-write-date		  pop				   write-line
syn keyword lispFunc		 fill				  position			   write-sequence
syn keyword lispFunc		 fill-pointer			  position-if			   write-string
syn keyword lispFunc		 find				  position-if-not		   write-to-string
syn keyword lispFunc		 find-all-symbols		  pprint			   y-or-n-p
syn keyword lispFunc		 find-class			  pprint-dispatch		   yes-or-no-p
syn keyword lispFunc		 find-if			  pprint-exit-if-list-exhausted	   zerop
syn keyword lispFunc		 find-if-not			  pprint-fill

syn match   lispFunc		 "\<c[ad]\+r\>"


" Lisp Keywords (modifiers)
syn keyword lispKey		 :abort				  :from-end			   :overwrite
syn keyword lispKey		 :adjustable			  :gensym			   :predicate
syn keyword lispKey		 :append			  :host				   :preserve-whitespace
syn keyword lispKey		 :array				  :if-does-not-exist		   :pretty
syn keyword lispKey		 :base				  :if-exists			   :print
syn keyword lispKey		 :case				  :include			   :print-function
syn keyword lispKey		 :circle			  :index			   :probe
syn keyword lispKey		 :conc-name			  :inherited			   :radix
syn keyword lispKey		 :constructor			  :initial-contents		   :read-only
syn keyword lispKey		 :copier			  :initial-element		   :rehash-size
syn keyword lispKey		 :count				  :initial-offset		   :rehash-threshold
syn keyword lispKey		 :create			  :initial-value		   :rename
syn keyword lispKey		 :default			  :input			   :rename-and-delete
syn keyword lispKey		 :defaults			  :internal			   :size
syn keyword lispKey		 :device			  :io				   :start
syn keyword lispKey		 :direction			  :junk-allowed			   :start1
syn keyword lispKey		 :directory			  :key				   :start2
syn keyword lispKey		 :displaced-index-offset	  :length			   :stream
syn keyword lispKey		 :displaced-to			  :level			   :supersede
syn keyword lispKey		 :element-type			  :name				   :test
syn keyword lispKey		 :end				  :named			   :test-not
syn keyword lispKey		 :end1				  :new-version			   :type
syn keyword lispKey		 :end2				  :nicknames			   :use
syn keyword lispKey		 :error				  :output			   :verbose
syn keyword lispKey		 :escape			  :output-file			   :version
syn keyword lispKey		 :external

" Standard Lisp Variables
syn keyword lispVar		 *applyhook*			  *load-pathname*		   *print-pprint-dispatch*
syn keyword lispVar		 *break-on-signals*		  *load-print*			   *print-pprint-dispatch*
syn keyword lispVar		 *break-on-signals*		  *load-truename*		   *print-pretty*
syn keyword lispVar		 *break-on-warnings*		  *load-verbose*		   *print-radix*
syn keyword lispVar		 *compile-file-pathname*	  *macroexpand-hook*		   *print-readably*
syn keyword lispVar		 *compile-file-pathname*	  *modules*			   *print-right-margin*
syn keyword lispVar		 *compile-file-truename*	  *package*			   *print-right-margin*
syn keyword lispVar		 *compile-file-truename*	  *print-array*			   *query-io*
syn keyword lispVar		 *compile-print*		  *print-base*			   *random-state*
syn keyword lispVar		 *compile-verbose*		  *print-case*			   *read-base*
syn keyword lispVar		 *compile-verbose*		  *print-circle*		   *read-default-float-format*
syn keyword lispVar		 *debug-io*			  *print-escape*		   *read-eval*
syn keyword lispVar		 *debugger-hook*		  *print-gensym*		   *read-suppress*
syn keyword lispVar		 *default-pathname-defaults*	  *print-length*		   *readtable*
syn keyword lispVar		 *error-output*			  *print-level*			   *standard-input*
syn keyword lispVar		 *evalhook*			  *print-lines*			   *standard-output*
syn keyword lispVar		 *features*			  *print-miser-width*		   *terminal-io*
syn keyword lispVar		 *gensym-counter*		  *print-miser-width*		   *trace-output*

" Strings
syn region			 lispString			  start=+"+ skip=+\\\\\|\\"+ end=+"+
if exists("lisp_instring")
 syn region			 lispInString			  keepend matchgroup=Delimiter start=+"(+rs=s+1 skip=+|.\{-}|+ matchgroup=Delimiter end=+)"+ contains=@lispListCluster,lispInStringString
 syn region			 lispInStringString		  start=+\\"+ skip=+\\\\+ end=+\\"+ contained
endif

" Shared with Xlisp, Declarations, Macros, Functions
syn keyword lispDecl		 defmacro			  do-all-symbols		   labels
syn keyword lispDecl		 defsetf			  do-external-symbols		   let
syn keyword lispDecl		 deftype			  do-symbols			   locally
syn keyword lispDecl		 defun				  dotimes			   macrolet
syn keyword lispDecl		 do*				  flet				   multiple-value-bind

" Numbers: supporting integers and floating point numbers
syn match lispNumber		 "-\=\(\.\d\+\|\d\+\(\.\d*\)\=\)\(e[-+]\=\d\+\)\="

syn match lispSpecial		 "\*[a-zA-Z_][a-zA-Z_0-9-]*\*"
syn match lispSpecial		 !#|[^()'`,"; \t]\+|#!
syn match lispSpecial		 !#x[0-9a-fA-F]\+!
syn match lispSpecial		 !#o[0-7]\+!
syn match lispSpecial		 !#b[01]\+!
syn match lispSpecial		 !#\\[ -\~]!
syn match lispSpecial		 !#[':][^()'`,"; \t]\+!
syn match lispSpecial		 !#([^()'`,"; \t]\+)!

syn match lispConcat		 "\s\.\s"
syn match lispParenError	 ")"

" Comments
syn cluster lispCommentGroup	 contains=lispTodo,@Spell
syn match   lispComment		 ";.*$"				  contains=@lispCommentGroup
syn region  lispCommentRegion	 start="#|" end="|#"		  contains=lispCommentRegion,@lispCommentGroup
syn case ignore
syn keyword lispTodo		 contained			  combak			   combak:			    todo			     todo:
syn case match

" synchronization
syn sync lines=100

" Define the default highlighting.
" For version 5.7 and earlier: only when not done already
" For version 5.8 and later: only when an item doesn't have highlighting yet
if version >= 508 || !exists("did_lisp_syntax_inits")
  if version < 508
    let did_lisp_syntax_inits = 1
    command -nargs=+ HiLink hi link <args>
  else
    command -nargs=+ HiLink hi def link <args>
  endif

  HiLink lispCommentRegion	 lispComment
  HiLink lispAtomNmbr		 lispNumber
  HiLink lispAtomMark		 lispMark
  HiLink lispInStringString	 lispString

  HiLink lispAtom		 Identifier
  HiLink lispAtomBarSymbol	 Special
  HiLink lispBarSymbol		 Special
  HiLink lispComment		 Comment
  HiLink lispConcat		 Statement
  HiLink lispDecl		 Statement
  HiLink lispFunc		 Statement
  HiLink lispKey		 Type
  HiLink lispMark		 Delimiter
  HiLink lispNumber		 Number
  HiLink lispParenError		 Error
  HiLink lispSpecial		 Type
  HiLink lispString		 String
  HiLink lispTodo		 Todo
  HiLink lispVar		 Statement

  delcommand HiLink
endif

let b:current_syntax = "lisp"

" vim: ts=8 nowrap