[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Where do .fasl files live?
In article <9111041857.AA06503@media-lab.media.mit.edu> email@example.com (Henry Lieberman) writes:
>I've often wanted the following convention for fasl files:
>Every folder with source code also contains a subfolder named "Fasl"
>which holds fasl files for that folder. The convention of adding a
>".fasl" file to the same directory seems like a holdover from the days
>where some file systems were not hierarchical. The convention of
>having a separate folder for compiled files works out much better with
>the Mac's finder, especially if you, as I do, habitually use the By
>Icon view. Even in the By Name view, a list of file names becomes
>twice as long if it includes the fasl files, and you do not always
>want to see this information. It is easy enough to side-by-side the
>views if you want to see what source files have not been compiled or
>something like that.
The following utility does some of what you want.
It does not supplant the behaviors of both LOAD
and REQUIRE, but might be a reasonable starting point
COMPILE-AND-LOAD takes a file name as an argument.
If the file is a lisp source file it compiles
the file and stores the .fasl file in a "fasls"
subdirectory, creating it if necessary. It also
moves pre-existing fasl files into the subdirectory
so you don't have to. It then loads the fasl file.
Additionally, COMPILE-AND-LOAD checks whether there
is already a current .fasl file, loading it if there
is. You can override this behavior and force
recompilation by setting the global variable
*compile-all* to a non-NIL value.
(defvar *compile-all* nil)
(defun compile-and-load (filename)
(let* ((file (purify-filename filename))
(source (concatenate 'simple-string
(fasl-folder (concatenate 'simple-string
(fasl-artifact (concatenate 'simple-string
(when (or *compile-all*
(not (probe-file fasl))
(< (file-write-date fasl)
(and (not (probe-file fasl-folder))
(set-mini-buffer *top-listener* "Recompiling ~A..."
(compile-file source :output-file fasl :verbose t)
(set-mini-buffer *top-listener* ""))
(filename (pathname-name fname))
(filetype (pathname-type fname)))
(if (null filetype)
(if (or (string= filetype "fasl")
(string= filetype "lisp"))
(error "The pathname ~S specifies an alien file type;~%Use a file with extension '.fasl' or '.lisp'.")))))
(defun get-path-from-user ()
:directory (pathname-directory (choose-file-dialog))))