Finding files

[Richard Lynch <lynch@aristotle.ils.nwu.edu>]

I'm writing an application and am having real difficulty in locating some
data files that the application needs.  During development, these files
can be located in the home; subdirectory, but when an application is created,
I want them to be in ccl; (which points to the application's directory--not
ccl).  This I can handle with an (or (ccl;data-file) (home;data-file)).
The REAL trouble is that if I start up MACL, open my source file and evaluate
if, I have no handle to the directory of the source file being evaluated which
is where the data-files are.
Has anyone found a nice way of determing the directory of the file being
evaluated (from a fred window) during evaluation time?