[asdf-devel] help needed with asdf internals knowledge

[Attila Lendvai]

dear asdf devels,

i want to conditionally compile and load some lisp files on-demand at
runtime, and i would like to use the asdf machinery for that. the set
of files are not known at development time.

the code in question is load-resource-file here:

http://common-lisp.net/cgi-bin/darcsweb.cgi?r=cl-l10n-cl-l10n;a=headblob;f=/src/load-locale.lisp

the current implementation is broken on asdf3 due to the assert (and a
kludge in general):

(defun load-resource-file (resource-file)
  (bind ((output-files (asdf:output-files (make-instance 'asdf::compile-op)
                                          (make-instance
'asdf:cl-source-file :pathname resource-file :parent (asdf:find-system
:cl-l10n)))))
    (assert (length= 1 output-files))
    (bind ((output-file (first output-files)))
      (ensure-directories-exist output-file)
      (when (or (not (cl-fad:file-exists-p output-file))
                (> (file-write-date resource-file)
                   (file-write-date output-file)))
        (compile-file resource-file :output-file output-file))
      (load output-file))))

any help, pointers, thoughts are welcome!

-- 
 attila

Notice the erosion of your (digital) freedom, and do something about it!
PGP: 2FA1 A9DC 9C1E BA25 A59C  963F 5D5F 45C7 DFCD 0A39