[Ecls-list] More changes to ASDF

Juan Jose Garcia-Ripoll jjgarcia at users.sourceforge.net
Wed May 7 09:27:03 UTC 2008

- User may change the ASDF operation used by REQUIRE by setting the
hidden variable asdf::*require-asdf-operator*

- Fixes in the operator LOAD-FASL-OP.

Tag: (CVS 2008-05-07 11:23)

I now have this configuration in my .ecl file to create and load a
single FASL file per ASDF library.

(require 'asdf)

(defvar asdf::*binaries-root* "/Users/jjgarcia/.asdf-binaries/")

(setf asdf::*require-asdf-operator* 'asdf:load-fasl-op)

(defmethod asdf:output-files :around ((op asdf:operation) (c asdf:component))
 "Method to rewrite output files to fasl-root"
 (flet ((remap-directory (pathname)
          (let ((d (pathname-directory pathname)))
             :directory (append (pathname-directory asdf::*binaries-root*)
                                (rest d))
             :defaults pathname))))
   (mapcar #'remap-directory (call-next-method))))

(setf asdf::*central-registry*
      (append asdf::*central-registry*

Facultad de Fisicas, Universidad Complutense,
Ciudad Universitaria s/n Madrid 28040 (Spain)

More information about the ecl-devel mailing list