(defun top3 (a b c) (format nil "top3 is ~A, ~A, ~A" a b c))

; リストのカッコを外した物を引数にしたい
(setq are 'grape args '('apple 'orange are))
(top3 ,@args) ;こういう要領で
(top3 'apple 'orange are) ; こう変換したい
; => args is APPLE, ORANGE, GRAPE
(eval `(top3 ,@args)) ; 実装するとこうなりました

evalを使うのはどうかと思ったのですが、もっと良い方法はあるのでしょうか？