>>793 さんへ。
ええっと、SetFileの使い方がわからないです。すみません。
自分で考えてLispプログラミングをするのは今回が初めてなので、
理解が不十分なところが多くて申し訳ございません。
そのSetFileというのがLispからどうやって呼び出すのかもわからないです。
sakitoさんに教えてもらったdo-applescriptでいまは
勉強しながら作っております。