chiark
/
gitweb
/
~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doc/list-exports.lisp: Relatively mild changes for ASDF3.
[sod]
/
doc
/
list-exports.lisp
diff --git
a/doc/list-exports.lisp
b/doc/list-exports.lisp
index 00bb7af3bb1103ddcf791fe6db4d17d8521ef6d9..0bfe0f2f9c607d71e456ede86de89b7680c47a9d 100755
(executable)
--- a/
doc/list-exports.lisp
+++ b/
doc/list-exports.lisp
@@
-442,17
+442,16
@@
(defun report-symbols (paths package)
(export 'report-project-symbols)
(defun report-project-symbols ()
(labels ((components (comp)
(export 'report-project-symbols)
(defun report-project-symbols ()
(labels ((components (comp)
- (
slot-value comp 'asdf::components
))
+ (
asdf:component-children comp
))
(files (comp)
(sort (remove-if-not (lambda (comp)
(typep comp 'asdf:cl-source-file))
(components comp))
#'string< :key #'asdf:component-name))
(by-name (comp name)
(files (comp)
(sort (remove-if-not (lambda (comp)
(typep comp 'asdf:cl-source-file))
(components comp))
#'string< :key #'asdf:component-name))
(by-name (comp name)
- (find name (components comp)
- :test #'string= :key #'asdf:component-name))
+ (gethash name (asdf:component-children-by-name comp)))
(file-name (file)
(file-name (file)
- (slot-value file 'asdf
:
:absolute-pathname)))
+ (slot-value file 'asdf
/component
:absolute-pathname)))
(let* ((sod (asdf:find-system "sod"))
(parser-files (files (by-name sod "parser")))
(utilities (by-name sod "utilities"))
(let* ((sod (asdf:find-system "sod"))
(parser-files (files (by-name sod "parser")))
(utilities (by-name sod "utilities"))