Try to fix component-relative-pathname for ECL.

diff --git a/bundle.lisp b/bundle.lisp
index 0d61249..6857141 100644 (file)
--- a/bundle.lisp
+++ b/bundle.lisp
@@ -289,11 +289,11 @@
   (every #'(lambda (c) (typep c 'compiled-file)) (module-components c)))
 
 (defmethod component-relative-pathname ((component compiled-file))
-  (compile-file-pathname
-   (coerce-pathname
-    (or (slot-value component 'relative-pathname)
-        (component-name component))
-    :type *fasl-type*)))
+  (coerce-pathname
+   (or (slot-value component 'relative-pathname)
+       (component-name component))
+   :type *fasl-type*
+   :defaults (component-parent-pathname component)))
 
 (defmethod output-files (o (c compiled-file))
   (declare (ignore o c))