TREE-SITTER-PARSER> (defmacro special-p (v)
                      `(flet ((tester () (when (boundp ',v) ,v)))
                         (let ((,v '#:tmp))
                           (declare (special ,v))
                           (eq ,v (tester)))))
SPECIAL-P
TREE-SITTER-PARSER> (let ((it 2))
                      (special-p it))
NIL
TREE-SITTER-PARSER> (let ((it 2))
                      (declare (special it))
                      (special-p it))
T