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 ,@depends-on))) + (slot-value component 'asdf::in-order-to) `((asdf:load-op (asdf:load-op ,@depends-on)) - (asdf:compile-op (asdf:load-op ,@depends-on) - (asdf:compile-op ,@depends-on)))) + (asdf:compile-op (asdf:compile-op ,@depends-on)))) (push component so-far) finally (return (reverse so-far))))) (setf *project-modules*