[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-serv23904/asdf-aclproj

Modified Files:
	asdf-aclproj.lisp 
Log Message:
Last fixes, Cells-2 works in SBCL and CMUCL now.

Date: Wed Jun 30 20:48:54 2004
Author: tburdick

Index: cell-cultures/asdf-aclproj/asdf-aclproj.lisp
diff -u cell-cultures/asdf-aclproj/asdf-aclproj.lisp:1.2 cell-cultures/asdf-aclproj/asdf-aclproj.lisp:1.3
--- cell-cultures/asdf-aclproj/asdf-aclproj.lisp:1.2	Wed Jun 30 14:02:47 2004
+++ cell-cultures/asdf-aclproj/asdf-aclproj.lisp	Wed Jun 30 20:48:54 2004
@@ -31,7 +31,10 @@
 (defpackage :asdf-aclproj-user
   (:use :cl)
   (:import-from :asdf-aclproj
-		define-project project module project-module))
+		asdf-aclproj::define-project
+		asdf-aclproj::project
+		asdf-aclproj::module
+		asdf-aclproj::project-module))
 
 ;;;
 ;;; Classes for ASDF
@@ -155,10 +158,11 @@
 	     (loop with so-far = ()
 		   for component in list
 		   for depends-on = (reverse so-far)
-		   do (setf (slot-value component 'asdf::in-order-to)
+		   do (setf (slot-value component 'asdf::do-first)
+			    `((asdf:compile-op (asdf:load-op , at depends-on)))
+			    (slot-value component 'asdf::in-order-to)
 			    `((asdf:load-op (asdf:load-op , at depends-on))
-			      (asdf:compile-op (asdf:load-op , at depends-on)
-					       (asdf:compile-op , at depends-on))))
+			      (asdf:compile-op (asdf:compile-op , at depends-on))))
 		   (push component so-far)
 		   finally (return (reverse so-far)))))
     (setf *project-modules*