Update of /project/cells/cvsroot/cell-cultures/asdf-aclproj In directory common-lisp.net:/tmp/cvs-serv4580/asdf-aclproj
Modified Files: asdf-aclproj.lisp Log Message: Something I did recently caused asdf-aclproj to load the source files, instead of the fasls it had just compiled. This isn't such a big deal on SBCL, which is a compile-only implementation, but it'd be pretty aweful on anything with and interpreter. This is a quick, ugly hack that fixes this for the time being, until I have a chance to do a real fix.
Date: Tue Jul 6 21:17:14 2004 Author: tburdick
Index: cell-cultures/asdf-aclproj/asdf-aclproj.lisp diff -u cell-cultures/asdf-aclproj/asdf-aclproj.lisp:1.4 cell-cultures/asdf-aclproj/asdf-aclproj.lisp:1.5 --- cell-cultures/asdf-aclproj/asdf-aclproj.lisp:1.4 Mon Jul 5 12:26:00 2004 +++ cell-cultures/asdf-aclproj/asdf-aclproj.lisp Tue Jul 6 21:17:14 2004 @@ -181,4 +181,10 @@ (defmethod asdf::component-self-dependencies ((o asdf:operation) (c lpr-component)) (let ((all-deps (asdf:component-depends-on o c))) (remove-if-not (lambda (x) (member c (cdr x))) - all-deps))) \ No newline at end of file + all-deps))) + +;; FIXME: asdf is compiling the source, then loading the source, not +;; FIXME: the fasl. This is gross, but it at least causes asdf to load +;; FIXME: the fasl, until I track down why it's getting the wrong pathname. +(defmethod asdf::input-files ((op asdf:load-op) (c module)) + (list (compile-file-pathname (asdf:component-pathname c))))