Function: BANG-VAR-P

Source

(defun bang-var-p (form)
  (and (symbolp form)
       (char= #\! (aref (symbol-name form) 0))
       (parse-integer (subseq (symbol-name form) 1) :junk-allowed t)))