diff --git a/tools/build.lisp b/tools/build.lisp index 7378349e8ca12ec19e2f712f3e410beb78cc0b81..5788a97691ac0f2cda52e0f758be3e4f647bcbef 100644 --- a/tools/build.lisp +++ b/tools/build.lisp @@ -22,12 +22,13 @@ (with-asdf-dir () (flet ((lisp-only (x) (remove "lisp" x :test-not 'equal :key 'pathname-type))) (let ((uiop-files (mapcar #'(lambda (x) (subpathname "uiop/" x)) (lisp-only (uiop-files)))) - (defsystem-files (lisp-only (asdf-defsystem-files)))) + (defsystem-files (remove "build/asdf.lisp" + (lisp-only (asdf-defsystem-files)) :test 'equal))) (run* `(pipe (wc ,@uiop-files) (sort -n))) (terpri) - (run* `(pipe (wc header.lisp ,@defsystem-files) (sort -n))) + (run* `(pipe (wc ,@defsystem-files) (sort -n))) (terpri) - (run* `(pipe (wc header.lisp ,@uiop-files ,@defsystem-files) (tail -n 1))))))) + (run* `(pipe (wc ,@uiop-files ,@defsystem-files) (tail -n 1))))))) ;;; debug the source registry that is being used to execute these tools.