Commit 89eaf9ea authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix make wc.

parent 400c8f50
......@@ -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.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment