[Ecls-list] More changes to ASDF

[Juan Jose Garcia-Ripoll]

- 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)))
            (make-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*
        '(#P"~/src/lisp/trivial-gray-streams/"
	  #P"~/src/lisp/flexi-streams/")))


-- 
Facultad de Fisicas, Universidad Complutense,
Ciudad Universitaria s/n Madrid 28040 (Spain)
http://juanjose.garciaripoll.googlepages.com