? asdf.fas
? asdf.lib
? test/file1.lib
? test/file2.lib
? test/file3.lib
? test/file4.lib
Index: asdf.lisp
===================================================================
RCS file: /cvsroot/cclan/asdf/asdf.lisp,v
retrieving revision 1.81
diff -u -r1.81 asdf.lisp
--- asdf.lisp	21 Dec 2003 10:15:47 -0000	1.81
+++ asdf.lisp	13 May 2004 16:13:08 -0000
@@ -229,7 +229,6 @@
   (print-unreadable-object (c stream :type t :identity t)
     (ignore-errors
       (prin1 (component-name c) stream))))
-
 (defclass module (component)
   ((components :initform nil :accessor module-components :initarg :components)
    ;; what to do if we can't satisfy a dependency of one of this module's
@@ -364,7 +363,8 @@
     (when (and on-disk
 	       (or (not in-memory)
 		   (< (car in-memory) (file-write-date on-disk))))
-      (let ((*package* (make-package (gensym (package-name #.*package*))
+      (let ((*package* (make-package (gensym #-ecl (package-name #.*package*)
+					     #+ecl #.(package-name *package*))
 				     :use '(:cl :asdf))))
 	(format *verbose-out*
 		(formatter "~&~@<; ~@;loading system definition from ~A into ~A~@:>~%")
@@ -880,7 +880,9 @@
 (defun class-for-type (parent type)
   (let ((class (find-class
 		(or (find-symbol (symbol-name type) *package*)
-		    (find-symbol (symbol-name type) #.*package*)) nil)))
+		    (find-symbol (symbol-name type)
+				 #+ecl #.(package-name *package*)
+				 #-ecl #.*package*)) nil)))
     (or class
 	(and (eq type :file)
 	     (or (module-default-component-class parent)
@@ -1054,7 +1056,10 @@
 				 :input nil :output *verbose-out*
 				 :wait t)))
 
-    #-(or openmcl clisp lispworks allegro scl cmu sbcl)
+    #+ecl
+    (si:system command)
+
+    #-(or openmcl clisp lispworks allegro scl cmu sbcl ecl)
     (error "RUN-SHELL-PROGRAM not implemented for this Lisp")
     ))
 
Index: test/run-tests.sh
===================================================================
RCS file: /cvsroot/cclan/asdf/test/run-tests.sh,v
retrieving revision 1.7
diff -u -r1.7 run-tests.sh
--- test/run-tests.sh	10 Jul 2003 22:39:27 -0000	1.7
+++ test/run-tests.sh	13 May 2004 16:13:08 -0000
@@ -37,3 +37,8 @@
 then 
   do_tests "/usr/bin/clisp -norc -ansi -I " fas
 fi
+
+if type ecl
+then
+  do_tests ecl fas
+fi
Index: test/wild-module.asd
===================================================================
RCS file: /cvsroot/cclan/asdf/test/wild-module.asd,v
retrieving revision 1.1
diff -u -r1.1 wild-module.asd
--- test/wild-module.asd	8 Jun 2002 15:55:01 -0000	1.1
+++ test/wild-module.asd	13 May 2004 16:13:08 -0000
@@ -1,6 +1,6 @@
 ;;; -*- Lisp -*-
 
-(asdf:defsystem wild-module
+(asdf:defsystem :wild-module
   :version "0.0"
   :components ((:wild-module "systems"
                              :pathname "*.asd")))
