From: Nathan F. <fr...@gm...> - 2009-10-08 13:54:36
|
On Tue, Oct 6, 2009 at 9:43 AM, Richard M Kreuter <kr...@pr...> wrote: > Nathan Froyd writes: >> My plan was to install them in $SBCL_HOME/external-formats. >> GET-EXTERNAL-FORMAT would then check if the external format is present >> in-core; if not, it would attempt to load the appropriately-named file >> from there, then try again. > > In your plan, would it be nontrivial to have a function to load all > available external formats? Doing this as part of preparing a > distributable core image might address Christophe's concern. I think something hand-wavingly like: (defun load-all-external-formats () (map nil #'load (directory (merge-pathnames (make-pathname :directory '(:relative "external-formats") :name :wild :type "fasl") *sbcl-homedir-pathname*)))) [apologies for not wrapping properly, hooray for composition interfaces with variable-width fonts] would work. -Nathan |