once-only

(defmacro test (arg)
  (once-only (arg)
    `(declare (ignorable ,arg))
    2))

CL-USER> (macroexpand-1 '(test 22))
(LET ((#:G800 22))
  2)
T