call-next-method
do-external-symbols
do
do*
eval-when
handler-bind
handler-case
in-package
let*
multiple-value-bind
restart-bind
restart-case
return-from
signal
unwind-protect
assert
block
case
catch
ccase
cerror
check-type
declaim
declare
defclass
defconstant
defgeneric
define-condition
defmacro
defmethod
defpackage
defparameter
defstruct
deftype
defun
defvar
dolist
dotimes
ecase
error
flet
go
if
labels
lambda
let
loop
proclaim
prog1
prog2
progn
progv
return
tagbody
throw
typecase
unless
warn
when
(?<=\()(\S+[:])?(with-\S+)
#|
|#
;
"
(?<=[ \(])(:[^\s\)]+)
&allow-other-keys
&aux
&body
&environment
&key
&optional
&rest
&whole
(?<=defclass\s)(\S+)
CASE_INSENSITIVE
(?<=defun\s)(\S+)
(?<=defmacro\s)(\S+)
(?<=defgeneric\s)(\S+)
(?<=defmethod\s)(\S+)
(?<=defvar\s)(\S+)
(?<=defparameter\s)(\S+)
(?<=defconstant\s)(\S+)
(?<=defstruct\s)(\S+)
(?<=define-condition\s)(\S+)