(defun g!-sym-p (sym)
  (when (symbolp sym)
    (let ((name (symbol-name sym)))
      (and (symbolp sym)
           (> (length name) 2)
           (string= name "G!" :end1 2)))))