name of startup file

[wilcox@cmns.think.com]

    How do you find out the name of the init file that was used when Macintosh
Common Lisp was launched? I have an application that would like to know this,
since the init file is a document to the application. If the user launches
the application by double-clicking on the document, the document gets loaded.
So far, well and good. However, the document has no name, since the application
doesn't know the pathname of the "init" file. To save it, the user has to
find its name using the choose-file-dialog. This is inconvenient and annoying,
since the application should know the filename by virtue of being launched
from it.

    Any ideas or suggestions much appreciated!

                                                    Greg Wilcox