[armedbear-devel] ensure-parsed-mvn not yet exported in abcl-asdf.lisp

[Cyrus Harmon]

The recent addition of the asdf:ensure-parsed-mvn call in the RESOLVE defmethod form has the problem that the ensure-parsed-mvn symbol isn’t exported at the time the defmethod is compiled. Assuming that the intended behavior of export is not to change things at compile time, we need to wrap the export call in an appropriate eval-when form. The following seems to fix things for me:


diff --git i/contrib/abcl-asdf/abcl-asdf.lisp w/contrib/abcl-asdf/abcl-asdf.lisp
index 401487b..b96457e 100644
--- i/contrib/abcl-asdf/abcl-asdf.lisp
+++ w/contrib/abcl-asdf/abcl-asdf.lisp
@@ -85,8 +85,9 @@ (defun ensure-parsed-mvn (component)
         (setf path (format nil "~A/~A/~A" group-id artifact-id version))))
     component))
 
-(export `(mvn iri ensure-parsed-mvn group-id artifact-id version) 
-	'asdf)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (export `(mvn iri ensure-parsed-mvn group-id artifact-id version) 
+          'asdf))
 
 (defmethod source-file-type ((component iri) (system system))
   nil)