皆さんレスありがとうございます。なるほど、そうすれば良かったのですね。
変数名と改行に気をつけてこう仕上げました。

(      defmacro rm-parens-apply
(      args top3
 )
(         funcall
(         funcall
(         funcall
(         lambda
 (        args
  )
 (        lambda
 (        top3
  )
 (        lambda
  (       symbol-value
   )`
  (,      symbol-value
 ,@
 (        funcall args top3
) ) )
 ) )'     symbol-value
 )        top3
 )        args
) )

(defun top3 (a b c) (format nil "top3 is ~A, ~A, ~A" a b c))
(setq are 'grape args '('apple 'orange are))
(rm-parens-apply top3 args)
;=> "top3 is APPLE, ORANGE, GRAPE"