(defun fn1 (str)
(print str))

どなたか教えて下さい。
上の様な関数fn1を最適化、型宣言をして下の様な、

(defun fn2 (str)
(declare (optimize (speed 3)(debug 0)(safety 0)))
(declare (string str))
(the string (print str)))

関数fn2になりました。
マクロを使って下のfn3の様にしたいのですが
可能でしょうか。教えて下さい。

(defun fn3 (str)
(high-speed)
(var-string str)
(the-print str))