hmm actually, asdf components already have a property slot that you
could use to set a :bin-directory value with
(setf (asdf:component-property (asdf:find-system :clm) :bin-directory)
*CLM-BIN-DIRECTORY*)
then you could write an :around method on asdf:output-files that did
something like
(defmethod asdf:output-files :around ((operation asdf:compile-op) (f
asdf:source-file))
;; make compile pathnames include the bin directory
(lel ((result (call-next-method))
(bindir (and (asdf:component-parent f)
(asdf:component-property f :bin-directory))))
(if bindir
(mapcar #'fixup-dir result)
result)))
_______________________________________________
Cmdist mailing list
[email protected]
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
