(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)
- (find name (components comp)
- :test #'string= :key #'asdf:component-name))
+ (gethash name (asdf:component-children-by-name comp)))
(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"))