chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
fe1dd1b
)
Added new macro EXPORT-FROM-SYSTEM
author
espen
<espen>
Wed, 2 Jan 2008 15:39:00 +0000
(15:39 +0000)
committer
espen
<espen>
Wed, 2 Jan 2008 15:39:00 +0000
(15:39 +0000)
tools/autoexport.lisp
patch
|
blob
|
blame
|
history
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 "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")
(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))))
`(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)
(defun copy-hash-table (hash-table)
(let ((new-hash-table (make-hash-table
:test (hash-table-test hash-table)