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