[CM] cm cvs, cffi location

Rick Taube taube@uiuc.edu
Wed, 14 Dec 2005 12:39:04 -0600

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) 

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 
   ;; 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)