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+)