text/x-common-lisp
*.asd;*.lisp
;
#\|
\|#
([^()"`,#\s])
((?<=[()'"`,@#\s])|^)
(([^()'"`,#\s\\|]|\\\S|\|[^|]*\|)+)
(([^()'"`,:#\s\\|]|\\\S|\|[^|]*\|)+)
(?=([()';"`,#]|$|\s))
\%{token-start}
([+-]?[0-9]+([.]|/[0-9]+)?)
\%{token-end}
\%{token-start}
([+-]?([0-9]*[.][0-9]+|[0-9]+([.][0-9]*)?)([defls][+-]?[0-9]+)?)
\%{token-end}
\%{token-start}
(\#b[+-]?[01]+([.]|/[01]+)?)
\%{token-end}
\%{token-start}
(\#o[+-]?[0-7]+([.]|/[0-7]+)?)
\%{token-end}
\%{token-start}
(\#x[+-]?[0-9a-f]+([.]|/[0-9a-f]+)?)
\%{token-end}
\%{token-start}
(\#[0-9]+r[+-]?[0-9a-z]+([.]|/[0-9a-z]+)?)
\%{token-end}
(')
~(?:/[^/]+/|$|(?:[-+]?[0-9]+|'.|[#V,])*:?@?[[\]{}()~%&$_<>*?;\^|ABCDEFGIOPRSTWX])
"
"
(`|,@?)
\%{token-start}
(\#\\\S(\%{token})?)
\%{token-end}
(\#[0-9]*\*[01]*)
(\#:\%{token})
\%{token-end}
(\#[0-9]*[!"#$%&'(,;=>?@[\]^_`~{}+\-./ac-npqs-wyz])
(\#[0-9]*[\s)<])
abort
add-method
apply
assert
block
break
call-method
call-next-method
case
catch
ccase
cerror
compile-file
compile
cond
continue
ctypecase
debug
decf
declaim
declaration
declare
defclass
defconstant
defgeneric
define-compiler-macro
define-condition
define-method-combination
define-modify-macro
define-setf-expander
define-symbol-macro
defmacro
defmethod
defpackage
defparameter
defsetf
defstruct
deftype
defun
defvar
delete-package
destructuring-bind
disassemble
do-all-symbols
do-external-symbols
do
do\*
dolist
do-symbols
dotimes
dynamic-extent
ecase
ed
error
etypecase
eval
eval-when
export
fdefinition
find-method
find-package
find-restart
find-symbol
flet
ftype
funcall
getf
get
get-macro-character
get-properties
get-setf-expansion
go
handler-bind
handler-case
if
ignorable
ignore-errors
ignore
import
incf
inline
in-package
inspect
intern
invoke-debugger
invoke-restart-interactively
invoke-restart
labels
lambda
let
let\*
list
list\*
load
locally
loop-finish
loop
macroexpand-1
macroexpand
macrolet
muffle-warning
multiple-value-bind
multiple-value-call
multiple-value-list
multiple-value-prog1
multiple-value-setq
no-next-method
notinline
optimize
otherwise
pop
prog1
prog2
prog
prog\*
progn
progv
psetf
psetq
push
pushnew
quote
remf
remove-method
require
restart-bind
restart-case
restart
return-from
return
rotatef
safety
setf
set
set-macro-character
setq
shadowing-import
shiftf
signal
special
speed
step
store-value
tagbody
throw
trace
typecase
type
unexport
unintern
unless
untrace
unuse-package
unwind-protect
use-package
use-value
warning
warn
when
with-accessors
with-compilation-unit
with-condition-restarts
with-hash-table-iterator
with-input-from-string
with-open-file
with-open-stream
with-output-to-string
with-package-iterator
with-simple-restart
with-slots
with-standard-io-syntax
nil
t
\%{token-start}
((\%{package}::?)?\*(\%{token})*?\*)
\%{token-end}
\%{token-start}
((\%{package}::?)?\+(\%{token})*?\+)
\%{token-end}
\%{token-start}
(:\%{token})
\%{token-end}
\%{token-start}
((\%{package}::?)?&\%{token})
\%{token-end}