Added new macro EXPORT-FROM-SYSTEM

[clg] / tools / autoexport.lisp

diff --git a/tools/autoexport.lisp b/tools/autoexport.lisp
index 6a1c13c273f95cd0b278afa9b2a24751c58190da..72cdebae9e9a71dc931209630d3f66ca9e8758c8 100644 (file)
--- a/tools/autoexport.lisp
+++ b/tools/autoexport.lisp
@@ -3,7 +3,7 @@ (defpackage "AUTOEXPORT"
   (:export "LIST-AUTOEXPORTED-SYMBOLS" "LIST-AUTOEXPORTED-SYMBOLS-IN-FILE"
           "DEFEXPORT" "EXPORT-FROM-FILE" "EXPORT-FROM-FILES" "INTERNAL"
           "WITH-EXPORT-HANDLERS" "EXPORT-HANDLER-MAKUNBOUND"
-          "EXPORT-DEFCLASS-FORM"))
+          "EXPORT-DEFCLASS-FORM" "EXPORT-FROM-SYSTEM"))
 
 (in-package "AUTOEXPORT")
 
@@ -66,6 +66,15 @@ (defmacro export-from-files (files &optional package)
   `(progn 
      ,@(loop for file in files collect `(export-from-file ,file ,package))))
 
+(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)))))
+
 (defun copy-hash-table (hash-table)
   (let ((new-hash-table (make-hash-table 
                         :test (hash-table-test hash-table)