From 89eaf9eaef1a10d8733f87c311c51646b40a8e60 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Wed, 18 Nov 2015 16:22:44 -0500 Subject: [PATCH] Fix make wc. --- tools/build.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tools/build.lisp b/tools/build.lisp index 7378349e8..5788a9769 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. -- GitLab