[cells-cvs] CVS update: cell-cultures/asdf-aclproj/asdf-aclproj.lisp

[Thomas F. Burdick]

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