+(defmacro export-from-system (&optional package)
+ (let ((depends-on (cdar (asdf:component-depends-on asdf:*operation* asdf:*component*))))
+ `(progn
+ ,@(loop
+ for component in depends-on
+ as pathname = (asdf:component-pathname
+ (asdf:find-component asdf:*system* component))
+ collect `(export-from-file ,pathname ,package)))))
+