[CM] cm cvs, cffi location

[Rick Taube]

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